#! /usr/NeWS/bin/psh
%
% This file is a product of Sun Microsystems, Inc. and is provided for
% unrestricted use provided that this legend is included on all tape
% media and as a part of the software program in whole or part.  Users
% may copy or modify this file without charge, but are not authorized to
% license or distribute it to anyone else except as part of a product
% or program developed by the user.
% 
% THIS FILE IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
% WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
% PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
% 
% This file is provided with no support and without any obligation on the
% part of Sun Microsystems, Inc. to assist in its use, correction,
% modification or enhancement.
% 
% SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
% INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY THIS FILE
% OR ANY PART THEREOF.
% 
% In no event will Sun Microsystems, Inc. be liable for any lost revenue
% or profits or other special, indirect and consequential damages, even
% if Sun has been advised of the possibility of such damages.
% 
% Sun Microsystems, Inc.
% 2550 Garcia Avenue
% Mountain View, California  94043
%
%
% "@(#)imagedemo 9.2 88/01/18
%
% Copyright (c) 1985 by Sun Microsystems, Inc.
%

/imagedirectory (/smi/) def
/fileextension (.im8) def
/thepicture (founders) def
/pic {
    (NEWSHOME) getenv imagedirectory thepicture fileextension
    append append append readcanvas pause
} def
/NSHOWWINDOW {
/HandleMenuHit {
    /thepicture /currentkey self send store
    {/painticon win send /paintclient win send} fork pop
} def
/davincipicturemenu [
	(angel)
	(ermine)
	(lady)
	(man)
	(mona-face)
	(mona-hands)
	(mona-smile)
%	(mona-hires)
	(mona)
	(stjerome)
	(virgin)
	(virgino)
] [{HandleMenuHit}] /new DefaultMenu send def
/japanesepicturemenu [
	(cherries)
	(fuji)
	(geese)
	(puppet)
	(snow)
	(stormy)
	(washing)
%	(wash-hires)
	(writing)
] [{HandleMenuHit}] /new DefaultMenu send def
/sunpicturemenu [
	(founders)
	(sun3110)
	(sun3160c)
	(sun3160m)
	(sun3260h)
	(sun350)
	(sun352)
	(sun352w)
	(sunballs)
	(suncase)
	(sungame)
	(sunnet)
	(sunnfs)
	(sunprism)
] [{HandleMenuHit}] /new DefaultMenu send def
/travelpicturemenu [
	(bryce)
	(harem)
	(joshua)
	(lascruces)
	(new_york)
	(pagosa)
	(saturn)
	(shroom)
	(taj-detail)
	(taj)
	(vla)
	(zion)
] [{HandleMenuHit}] /new DefaultMenu send def

    /win framebuffer /new DefaultWindow send def	% Create a window
    {							% Install my stuff.
	/FrameLabel (Right mouse button selects picture) def
	/PaintClient {
	    ClientCanvas setcanvas clippath pathbbox scale pop pop
	    pic imagecanvas pause
	} def
	/PaintIcon {
	    IconCanvas setcanvas
	    currentcanvas mapped currentcanvas retained or {
		    clippath pathbbox scale pop pop
		    0 0 moveto pic imagecanvas IconCanvas setcanvas
		    0 strokecanvas
	    } if
	} def
	/ClientMenu [
	    (Da Vinci =>)	davincipicturemenu
	    (Japanese =>)	japanesepicturemenu
	    (Sun =>)		sunpicturemenu
	    (Travel =>)		travelpicturemenu
	    (Zap)		{currentprocess killprocessgroup}
	] /new DefaultMenu send def
    } win send
    /reshapefromuser win send				% Shape it.

% Activate window
    /map win send  % Map the window. (Damage causes PaintClient to be called)
} def

NSHOWWINDOW

