Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!tektronix!decvax!ucbvax!SUN.COM!gregm
From: gregm@SUN.COM (Greg McLaughlin)
Newsgroups: comp.windows.news
Subject: Re:  Setting a background
Message-ID: <8710062109.AA16251@dublin.sun.com>
Date: Tue, 13-Oct-87 20:02:47 EDT
Article-I.D.: dublin.8710062109.AA16251
Posted: Tue Oct 13 20:02:47 1987
Date-Received: Thu, 15-Oct-87 21:06:35 EDT
Sender: usenet@ucbvax.BERKELEY.EDU
Organization: The ARPA Internet
Lines: 37

Here is some code from my user.ps that does this very thing...


/ImagePaintRoot { % string => -
        gsave
                readcanvas
                framebuffer setcanvas clippath pathbbox scale pop pop
                imagecanvas
        grestore
        } def

/imagemenu [
    (founders)          { /PaintRoot
                                /ImagePaintRoot
                                {(NEWSHOME) getenv (/smi/founders.im8) append}
                                        {} modifyproc
                                store PaintRoot }
    (cartoon)           { /PaintRoot
                                /ImagePaintRoot {(Backgrounds/cartoon.im1) } {}
                                        modifyproc
                                store PaintRoot }

%	:
%	:
%	:
] makemenu def

Just add imagemenu to your main menu and select all the image backgrounds you
like.

This works best if the framebuffer is retained since readcanvas stops up the
works on you for a while.


Greg McLaughlin
Portable NeWS
Sun Microsystems Inc