(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "26-Jan-98 13:55:34" ("compiled on " {DSK}disk2>jdstools>lc3>lispcore3.0>sources>WINDOWICON.;4) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED " 2-Feb-94 13:26:29" {DSK}nilsson>mnw>WINDOWICON.;2 12057 changes to%: (FNS SHRINKW EXPANDW) previous date%: "29-Sep-93 14:57:05" {DSK}nilsson>mnw>WINDOWICON.;1) SHRINKW :D8 (P 0 A19926 I 3 EXPANDFN I 2 ICONPOSITION I 1 TOWHAT I 0 WINDOW) 2@ b2*@ b2@ABClH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () ICONBUTTONEVENTFN :D8 (I 0 ICONW) *`kj` @ @ (39 MOVEW 32 CURSOR 26 EXPANDW 20 CURSOR) (15 WAITINGCURSOR 4 LASTMOUSEBUTTONS) () ICONPOSITION.FROM.WINDOW :D8 (P 1 SCREEN P 0 WREG I 1 ICONREGION I 0 WINDOW) @g @ Q@2YHIHHHjJJ jIHHػdKKAHIHHHjLL#j IHHؽdMMA(27 \INSUREWINDOW 15 POSITIONP 10 GETWINDOWUSERPROP) (146 SCREEN 111 SCREEN 81 SCREEN 49 SCREEN 38 WINDOW 5 ICONPOSITION) () MAKETITLEBARICON :D8 (P 3 POS P 2 REG P 1 W P 0 SCREEN I 1 TEXT I 0 WINDOW) @2QA)@ (bA jo b@jddhH ٽlAH ؼlLLlMhZ [JKJKJAhi Ydgg I(147 PUTWINDOWPROP 130 CREATEW 111 ICONPOSITION.FROM.WINDOW 88 STRINGWIDTH 70 DSPLINEFEED 49 CONCAT 44 DATE 30 NCHARS 19 \INSUREWINDOW) (142 \TITLEICONMINSIZE 137 MINSIZE 81 SCREEN 63 SCREEN 5 WINDOW) ( 39 "Icon made ") \TITLEICONMINSIZE :D8 (I 0 WINDOW) ljh@2 (23 DSPLINEFEED) (16 SCREEN 9 WINDOW) () \NOTENEWICONPOSITION :D8 (I 1 NEWPOS I 0 ICONW) @g b@gA A(25 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (19 ICONPOSITION 5 ICONFOR) () EXPANDW :D8 (P 0 A19932 I 0 ICONW) /@ b2,@ b2@lH(30 \INSUREWINDOW 5 \INSUREWINDOW) (37 WINDOW 19 SCREEN 12 WINDOW) () DOICONWINDOWCOM :D8 (P 0 COM I 0 WINDOW) @0@ ``Q`d`dgmjdIdgdg di jdndhdJ ` X@kHi(127 MENU 20 TOTOPW) (122 IconWindowMenu 117 IconWindowMenu 87 CLRPROMPT 78 PPROMPT3 59 Y 50 IconWindowMenuCommands 43 |MENUTYPE#| 36 IconWindowMenu 30 MENU 25 IconWindowMenu 5 WINDOW) () CLOSEMAINWINDOW :D8 (P 0 MAINWIN I 0 ICONWIN) =@g H@gh h gH H (56 \CLOSEW1 48 OPENWP 35 \OKTOCLOSEW 28 PUTWINDOWPROP 10 GETWINDOWUSERPROP) (41 DON'T 22 ICONFOR 5 ICONFOR) () CLOSEICONWINDOW :D8 (P 1 USEREXPANDFN P 0 ICONW I 0 MAINWIN) [@g H9Hgg H @g @ Hgh @gg h(87 WINDOWDELPROP 70 PUTWINDOWPROP 57 DOUSERFNS 51 GETWINDOWUSERPROP 39 CLOSEW 32 WINDOWDELPROP 10 GETWINDOWUSERPROP) (82 CLOSEICONWINDOW 77 OPENFN 64 ICONFOR 46 EXPANDFN 27 CLOSEMAINWINDOW 22 CLOSEFN 5 ICONWINDOW) () (PRETTYCOMPRINT WINDOWICONCOMS) (RPAQQ WINDOWICONCOMS ((FNS SHRINKW ICONBUTTONEVENTFN ICONPOSITION.FROM.WINDOW MAKETITLEBARICON \TITLEICONMINSIZE \NOTENEWICONPOSITION EXPANDW DOICONWINDOWCOM CLOSEMAINWINDOW CLOSEICONWINDOW) ( INITVARS (IconWindowMenu) (DEFAULTICONFN (QUOTE MAKETITLEBARICON))) (ADDVARS (IconWindowMenuCommands ( Close (QUOTE CLOSEW) "Closes the icon and its associated window") (Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on the icon.") (Bury (QUOTE BURYW) "Puts the icon on the bottom.") (Move (QUOTE MOVEW) "Moves the icon by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for the icon.") (Expand (QUOTE EXPANDW) "Expands the window for which this is the ICON."))) (GLOBALVARS DEFAULTICONFN IconWindowMenu IconWindowMenuCommands))) (RPAQ? IconWindowMenu) (RPAQ? DEFAULTICONFN (QUOTE MAKETITLEBARICON)) (ADDTOVAR IconWindowMenuCommands (Close (QUOTE CLOSEW) "Closes the icon and its associated window") ( Snap (QUOTE SNAPW) "Saves a snapshot of a region of the screen.") (Paint (QUOTE PAINTW) "Starts a painting mode in which the mouse can be used to draw pictures or make notes on the icon.") (Bury (QUOTE BURYW) "Puts the icon on the bottom.") (Move (QUOTE MOVEW) "Moves the icon by a corner.") (Shape (QUOTE SHAPEW) "Gets a new region for the icon.") (Expand (QUOTE EXPANDW) "Expands the window for which this is the ICON.")) (PUTPROPS WINDOWICON COPYRIGHT ("Venue & Xerox Corporation" 1986 1987 1988 1990 1993 1994)) NIL