(DEFINE-FILE-INFO §PACKAGE "INTERLISP" §READTABLE "INTERLISP" §BASE 10) (FILECREATED " 4-Feb-87 20:10:21" ("compiled on " {ERIS}NEXT>LOADIRIS.;6) "21-Jan-87 21:13:09" brecompiled changes%: IRIS.CREATE.ICON in "Xerox Lisp 21-Jan-87 ..." dated "21-Jan-87 21:48:22") (FILECREATED " 4-Feb-87 20:09:38" {ERIS}NEXT>LOADIRIS.;6 16139 changes to%: (FNS IRIS.CREATE.ICON) (VARS LOADIRISCOMS IRIS.MENU.COMMANDS IRISFILES LI.SETUP.ALL LI.SETUP.CLEAR LI.SETUP.DEBUG LI.SETUP.STANDARD) previous date%: "16-Jan-87 18:27:40" {ERIS}NEXT>LOADIRIS.;4) LI.CIRCLES :D4 (P 1 F I 0 X) <@µldkYHó³*jl ¿jnè jn l2lÈ ¿IkÔ°Õ(57 IRIS.GFLUSH 47 IRIS.CIRCF 44 RAND 37 RAND 30 RAND 22 IRIS.COLOR 19 RAND) NIL () LI.LOADA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 1 FILENAME I 0 SI::*CLEANUP-FORMS* F 2 window F 3 LI.SHADE F 4 SI::*RESETFORMS* F 5 IRIS.DIRECTORY F 6 WINDOW) rghddRhdddggShhddRhdddggS hTcV HµhYið³"gUgIYg ”I †Ig ¿HX°Ò(106 LOAD 98 LOAD 93 FILENAMEFIELD 86 PACKFILENAME 60 FM.GETSTATE 49 BKBITBLT) (103 PROP 90 EXTENSION 82 BODY 78 DIRECTORY 44 INVERT 41 TEXTURE 16 INVERT 13 TEXTURE 2 BITBLT) () LI.LOAD :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 2 button I 1 window I 0 item F 2 LISPXHIST) '` ¿o` Rg ¿ (36 CL:VALUES-LIST 32 SI::RESETUNWIND 29 \MVLIST 26 LI.LOADA0001 16 PRIN1 5 TERPRI) (23 SI::RESETUNWIND 13 PROMPTWINDOW 2 PROMPTWINDOW) ( 10 "[Loading Iris Files]") LI.MAKEMENU :D4 (P 7 setup P 5 FILENAME P 4 spaces P 3 strLength F 8 LI.MENU F 9 IRISFILES F 10 COMPILE.EXT F 11 LI.SETUP.STANDARD F 12 LI.IRISLOGO) W •W ¿og0W°d ¸IµHhZH&¹µíJ kØKo 0W°[d½gMoLkKogWggMgWogggMoh¸IµHhZH&¹µ¦JogWohh o cWNµ'` ¿o` W``W W_džhWOW¿N^°¿(270 FM.CHANGESTATE 262 FM.GETITEM 246 MOVEW 241 MOVEW 230 PRIN1 219 TERPRI 201 FREEMENU 193 \APPEND2 120 PACKFILENAME 94 SUBSTRING 89 CONCAT 64 ALLOCSTRING 51 APPLY 30 NCHARS 10 CLOSEW 4 WINDOWP) (238 LASTMOUSEY 235 LASTMOUSEX 227 PROMPTWINDOW 216 PROMPTWINDOW 177 LABEL 137 ID 134 Source 131 LABEL 115 EXTENSION 111 NAME 108 ID 103 LABEL 80 LABEL 18 MAX) ( 224 "Please put the LoadIris menu somewhere" 198 "Iris Loadup Panel" 183 (TYPE MOMENTARY SELECTEDFN LI.LOAD MESSAGE "Loads the selected Iris files") 174 (LABEL "Load --" TYPE DISPLAY FONT (HELVETICA 12 BOLD)) 142 (TYPE TOGGLE FONT (GACHA 8 STANDARD)) 124 (TYPE TOGGLE FONT (GACHA 8 STANDARD)) 98 (TYPE DISPLAY FONT (GACHA 8 BOLD)) 85 ":" 61 " " 15 ((LABEL Setup%: TYPE DISPLAY FONT (HELVETICA 10 BOLD)) (LABEL CLEAR TYPE MOMENTARY SELECTEDFN LI.SETUP) (LABEL Standard TYPE MOMENTARY SELECTEDFN LI.SETUP) (LABEL Debug TYPE MOMENTARY SELECTEDFN LI.SETUP) (LABEL ALL TYPE MOMENTARY SELECTEDFN LI.SETUP))) LI.SETUP :D4 (P 0 SETUP I 2 BUTTON I 1 WINDOW I 0 ITEM) Ng@Ã‘@‡o@ É °(dHhAHAHðHhAHA¿µÙh(68 FM.CHANGESTATE 62 FM.GETITEM 51 FM.CHANGESTATE 45 FM.GETITEM 31 \EVALV1 28 PACK* 25 U-CASE 17 ERROR) (20 FREEMENUITEM 6 FREEMENUITEM 2 LI.SETUP.) ( 13 "Arg must be FreeMenuItem") IRIS.CREATE.ICON :D4 (P 0 window I 0 position F 1 IRIS.ICON F 2 IRIS.ICON.MASK) 4@³` ¿o` ¿QR@HggHgg(49 PUTWINDOWPROP 39 PUTWINDOWPROP 26 ICONW 19 PRIN1 8 TERPRI) (46 IRIS.DOMENU 43 BUTTONEVENTFN 36 DON'T 33 SHRINKFN 16 PROMPTWINDOW 5 PROMPTWINDOW) ( 13 "Please position the Iris icon somewhere") IRIS.DOMENU :D4 (I 0 window F 2 IRIS.MENU.COMMANDS) I@g ³6@g`dR¿dg ¿dg¿jdnÿdhHdI ¿¿@g (70 MENU 67 GETWINDOWUSERPROP 59 PUTWINDOWPROP 6 GETWINDOWUSERPROP) (64 MENU 32 DEFAULTMENUHELDFN 25 CLRPROMPT 15 |MENUTYPE#| 12 MENU 3 MENU) () IRIS.TRY :D4 (P 0 I) kXló‘h¿¿HkÔ°î(23 LI.TRAVEL 19 LI.CIRCLES 5 IRIS.GINIT 2 OPEN.IRISCONN) NIL () LOADIRIS :D4 (P 0 file I 0 options F 1 LOCATED.IRISFILES F 2 %'DCOMS F 3 %'.DCOM F 4 LOCATED.IRISPATCHFILE F 5 %'SOURCES F 6 %'PROP F 7 %'PATCHES) ;R@²QŽdHS µðU@²Q‹dHV µóW@´T (56 LOAD 41 LOAD? 19 LOAD? 16 PACK*) NIL () INSTALLIRIS :D4 (P 3 F I 1 NOSOURCES I 0 NODCOMS F 4 %'{ERIS}CURRENT> F 5 IRISFILES F 6 %'IRISIO.DCOM) 2UT @U°d[o ¸IµHhZH&¹µèJT VT (47 COPYFILES 42 COPYFILES 20 PACK* 4 COPYFILES) NIL ( 17 ".DCOM") LI.TRAVEL :D4 (P 1 I I 0 COLOR) Q@¨jl b¿nèlIHó³)l ¿¿@ ¿IdlÛIlÛ¿¿Il ÔY°×(78 IRIS.GCONFIG 75 IRIS.SINGLEBUFFER 72 IRIS.GFLUSH 60 IRIS.SWAPBUFFERS 56 IRIS.CIRCF 43 IRIS.COLOR 38 IRIS.CLEAR 34 IRIS.COLOR 13 RAND 5 IRIS.GCONFIG 2 IRIS.DOUBLEBUFFER) NIL () (PRETTYCOMPRINT LOADIRISCOMS) (RPAQQ LOADIRISCOMS ((FILES FREEMENU) (FNS LI.CIRCLES LI.LOAD LI.MAKEMENU LI.SETUP IRIS.CREATE.ICON IRIS.DOMENU IRIS.TRY LOADIRIS INSTALLIRIS LI.TRAVEL) (VARS (IRIS.DIRECTORY (QUOTE {ERIS}NEXT>)) IRIS.MENU.COMMANDS IRISFILES LI.SETUP.ALL LI.SETUP.CLEAR LI.SETUP.DEBUG LI.SETUP.STANDARD LI.SHADE LOCATED.IRISFILES LOCATED.IRISPATCHFILE (LI.MENU)) (BITMAPS LI.DOIT LI.IRISLOGO IRIS.ICON IRIS.ICON.MASK) (P (IRIS.CREATE.ICON) (printout T "Boot the IRIS, then choose 'create IRISview Panel' from the IRIS icon menu." T)))) (FILESLOAD FREEMENU) (RPAQQ IRIS.DIRECTORY {ERIS}NEXT>) (RPAQQ IRIS.MENU.COMMANDS (("Clear IRIS" (CLEARIRIS)) ("Open IRIS stream" (if (MOUSECONFIRM "New stream? (lose fonts, etc.) Left to confirm") then (SETQ IRISCONN) (OPENIRISSTREAM))) ( "Create IRISview panel" (IV.INIT)) ("Enable bootserver" (if (GETD (QUOTE IRISBOOTSERVER)) then ( IRISBOOTSERVER T) else (PROMPTPRINT "IRISNET must be loaded to use the boot server")) "Allows the Lisp Machine to boot the IRIS") ("Disable bootserver" (if (GETD (QUOTE IRISBOOTSERVER)) then (IRISBOOTSERVER NIL) else (PROMPTPRINT "IRISNET must be loaded to use the boot server")) "Prevents the Lisp Machine from booting the IRIS"))) (RPAQQ IRISFILES (IRISSTREAM IRISNET IRISVIEW)) (RPAQQ LI.SETUP.ALL ((IRISSTREAM . T) (IRISSTREAM.LCOM . T) (IRISNET . T) (IRISNET.LCOM . T) ( IRISVIEW.LCOM T) (IRISVIEW T))) (RPAQQ LI.SETUP.CLEAR ((IRISSTREAM) (IRISSTREAM.LCOM) (IRISNET) (IRISNET.LCOM) (IRISVIEW) ( IRISVIEW.LCOM))) (RPAQQ LI.SETUP.DEBUG ((IRISSTREAM . T) (IRISSTREAM.LCOM . T) (IRISVIEW . T) (IRISVIEW.LCOM . T) ( IRISNET.LCOM . T))) (RPAQQ LI.SETUP.STANDARD ((IRISSTREAM.LCOM . T) (IRISNET.LCOM . T) (IRISVIEW.LCOM . T))) (RPAQQ LI.SHADE 18432) (RPAQQ LOCATED.IRISFILES ({QV}IRIS>GL2>IRISLIB {ERIS}IRISSTREAM {ERIS}IRISNET {QV}IRIS>GL2>IRISIO {ERIS}IRISDIGDEMO)) (RPAQQ LOCATED.IRISPATCHFILE {QV}IRIS>GL2>IRISPATCH) (RPAQQ LI.MENU NIL) (RPAQQ LI.DOIT #*(20 12)@@@@@@@@GOOOL@@@D@@@D@@@EHIGD@@@EEEBD@@@EEEBD@@@EEEBD@@@EHIBD@@@D@@@D@@@GOOOL@@@@@@@@@@@@@@@@@@@ ) (RPAQQ LI.IRISLOGO #*(16 16)@NG@CJELFBDFCHAL@NG@NCLGKHAMHNGAHBDAKJEMNBDGHJEACJELFBDFCJEL@NG@) (RPAQQ IRIS.ICON #*(75 82)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@N@N@@@@@@@@@@@@@@@@COAOH@@@@@@@@@@@@@@@OOAON@@@@@@@@@@@@@@COOAOOH@@@@@@@@@@@@@OOOAOON@@@@@@@@@@@@COOOAOOOH@@@@@@@@@@@OOLOANGON@@@@@@@@@@COO@OANAOOH@@@@@@@@@OOL@OAN@GON@@@@@@@@COO@@OAN@AOOH@@@@@@@OOL@@OAN@@GON@@@@@@COO@@@OAN@@AOOH@@@@@OOL@@@OAN@@@GON@@@@COO@@@@OAN@@@AOOH@@@OOL@@@@OAN@@@@GON@@AOO@@@@@OAN@@@@AOO@@COL@@@@@OAN@@@@@GOH@COH@@@@@OAN@@@@@COH@CON@@@@@OAN@@@@@OOH@AOOH@@@@OAN@@@@COO@@@OON@@@@OAN@@@@OON@@@COOH@@@OAN@@@COOH@@@@OON@@@OAN@@@OON@@@A@COOH@@OAN@@COOHA@@CL@OON@@OAN@@OON@GH@CO@COOH@OAN@COOHAOH@COL@OON@OAN@OON@GOH@COO@COOHOANCOOHAOOH@COOL@OONCAHOON@GOOH@COOO@COOH@COOHAOOOH@CLOOL@OON@OON@GONGH@CLCOO@COOKOOHAOOHGH@CL@OOL@OOOON@GON@GH@CL@COO@COOOHAOOH@GH@CL@@OOL@OON@GON@@GH@CL@@COO@COHAOOH@@GH@CL@@@OOL@N@GON@@@GH@CL@@@COO@@AOOH@@@GH@CL@@@@OOL@GON@@@@GH@CL@@@@CON@OOH@@@@GH@CL@@@@@OOAON@@@@@GH@CL@@@@BCOAOHH@@@@GH@CL@@@@OHOANCN@@@@GH@CL@@@COLOANGOH@@@GH@CL@@@OOLOANGON@@@GH@CL@@COO@OANAOOH@@GH@CL@@OOL@OAN@GON@@GH@CL@COO@BOANHAOOH@GH@CL@OOL@NOANN@GON@GH@CLCOO@CNOANOHAOOHGH@CLOOL@ONOANON@GONGH@COOO@CONOANOOHAOOOH@COOL@OOLOANGON@GOOH@COO@COO@OANAOOHAOOH@COL@OOL@OAN@GON@GOH@CO@COO@@OAN@AOOHAOH@CL@OOL@@OAN@@GON@GH@A@COO@@@OAN@@AOOHA@@@@OOL@@@OAN@@@GON@@@@COO@@@@OAN@@@AOOH@@@GOL@@@@OAN@@@@GOL@@@OO@@@@@OAN@@@@AON@@@OL@@@@@OAN@@@@@GN@@@OO@@@@@OAN@@@@AON@@@OOL@@@@OAN@@@@GOL@@@COO@@@@OAN@@@AOOH@@@@OOL@@@OAN@@@GON@@@@@COO@@@OAN@@AOOH@@@@@@OOL@@OAN@@GON@@@@@@@COO@@OAN@AOOH@@@@@@@@OOL@OAN@GON@@@@@@@@@COO@OANAOOH@@@@@@@@@@OOLOANGON@@@@@@@@@@@COOOAOOOH@@@@@@@@@@@@OOOAOON@@@@@@@@@@@@@COOAOOH@@@@@@@@@@@@@@OOAON@@@@@@@@@@@@@@@CN@OH@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ) (RPAQQ IRIS.ICON.MASK #*(75 82)@@@@@@@COKOH@@@@@@@@@@@@@@@OOOON@@@@@@@@@@@@@@COOOOOH@@@@@@@@@@@@@OOOOOON@@@@@@@@@@@@COOOOOOOH@@@@@@@@@@@OOOOOOOON@@@@@@@@@@COOOOOOOOOH@@@@@@@@@OOOOOOOOOON@@@@@@@@COOOOOOOOOOOH@@@@@@@OOOOOOOOOOOON@@@@@@COOOOOOOOOOOOOH@@@@@OOOOOOOOOOOOOON@@@@COOOOOCOOOIOOOOOH@@@OOOOOLCOOOHGOOOON@@COOOOO@COOOHAOOOOOH@GOOOOL@COOOH@GOOOOL@OOOOO@@COOOH@AOOOON@OOOOL@@COOOH@@GOOON@OOOO@@@COOOH@@AOOON@OOON@@@COOOH@@@GOON@OOOOH@@COOOH@@AOOON@OOOON@@COOOH@@GOOON@OOOOOH@COOOH@AOOOON@GOOOON@COOOH@OOOOOL@OOOOOOHCOOOHCOOOOON@OOOOOONCOOOHOOOOOON@OOOOOOOKOOOKOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOCOOOOOOOOOOOOOION@OO@OOOOOOOOOOOONAON@OO@COOOOOOOOOOOHAON@OO@@OOOOOOOOOON@AON@OO@@COOOOOOOOOH@AON@OO@@@OOOOOOOON@@AON@OO@@@COOOOOOOH@@AON@OO@@@OOOOOOOON@@AON@OO@@COOOOOOOOOH@AON@OO@@OOOOOOOOOON@AON@OO@COOOOOOOOOOOHAON@OO@OOOOOOOOOOOONAON@OOCOOOOOOOOOOOOOION@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOOOOOOOOOOOON@OOOOOOOCOOOIOOOOOON@OOOOOOLCOOOHGOOOOON@OOOOOO@COOOHAOOOOON@GOOOOL@COOOH@GOOOOL@COOOO@@COOOH@AOOOOH@COOOL@@COOOH@@GOOOH@COOO@@@COOOH@@AOOOH@COOOL@@COOOH@@GOOOH@COOOO@@COOOH@AOOOOH@COOOOL@COOOH@GOOOOH@AOOOOO@COOOHAOOOOO@@@OOOOOLCOOOHGOOOON@@@COOOOOCOOOIOOOOOH@@@@OOOOOOOOOOOOOON@@@@@COOOOOOOOOOOOOH@@@@@@OOOOOOOOOOOON@@@@@@@COOOOOOOOOOOH@@@@@@@@OOOOOOOOOON@@@@@@@@@COOOOOOOOOH@@@@@@@@@@OOOOOOOON@@@@@@@@@@@COOOOOOOH@@@@@@@@@@@@OOOOOON@@@@@@@@@@@@@COOOOOH@@@@@@@@@@@@@@OOKON@@@@@@@@ ) (IRIS.CREATE.ICON) (printout T "Boot the IRIS, then choose 'create IRISview Panel' from the IRIS icon menu." T) (PUTPROPS LOADIRIS COPYRIGHT ("Xerox Corporation" 1985 1986 1987)) NIL