(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "16-Jun-2023 17:20:31" ("compiled on " {DSK}frank>il>medley>gmedley>greetfiles>APPS-INIT.;11) "20-Jan-2023 22:50:00" tcompl'd in "APPS 20-Jan-2023 ..." dated "20-Jan-2023 22:50:04") (FILECREATED "16-Jun-2023 17:20:09" {DSK}frank>il>medley>gmedley>greetfiles>APPS-INIT.;11 21130 :CHANGES-TO (FNS Apps.DoInit) :PREVIOUS-DATE "19-Jan-2023 12:44:20" {DSK}frank>il>medley>gmedley>greetfiles>APPS-INIT.;10) (BKSYSBUF " ") Apps.InitNotecards :D8 (P 8 BOTTOM P 7 LEFT P 6 PW-REGION P 5 NF P 4 DESTDIR P 3 SRCDIR P 2 DIR P 0 SUBDIR I 0 DoNotRefreshButtons F 9 LOGINDIR F 10 PROMPTWINDOW F 11 NC.NoteCardsIconWindow) ð g µeg ²g o µCoH oH oH hIµihg µ0g ²g o µWo L ’±†K ²}Ko °hZ •Jµ‘i°ŽIY°…dMgogLgMg gMg gMg µ¬W ÉNNØmÿØlØN_¿OO WgogLgogo l2`n¼Ùn&lÜ g` ³ `oh ¿h¿i@¥h(491 Apps.CreateButtons 465 \APPEND2 446 SASSOC 431 NC.FileBrowserMenu 426 CREATEREGION 405 PACKFILENAME 359 NC.BringUpNoteCardsIcon 322 \INSUREWINDOW 310 COPYFILE 305 PACKFILENAME 299 FILENAMEFIELD 283 FILENAMEFIELD 267 FILENAMEFIELD 217 DIRECTORYNAME 208 DIRECTORY 203 CONCAT 190 DIRECTORYNAME 180 DIRECTORYNAME 171 CONCAT 157 CONCAT 147 UNIX-GETENV 135 UNIX-GETENV 123 UNIX-GETENV 96 CONCAT 85 MEDLEYDIR 80 CONCAT 69 MEDLEYDIR 64 CONCAT 58 MEDLEYDIR 43 CONCAT 33 UNIX-GETENV 21 UNIX-GETENV 9 UNIX-GETENV) (484 Apps.NotecardsActivated 477 BackgroundMenu 470 BackgroundMenuCommands 453 BackgroundMenuCommands 441 BackgroundMenuCommands 436 NoteCards 412 SCREENHEIGHT 394 EXTENSION 384 NAME 378 DIRECTORY 368 HOST 294 VERSION 288 VERSION 278 EXTENSION 272 EXTENSION 262 NAME 256 NAME 250 DIRECTORY 240 HOST 142 MEDLEY_USERDIR 130 MEDLEY_USERDIR 118 NOTEFILESDIR 28 NC_INSTALLDIR 16 NC_INSTALLDIR 4 NOTEFILESSRC) ( 458 (NoteCards (NC.BringUpNoteCardsIcon) "Bring up the NoteCards control icon.") 399 "notefile" 389 "*" 373 "DSK" 245 "DSK" 198 "/*" 166 "notefiles" 152 "/notefiles" 90 "../../" 74 "../" 50 "notecards/notefiles" 38 "/notefiles") Apps.DoInit :D8 (P 0 W F 1 USERNAME F 2 INITIALSLST) S±™dH Égð²Hd É`lÙ °gH É(o ²Hl2`lxÙ ¿H °9H É(o ²&Hgo ¿Hl2`nÌÙ ¿µ‚±ÿfQg g hhcgi g o ³g o šo ¿g o –i ¿g o –i ¿i gh (336 SETTOPVAL 325 Apps.CreateButtons 318 Apps.ActivateRooms 311 CL::SIMPLE-STRING-EQUAL 301 UNIX-GETENV 290 Apps.InitNotecards 283 CL::SIMPLE-STRING-EQUAL 273 UNIX-GETENV 263 Apps.ActivateCLOS 257 BKSYSBUF 246 CL::SIMPLE-STRING-EQUAL 236 UNIX-GETENV 224 CL::SIMPLE-STRING-EQUAL 214 UNIX-GETENV 204 LOAD 185 UNIX-GETENV 175 UNIX-GETENV 154 MOVEW 135 PUTWINDOWPROP 117 STREQUAL 105 \INSUREWINDOW 97 CLEARW 90 MOVEW 71 STREQUAL 59 \INSUREWINDOW 51 MOVEW 35 \INSUREWINDOW 18 \INSUREWINDOW 4 OPENWINDOWS) (330 \NC.SourceAccessFlg 296 RUN_ROOMS 268 RUN_NOTECARDS 231 NCO 209 MEDLEY_EXEC 198 {DSK}/usr/local/interlisp/medley/lispusers/HELPSYS.LCOM 180 MEDLEY_INITIALS 170 MEDLEY_FIRSTNAME 144 SCREENHEIGHT 125 TITLE 81 SCREENHEIGHT 43 SCREENHEIGHT 25 WHEN-WHO-LINE-SELECTED-FN) ( 306 "true" 278 "true" 252 "(EXEC_INTERLISP)" 241 "true" 219 "inter" 130 "Exec (INTERLISP)" 112 "Exec (XCL)" 66 "Prompt Window") Apps.CreateButtonsA0001 :D8 (I 0 BUTTON) `lålð´@ (18 EXECUTE-BUTTON) (4 LASTMOUSEBUTTONS) () Apps.CreateButtons :D8 (P 40 B P 35 IW P 34 B P 33 B P 32 DOC P 28 B P 26 W P 24 B P 23 FEATURE P 19 B P 17 W P 15 BUTTONS P 14 IWS P 13 FEATURES-REQUIREDP P 12 BUTTONY-DOCS P 11 BUTTONY-FEATURES P 10 SECTION2YPOS P 6 YPOSDELTA P 5 SECTION1YPOS P 4 RIGHTMARGINISH P 3 DOCS-LABELS P 2 DOCS P 1 FEATURES-LABELS P 0 FEATURES I 0 DoDocsToo F 41 *ALL-BUTTONS*) Ø)`ooh`oohha0 H°d_¿Oµ Oh_‚O&_¿µåO¹oohoohoohoohoohhº0 J°d_¿Oµ Oh_‚O&_¿µæO»lŒ¼lá½l7¾MJ kØNÚØQO_¿M_¿`hðµ `hð_¿h__¿O µ`WRO$µ‚±‚O¢±o`Ll2ÙÙ`OlÙÙ o`Ll2ÙÙ`OÙ h_¿@H±¿_"g ooh —O" ¿O _ ±ÿr_&g gð²O& I —O& ¿O$_$±ÿJd_.µ?ONØ_¿O.O.`LÙ`OÙ _0gg ¿O0_(¿O*µ O(h_,‚O(&_*¿µ¦O,_¿@¢±O2µ6WRO6µTo`Ll2ÙÙ`MÙ O_¿@ J±¼_4g oh —O4 ¿O2_2°¢_8g gð²O8 K —O8 ¿O6_6±ÿ{d_@¿!ONØ_¿gO@hO@`LÙ`OÙ _Bgg ¿OB_:¿O<µ O:h_>‚O:&_<¿µ¢O>O _°:O°6d"OD ²&ODgg ¿ODgg ¿µËO°$d#OF ²OFgg ¿µÝOA(OHµOJ_P ²OP_N¿OLµONh_L_J¿OH_H°ÙON&_L¿°ó(947 WINDOWP 920 PUTWINDOWPROP 901 WINDOWP 879 PUTWINDOWPROP 861 PUTWINDOWPROP 842 WINDOWP 822 \APPEND2 784 PUTWINDOWPROP 767 CREATE-BUTTON 707 DELETE-BUTTON 699 MEMBER 693 BUTTON-LABEL 678 GETWINDOWUSERPROP 657 CLOSEW 649 MEMBER 637 GETWINDOWUSERPROP 611 Apps.CreateLabel 564 OPENWINDOWS 520 PUTWINDOWPROP 503 CREATE-BUTTON 447 DELETE-BUTTON 439 MEMBER 433 BUTTON-LABEL 418 GETWINDOWUSERPROP 396 CLOSEW 388 MEMBER 370 GETWINDOWUSERPROP 344 Apps.CreateLabel 316 Apps.CreateLabel 255 OPENWINDOWS 208 LENGTH) (915 NILL 910 RIGHTBUTTONFN 874 Apps.CreateButtonsA0001 869 BUTTONEVENTFN 856 NILL 851 RIGHTBUTTONFN 779 DOC 774 Apps.BUTTON 758 SCREENHEIGHT 751 SCREENWIDTH 736 Apps.ShowDoc 683 DOC 673 Apps.BUTTON 632 ICONLABEL 604 SCREENHEIGHT 594 SCREENWIDTH 515 FEATURE 510 Apps.BUTTON 494 SCREENHEIGHT 487 SCREENWIDTH 423 FEATURE 413 Apps.BUTTON 365 ICONLABEL 336 SCREENHEIGHT 326 SCREENWIDTH 305 SCREENHEIGHT 295 SCREENWIDTH 239 Apps.NotecardsActivated 230 Apps.RoomsActivated 23 Apps.RoomsActivated 4 Apps.NotecardsActivated) ( 642 "DOCUMENTATION" 589 "DOCUMENTATION" 380 "FEATURES" 375 "ACTIVATE" 321 "FEATURES" 290 "ACTIVATE" 144 "ROOMS" 139 "https://interlisp.org/documentation/ROOMSTECHDESC.pdf" 131 "NOTECARDS" 126 "https://interlisp.org/documentation/notecards_user_guide_v1.2.pdf" 118 "MANUAL" 113 "https://interlisp.org/documentation/IRM.pdf" 105 "PRIMER" 100 "https://interlisp.org/documentation/Medley-Primer.pdf" 92 "BASICS" 87 "https://interlisp.org/docs/medley/orientation/" 33 "ROOMS" 28 (Apps.ActivateRooms) 14 "NOTECARDS" 9 (Apps.InitNotecards)) Apps.CreateLabel :D8 (P 7 IW P 6 POS P 5 BM P 4 BMH P 3 BMW P 2 SR P 1 FONT P 0 DS I 2 BottomY I 1 CenterX I 0 Text) loH @H J»JJØKL !AKlÛÙB¾MH @H MdN _dg@ O(103 PUTWINDOWPROP 89 ICONW 81 PRIN1 74 DSPDESTINATION 55 BITMAPCREATE 28 STRINGREGION 18 DSPFONT 4 DSPCREATE) (97 ICONLABEL) ( 12 (HELVETICA 18 BOLD)) Apps.ActivateCLOS :D8 NIL 1o` ³`oh hh(33 \APPEND2 14 SASSOC) (44 BackgroundMenu 38 BackgroundMenuCommands 21 BackgroundMenuCommands 9 BackgroundMenuCommands) ( 26 ("CLOS Browse Class" (CLOS-BROWSER::BROWSE-CLASS) "Bring up a class browser." (SUBITEMS (|all in a package| (CLOS-BROWSER::BROWSE-CLASS (CLOS-BROWSER::CLASSES-IN-PACKAGE (CLOS-BROWSER::IN-SELECT-PACKAGE))) "Select a package and browse all the classes defined in that package."))) 4 "CLOS Browse Class") Apps.ActivateRooms :D8 (I 0 DoNotRefreshButtons) Po` ¥¿g o `io @¥h(75 Apps.CreateButtons 68 PROMPTPRINT 41 CONCAT 31 UNIX-GETENV 20 ROOMS:RESET 14 SASSOC) (58 Apps.RoomsActivated 52 ROOMS:*SUITE-DIRECTORIES* 46 ROOMS:*SUITE-DIRECTORIES* 26 MEDLE_USERDIR 9 BackgroundMenuCommands) ( 63 " ROOMS functionality is now available via the Background Menu" 36 "/suites" 4 "Rooms") Apps.ShowDoc :D8 (I 0 URL) @ (5 ShellBrowse) NIL () XCL-USER::EXEC_INTERLISP :D8 (P 0 W) _°AdH É(o ²&Hgo ¿Hl2`nÌÙ ¿µÀg g (92 XCL:SET-EXEC-TYPE 82 XCL:SET-DEFAULT-EXEC-TYPE 66 MOVEW 47 PUTWINDOWPROP 29 STREQUAL 17 \INSUREWINDOW 4 OPENWINDOWS) (87 INTERLISP 77 INTERLISP 56 SCREENHEIGHT 37 TITLE) ( 42 "Exec (INTERLISP)" 24 "Exec (XCL)") (PRETTYCOMPRINT APPS-INITCOMS) (RPAQQ APPS-INITCOMS ((FILES (SYSLOAD) MEDLEYDIR-INIT) (GLOBALVARS Apps.NotecardsActivated Apps.RoomsActivated) (INITVARS (Apps.NotecardsActivated NIL) (Apps.RoomsActivated NIL)) (FNS Apps.InitNotecards Apps.DoInit Apps.CreateButtons Apps.CreateLabel Apps.ActivateCLOS Apps.ActivateRooms Apps.ShowDoc XCL-USER::EXEC_INTERLISP) (DECLARE%: DONTEVAL@LOAD DOCOPY (P ( Apps.DoInit))) (DECLARE%: FIRST DONTEVAL@LOAD DOCOPY (P (BKSYSBUF " "))))) (FILESLOAD (SYSLOAD) MEDLEYDIR-INIT) (RPAQ? Apps.NotecardsActivated NIL) (RPAQ? Apps.RoomsActivated NIL) (Apps.DoInit) NIL