(DEFINE-FILE-INFO PACKAGE "IL" READTABLE "INTERLISP") (FILECREATED " 9-Sep-94 11:43:25" ("compiled on " {DSK}lispusers>GRID-ICONS.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "22-Nov-88 14:03:08" |{EG:PARC:XEROX}LISP>USERS>GRID-ICONS.;14| 27616 changes to%: (VARS GRID-ICONSCOMS) (FNS ICONW.MOVEFN LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN) previous date%: "29-Sep-88 13:43:56" |{EG:PARC:XEROX}LISP>USERS>GRID-ICONS.;13|) ICONW.MOVEFN :D8 (P 15 REGION P 13 ICON.GRID.Y P 12 ICON.GRID.X P 11 GRID.Y.OFFSET P 10 GRID.X.OFFSET P 9 GRID.Y.SIZE P 8 GRID.X.SIZE P 7 ICON.CENTER.Y P 6 ICON.CENTER.X P 1 ICON.HEIGHT P 0 ICON.WIDTH I 1 POS I 0 ICON F 16 ENFORCE.ICON.REGIONS) E@ @ B`@g AAd`jAHAd`jAIAHlAIl````A `_`_NOպ`dJJO׻jKjK_OOռ`dLLO׽jMjM_W W ODhZOO`l`HlOOO`l`IlO_NO OiO_A(306 INSIDE? 42 GETWINDOWUSERPROP 16 \INSUREWINDOW 5 \INSUREWINDOW) (283 ICON.SIZE 273 ICON.SPACING 253 ICON.SIZE 243 ICON.SPACING 196 SCREENHEIGHT 165 SCREENWIDTH 151 GRID.OFFSET 142 GRID.OFFSET 132 ICON.SPACING 126 ICON.SIZE 116 ICON.SPACING 110 ICON.SIZE 73 SCREENHEIGHT 53 SCREENWIDTH 37 IGNORE.ICON.GRID 30 ENFORCE.ICON.GRID) () \ENSURE.ICON.GRID :D8 (P 0 OPENP I 0 W) 5@ @dd @  H@ h(48 CLOSEW 40 MOVEW 35 ICONW.MOVEFN 25 \INSUREWINDOW 16 \INSUREWINDOW 5 OPENWP) NIL () \TRIM-ICON-FILE-TITLE :D8 (I 0 TITLE) :@d6 @d3@(g@g g@g @(53 PACKFILENAME.STRING 48 FILENAMEFIELD 32 FILENAMEFIELD 8 STRINGP) (43 EXTENSION 37 EXTENSION 27 NAME 21 NAME) () GRID-WINDOW :D8 (I 0 W) @ @gg @ (29 \ENSURE.ICON.GRID 23 WINDOWADDPROP 5 WINDOWP) (18 ICONW.MOVEFN 13 MOVEFN) () LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0001 :D8 NIL ` (14 SORT 9 COPY) (4 FILELST) () LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0002 :D8 NIL V`AHg \dgI` g'LJ KhZHXK&(52 SORT 47 LDIFFERENCE 24 FILENAMEFIELD) (62 FILEDATES 42 FILELST 31 INIT 19 NAME 4 LOADEDFILELST) () LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0003 :D8 (L (0 FILE-NAME)) @o (10 ED) NIL ( 5 (FILES :DONTWAIT :DISPLAY)) LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0004A0007 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILE F 3 SI::NLSETQ-VALUE) i@Rg hcg(15 LOAD) (24 :NORMAL 10 PROP) () LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0004 :D8 (L (2 BUTTON 1 MENU 0 ITEM) P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 FILE F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) M@g Hh`UioVJ gIoH H (74 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0003 67 PROMPTPRINT 44 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0004A0007 10 FILENAMEFIELD) (50 :NORMAL 25 SI::NLSETQ-PROCEED-CASE 5 NAME) ( 61 "Error attempting to Notice the file " 33 (CL:ERROR . SI::NLSETQHANDLER)) LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0005 :D8 (L (2 BUTTON 1 MENU 0 ITEM) F 0 NEW-FILE-ITEM F 1 NOTICE-FILE-ITEM) /@ddPo Qo o@ (44 PROMPTPRINT 32 PROMPTPRINT 18 PROMPTPRINT) NIL ( 38 "Edit the filecoms of file " 27 "Prompt for a sysloaded file, Notice its contents, and then edit its filecoms" 13 "Add a new file and edit its filecoms") LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0006A0010 :D8 (L (2 BUTTON 1 MENU 0 ITEM)) @o@o (18 PROMPTPRINT) NIL ( 13 " and then edit its COMS" 7 "Load-PROP the file ") LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0006 :D8 (L (2 BUTTON 1 MENU 0 ITEM) F 2 NEW-FILE-ITEM F 3 *DEFAULT-MAKEFILE-ENVIRONMENT* F 4 *DEFAULT-CLEANUP-COMPILER* F 5 NOTICE-FILE-ITEM) `@d?dR` ohd`higkgh H o  Xd `go hgggHoHohhh HgS HgTdggggg H H U^HH`dHdodgdgdg jdndhdI o @g (349 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0003 344 FILENAMEFIELD 332 PROMPTPRINT 321 MENU 246 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0002 236 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0003 230 ADDFILE 224 PUTPROP 178 PUTPROP 173 CL:COPY-TREE 161 SET 112 CONCAT 92 FILECOMS 85 U-CASE 80 MKATOM 74 PROMPTPRINT 58 PROMPTFORWORD 23 CLEARW) (339 NAME 296 CLRPROMPT 287 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0004 278 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0006A0010 257 |MENUTYPE#| 219 :COMPILE-FILE 213 :BCOMPL 206 BCOMPL 199 :TCOMPL 191 TCOMPL 184 FILETYPE 167 MAKEFILE-ENVIRONMENT 131 PROPS 126 DONTCOPY 121 DECLARE%: 102 ;;; 97 COMMENTFLG 49 CHARCODE 43 EOL 36 PROMPTWINDOW 18 PROMPTWINDOW) ( 327 "No hidden files" 269 "Notice which sysloaded file?" 144 (FILETYPE) 137 (MAKEFILE-ENVIRONMENT) 107 "New file" 69 "No file added" 29 "Name of new file (CR to abort): ") LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN :D8 (L (0 W) P 1 NOTICE-FILE-ITEM P 0 NEW-FILE-ITEM) oo"`lj@ `kjX`HIh dJdodgdgdg jdndhdK h(138 MENU 74 \NCONC2 64 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0001 41 GETMOUSESTATE 35 MOVEW 17 GETMOUSESTATE) (113 CLRPROMPT 104 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0006 95 LOADED-FILES-ICON-WINDOW-BUTTONEVENTFNA0005 58 |MENUTYPE#| 47 LASTMOUSEBUTTONS 23 LASTMOUSEBUTTONS) ( 86 "Edit COMS of which file?" 9 "* Sysloaded file *" 4 "* New file *") (PRETTYCOMPRINT GRID-ICONSCOMS) (RPAQQ GRID-ICONSCOMS ((* ;;; "For laying out icons on a grid") (FNS ICONW.MOVEFN \ENSURE.ICON.GRID \TRIM-ICON-FILE-TITLE GRID-WINDOW) (INITVARS (ENFORCE.ICON.GRID NIL) (ENFORCE.ICON.REGIONS NIL) ( ICON.SPACING (QUOTE (5 . 5))) (ICON.SIZE (QUOTE (85 . 85))) (GRID.OFFSET (QUOTE (0 . 0)))) (GLOBALVARS ENFORCE.ICON.GRID ICON.SPACING ICON.SIZE GRID.OFFSET) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE ( ADVISE ICONW TITLEDICONW)) (* ;;; "Defining some nice Viewpoint-ish icons") (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Redefine the Lafite folder icon, making them a bit smaller") (VARS MSGFOLDERICON MSGFOLDERMASK (MSGFOLDERTEMPLATE (create TITLEDICON ICON _ MSGFOLDERICON MASK _ MSGFOLDERMASK TITLEREG _ (CREATEREGION 5 2 65 35)))) (* ;; "And, for the new improved Lafite:") (VARS (LAFITE.FOLDER.ICON MSGFOLDERTEMPLATE))) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Redefine the Tedit icon, making it cuter and smaller") (P (if (GETD (QUOTE TEDIT)) then (ADVISE ( QUOTE (TEXTSTREAM.TITLE IN \TEDIT.SHRINK.ICONCREATE)) (QUOTE AFTER) (QUOTE (SETQ !VALUE ( \TRIM-ICON-FILE-TITLE !VALUE)))))) (VARS TEDIT.ICON TEDIT.MASK (TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDIT.ICON MASK _ TEDIT.MASK TITLEREG _ (CREATEREGION 5 2 50 30))))) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Redefine the SEdit icon, making it smaller and cuter") (VARS SEDITICON SEDITICONMASK) (P (SET (if (CL:FIND-PACKAGE "SEDIT") then (CL:INTERN "TITLED-ICON" ( CL:FIND-PACKAGE "SEDIT")) else (QUOTE \\titled.icon)) (create TITLEDICON ICON _ SEDITICON MASK _ SEDITICONMASK TITLEREG _ (CREATEREGION 5 5 50 65))))) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Redefine the Sketch icon, making it cuter and smaller") (P (if (GETD (QUOTE SKETCH)) then (ADVISE ( QUOTE (SKETCH.TITLE IN SK.SHRINK.ICONCREATE)) (QUOTE AFTER) (QUOTE (SETQ !VALUE (\TRIM-ICON-FILE-TITLE !VALUE)))))) (VARS SKETCH.ICON SKETCH.MASK (SKETCH.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ SKETCH.ICON MASK _ SKETCH.MASK TITLEREG _ (CREATEREGION 5 2 50 30))))) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Make SPY icons appear on the grid") (P (if (GETD (QUOTE SPY.BUTTON)) then ( ADVISE (QUOTE SPY.BUTTON) (QUOTE AFTER) (QUOTE (GRID-WINDOW (OR !VALUE SPY.BUTTON))))))) (COMS (* ;; "Define a nice icon for accessing the list of loaded files") (FNS LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (VARS LOADED-FILES-ICON LOADED-FILES-ICON-MASK (LOADED-FILES-ICON-WINDOW (LET ((W (TITLEDICONW (create TITLEDICON ICON _ LOADED-FILES-ICON MASK _ LOADED-FILES-ICON-MASK TITLEREG _ (CREATEREGION 7 9 55 10)) "Lisp files" NIL (CREATEPOSITION 0 0) T (QUOTE BOTTOM)))) (WINDOWPROP W (QUOTE BUTTONEVENTFN) (QUOTE LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN)) W))))) (DECLARE%: DONTEVAL@LOAD DONTEVAL@COMPILE (* ;; "Define the standard icon, using the new Lyric feature") (VARS STANDARD-ICON STANDARD-ICON-MASK ( DEFAULTTEXTICON (create TITLEDICON ICON _ STANDARD-ICON MASK _ STANDARD-ICON-MASK TITLEREG _ ( CREATEREGION 5 5 50 60))) (DEFAULTICONFN (QUOTE TEXTICON)))) (* ;;; "") (* ;;; "Filemanager stuff") ( DECLARE%: DONTCOPY (PROP MAKEFILE-ENVIRONMENT GRID-ICONS)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN))))) (RPAQ? ENFORCE.ICON.GRID NIL) (RPAQ? ENFORCE.ICON.REGIONS NIL) (RPAQ? ICON.SPACING (QUOTE (5 . 5))) (RPAQ? ICON.SIZE (QUOTE (85 . 85))) (RPAQ? GRID.OFFSET (QUOTE (0 . 0))) (XCL:REINSTALL-ADVICE (QUOTE ICONW) :AFTER (QUOTE ((:LAST (GRID-WINDOW !VALUE))))) (XCL:REINSTALL-ADVICE (QUOTE TITLEDICONW) :AFTER (QUOTE ((:LAST (GRID-WINDOW !VALUE))))) (READVISE ICONW TITLEDICONW) (RPAQQ MSGFOLDERICON #*(75 55)COOOON@@@@@@@@@@@@@@GOOOOO@@@@@@@@@@@@@@N@@@@CH@@@@@@@@@@@@@L@@@@AH@@@@@@@@@@@@@L@@@@AOOOOOOOOOOOOL@L@@@@AOOOOOOOOOOOOL@L@@@@@@@@@@@@@@@@@N@OOOOOOOOOOOOOOOOOON@L@@@@@@@@@@@@@@@@@F@LMJFG@@@@@@@@@@@ONF@LKNOJ@@@@@@@@@COHBF@L@@@@@@@@@@@@@@@HBF@LOFIJ@@@@@@@@@@@HBF@LCKGB@@@@@@@@@COHBF@L@@@@@@@@@@@@@@@HBF@LIMFJ@@@@@@@@@@@HBF@LMFMJ@@@@@@@@@COHBF@L@@@@@@@@@@@@@@@ONF@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@L@@@@@@@@@@@@@@@@@F@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@ ) (RPAQQ MSGFOLDERMASK #*(75 55)COOOON@@@@@@@@@@@@@@GOOOOO@@@@@@@@@@@@@@OOOOOOH@@@@@@@@@@@@@OOOOOOH@@@@@@@@@@@@@OOOOOOOOOOOOOOOOOOL@OOOOOOOOOOOOOOOOOOL@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@ ) (RPAQ MSGFOLDERTEMPLATE (create TITLEDICON ICON _ MSGFOLDERICON MASK _ MSGFOLDERMASK TITLEREG _ ( CREATEREGION 5 2 65 35))) (RPAQ LAFITE.FOLDER.ICON MSGFOLDERTEMPLATE) (if (GETD (QUOTE TEDIT)) then (ADVISE (QUOTE (TEXTSTREAM.TITLE IN \TEDIT.SHRINK.ICONCREATE)) (QUOTE AFTER) (QUOTE (SETQ !VALUE (\TRIM-ICON-FILE-TITLE !VALUE))))) (RPAQQ TEDIT.ICON #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@L@@@@@@@@@@AL@@@L@@@@@@@@@@AF@@@L@@@@@@@@@@AC@@@L@@@@@@@@@@AAH@@L@@CNGOCOONA@L@@L@@CNGOCOONA@F@@L@@@@@@@@@@A@C@@L@@@@@@@@@@A@AH@L@@@@@@@@@@A@@L@L@@@@@@@@@@A@@F@L@@@@@@@@@@AOOO@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@OOMNOOOMOGKHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGKNOOOGOOGOOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LFOONOOKOOMOOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGNOOOL@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@OMOOOGOMOOOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGOOMNOOONMOOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGKOOOKNOONOOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGNOOOMOOKONOHC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@LGOMOOOGOOH@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQQ TEDIT.MASK #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOON@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOOH@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOON@@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOOH@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOON@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQ TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDIT.ICON MASK _ TEDIT.MASK TITLEREG _ ( CREATEREGION 5 2 50 30))) (RPAQQ SEDITICON #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@L@@@@@@@@@@AL@@@L@@@@@@@@@@AF@@@LB@@@@@@@@@AC@@@LD@@@@@@@@@AAH@@LD@@@@@@@@@A@L@@LH@@@@@@@@@A@F@@LH@@@@@@@@@A@C@@LH@@@@@@@@@A@AH@LH@@@@@@@@@A@@L@LH@@@@@@@@@A@@F@LDDI@@@@@@@AOOO@LD@@@@@@@@@@@@C@LB@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@DC@L@@@@@@@@@@@@BC@L@@@@@@@@@@@@BC@L@@@@@@@@@@@@AC@L@@@@@@@@@@@@AC@L@@@@@@@@@@@@AC@L@@@@@@@@@@@@AC@L@@@@@@@@@@@@AC@L@@@@@@@@@@IBBC@L@@@@@@@@@@@@BC@L@@@@@@@@@@@@DC@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQQ SEDITICONMASK #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOON@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOOH@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOON@@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOOH@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOON@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (SET (if (CL:FIND-PACKAGE "SEDIT") then (CL:INTERN "TITLED-ICON" (CL:FIND-PACKAGE "SEDIT")) else ( QUOTE \\titled.icon)) (create TITLEDICON ICON _ SEDITICON MASK _ SEDITICONMASK TITLEREG _ ( CREATEREGION 5 5 50 65))) (if (GETD (QUOTE SKETCH)) then (ADVISE (QUOTE (SKETCH.TITLE IN SK.SHRINK.ICONCREATE)) (QUOTE AFTER) ( QUOTE (SETQ !VALUE (\TRIM-ICON-FILE-TITLE !VALUE))))) (RPAQQ SKETCH.ICON #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@L@@@@@@@@@@AL@@@L@@@@@@@@@@AF@@@L@@@@@@@@@@AC@@@LAOOOOOOOH@AAH@@LA@@@@@@@H@A@L@@LA@@@H@@@H@A@F@@LA@L@H@@@H@A@C@@LA@B@NCBHH@A@AH@LA@N@IDI@H@A@@L@LAAB@IDI@H@A@@F@LA@N@NCBHH@AOOO@LA@@@@@@@H@@@@C@LAOOOOOOOH@@@@C@L@@@B@@@@@@@@@C@L@@@B@@@@@@@@@C@L@@@D@@@@@@@@@C@L@@@D@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@H@@@@@@@@@C@L@@@D@@@@@@@@@C@L@@@D@@@@@@@@@C@L@@@B@@@@AN@@@C@L@@@A@@@@FAH@@C@L@@@@H@@AH@F@@C@L@@@@F@DB@@A@@C@L@@@@ALBD@@@H@C@L@@@@@CMD@@@H@C@L@@@@@@CH@@@D@C@L@@@@@@FH@@@D@C@L@@@@@@I@@@@B@C@L@@@@@@A@@@@B@C@L@@@@@@A@@@@B@C@L@@@@@@A@@@@B@C@L@@@@@@@H@@@D@C@L@@@@@@@H@@@D@C@L@@@@@@@D@@@H@C@L@@@@@@@D@@@H@C@L@@@@@@@B@@A@@C@L@@@@@@@AH@F@@C@L@@@@@@@@FAH@@C@L@@@@@@@@AN@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQQ SKETCH.MASK #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOON@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOOH@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOON@@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOOH@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOON@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQ SKETCH.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ SKETCH.ICON MASK _ SKETCH.MASK TITLEREG _ (CREATEREGION 5 2 50 30))) (if (GETD (QUOTE SPY.BUTTON)) then (ADVISE (QUOTE SPY.BUTTON) (QUOTE AFTER) (QUOTE (GRID-WINDOW (OR !VALUE SPY.BUTTON))))) (RPAQQ LOADED-FILES-ICON #*(72 72)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOH@@@AOOOOOOOOOOOOOOOL@@@COOOOOOOOOOOOOOON@@@CL@@@@@@@@@@@@@AN@@@CHA@B@@@@@@@@@@@N@@@CHB@DCNDDG@@@@@@N@@@CHB@DB@FDHH@@@@@N@@@CHD@HB@FDHH@@@@@N@@@CHD@HCLEDF@@@@@@N@@@CHD@HB@EDA@@@@@@N@@@CHD@HB@DLHH@@@@@N@@@CHD@HB@DLHH@@@@@N@@@CHB@DB@DDG@D@HA@N@@@CHB@D@@@@@@@@@@@N@@@CHA@B@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CHAOOOOOOOO@@@@@N@@@CHAOOOOOOOO@@@@@N@@@CHAH@@@@@@C@@@@@N@@@CHAH@@@@@@C@@@@@N@@@CHAOOOOOOOO@@@@@N@@@CHAL@@@@@@G@@@@@N@@@CH@N@@@@@@N@@@@@N@@@CH@G@@@@@AL@@@@@N@@@CH@CH@@@@CH@@@@@N@@@CH@AL@@@@G@@@@@@N@@@CH@@N@@@@N@@@@@@N@@@CH@@G@@@AL@@@@@@N@@@CH@@CH@@CH@@@@@@N@@@CH@@AL@@G@@@@@@@N@@@CH@@@N@@N@@@@@@@N@@@CH@@@G@AL@@@@@@@N@@@CH@@@CHCH@@@@@@@N@@@CH@@@ALG@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@LF@@@@@@@@N@@@CH@@@@ON@@@@@@@@N@@@CH@@@@GL@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CH@@@@@@@@@@@@@@N@@@CL@@@@@@@@@@@@@AN@@@COOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOL@@@@OOOOOOOOOOOOOOOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ LOADED-FILES-ICON-MASK #*(72 72)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OOOOOOOOOOOOOOOH@@@AOOOOOOOOOOOOOOOL@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@COOOOOOOOOOOOOOON@@@AOOOOOOOOOOOOOOOL@@@@OOOOOOOOOOOOOOOH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQ LOADED-FILES-ICON-WINDOW (LET ((W (TITLEDICONW (create TITLEDICON ICON _ LOADED-FILES-ICON MASK _ LOADED-FILES-ICON-MASK TITLEREG _ (CREATEREGION 7 9 55 10)) "Lisp files" NIL (CREATEPOSITION 0 0) T (QUOTE BOTTOM)))) (WINDOWPROP W (QUOTE BUTTONEVENTFN) (QUOTE LOADED-FILES-ICON-WINDOW-BUTTONEVENTFN)) W)) (RPAQQ STANDARD-ICON #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@L@@@@@@@@@@AL@@@L@@@@@@@@@@AF@@@L@@@@@@@@@@AC@@@L@@@@@@@@@@AAH@@L@@@@@@@@@@A@L@@L@@@@@@@@@@A@F@@L@@@@@@@@@@A@C@@L@@@@@@@@@@A@AH@L@@@@@@@@@@A@@L@L@@@@@@@@@@A@@F@L@@@@@@@@@@AOOO@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@L@@@@@@@@@@@@@C@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQQ STANDARD-ICON-MASK #*(60 75)OOOOOOOOOOOO@@@@OOOOOOOOOOOOH@@@OOOOOOOOOOOOL@@@OOOOOOOOOOOON@@@OOOOOOOOOOOOO@@@OOOOOOOOOOOOOH@@OOOOOOOOOOOOOL@@OOOOOOOOOOOOON@@OOOOOOOOOOOOOO@@OOOOOOOOOOOOOOH@OOOOOOOOOOOOOOL@OOOOOOOOOOOOOON@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@OOOOOOOOOOOOOOO@ ) (RPAQ DEFAULTTEXTICON (create TITLEDICON ICON _ STANDARD-ICON MASK _ STANDARD-ICON-MASK TITLEREG _ ( CREATEREGION 5 5 50 60))) (RPAQQ DEFAULTICONFN TEXTICON) (PUTPROPS GRID-ICONS COPYRIGHT ("Xerox Corporation" 1987 1988)) NIL