(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "25-Jan-98 12:58:13" ("compiled on " {DSK}sources>DSKDISPLAY.;1) "30-Mar-95 20:33:04" bcompl'd in "Medley 14-Aug-95 ..." dated "14-Aug-95 15:27:48") (FILECREATED "21-Jun-90 13:01:45" {DSK}oze>yabu>DSKDISPLAY.;1 11124 changes to%: (VARS DSKDISPLAYCOMS) previous date%: "16-May-90 16:16:07" |{PELE:MV:ENVOS}SOURCES>DSKDISPLAY.;2|) DSKDISPLAY :D8 (L (0 newState)) …dgð¨dgð´o¿´g`@dgð¨dgð²9¿¿`go` ¿` °gð›@¿H(129 \DSKDISPLAY.DESTROY.WINDOW 108 REDISPLAYW 97 PUTWINDOWPROP 92 CONCAT 66 \DSKDISPLAY.CREATE.WINDOW 27 \PFEnsureInitialized 4 MACHINETYPE) (123 \DSKDISPLAY.STATE 115 CLOSED 103 \DSKDISPLAY.WINDOW 87 \DSKDISPLAY.STATE 77 TITLE 72 \DSKDISPLAY.WINDOW 60 \DSKDISPLAY.STATE 52 OFF 44 ON 34 \DSKDISPLAY.STATE 18 DOVE 10 DANDELION) ( 82 "Local File System Display: ") \DSKDISPLAY.BUTTONEVENTFN :D8 (L (0 W)) m¿`låjð¦@ ¿`kåjð³C`do¿dg ¿dg¿jdnÿdhHdI ¿ h(104 DSKDISPLAY 99 MENU 28 GETMOUSESTATE 22 \DSKDISPLAY.REPAINTFN 4 GETMOUSESTATE) (70 DEFAULTMENUHELDFN 61 CLRPROMPT 45 |MENUTYPE#| 34 LASTMOUSEBUTTONS 10 LASTMOUSEBUTTONS) ( 52 (ON OFF CLOSED)) \DSKDISPLAY.UPDATE :D8 NIL %`gð´` ´ ` (34 REDISPLAYW 22 WINDOWP) (29 \DSKDISPLAY.WINDOW 17 \DSKDISPLAY.WINDOW 9 ON 4 \DSKDISPLAY.STATE) () \DSKDISPLAY.CREATE.WINDOWA0001 :D8 (L (0 W)) @ @ ÉHH(11 \INSUREWINDOW 5 \DSKDISPLAY.REPAINTFN) (27 DSKDISPLAY.POSITION) () \DSKDISPLAY.CREATE.WINDOWA0002 :D8 (L (1 POS 0 W)) ANIL (5 DSKDISPLAY.POSITION) () \DSKDISPLAY.CREATE.WINDOWA0003 :D8 NIL g (9 DSKDISPLAY) (4 CLOSED) () \DSKDISPLAY.CREATE.WINDOW :D8 NIL Å` ’±·``n,`È  lØÚ`lÚØ`È Øho dgg `gg `gg `gg `gg h(192 PUTWINDOWPROP 172 PUTWINDOWPROP 152 PUTWINDOWPROP 132 PUTWINDOWPROP 112 PUTWINDOWPROP 91 CREATEW 50 LENGTH 45 \PFGetVols 9 WINDOWP) (187 \DSKDISPLAY.CREATE.WINDOWA0003 182 CLOSEFN 177 \DSKDISPLAY.WINDOW 167 \DSKDISPLAY.BUTTONEVENTFN 162 BUTTONEVENTFN 157 \DSKDISPLAY.WINDOW 147 \DSKDISPLAY.CREATE.WINDOWA0002 142 MOVEFN 137 \DSKDISPLAY.WINDOW 127 \DSKDISPLAY.CREATE.WINDOWA0001 122 RESHAPEFN 117 \DSKDISPLAY.WINDOW 107 \DSKDISPLAY.REPAINTFN 102 REPAINTFN 96 \DSKDISPLAY.WINDOW 73 FONTDESCRIPTOR 68 WindowTitleDisplayStream 59 WBorder 38 FONTDESCRIPTOR 33 \DSKDISPLAY.FONT 24 DSKDISPLAY.POSITION 18 DSKDISPLAY.POSITION 4 \DSKDISPLAY.WINDOW) ( 86 "1108 Local File System") \DSKDISPLAY.DESTROY.WINDOW :D8 NIL A` ´5`g ³#`gi ` hh(54 CLOSEW 44 PUTWINDOWPROP 26 GETWINDOWUSERPROP 9 WINDOWP) (60 \DSKDISPLAY.WINDOW 49 \DSKDISPLAY.WINDOW 38 CLOSING 33 \DSKDISPLAY.WINDOW 21 CLOSING 16 \DSKDISPLAY.WINDOW 4 \DSKDISPLAY.WINDOW) () \DSKDISPLAY.REPAINTFN :D8 (L (0 W)) 7@ `@ ¿o@ ¿`@ ¿g @ ¿`@ ¿@ ¿o@ ¿@ ±Èd`@ ¿H •o„o@ ¿H @ ¿o@ ¿`@ ¿HlÐHlÐl( @ ¿o@ ¿`@ ¿lHÈHÈõjhd@ ¿o@ ¿l#HÈXHÈWõjhd@ ¿o@ ¿@ µ‚±ÿ7h(298 TERPRI 291 PRIN1 279 FLUSHRIGHT 259 PRIN1 247 FLUSHRIGHT 227 CHANGEFONT 215 PRIN1 203 PRIN1 197 \PFFetchString 181 CHANGEFONT 169 PRIN1 157 PRIN1 151 \PFVolumeNumber 144 PRIN1 126 \LFDirectoryP 119 CHANGEFONT 100 \PFGetVols 95 TERPRI 88 PRIN1 76 TERPRI 69 CHANGEFONT 57 PRIN1 51 DIRECTORYNAME 40 CHANGEFONT 28 PRIN1 16 CHANGEFONT 5 CLEARW) (221 \DSKDISPLAY.FONT 175 \DSKDISPLAY.BOLD 113 \DSKDISPLAY.FONT 63 \DSKDISPLAY.FONT 46 {DSK} 34 \DSKDISPLAY.BOLD 10 \DSKDISPLAY.FONT) ( 285 " Free" 253 " Pages" 209 " " 163 " " 138 " " 132 "* " 82 "Logical Volumes:" 22 "Default directory: ") \DSKDISPLAY.RESHAPEFN :D8 (L (0 W)) @ @ ÉHHh(11 \INSUREWINDOW 5 \DSKDISPLAY.REPAINTFN) (27 DSKDISPLAY.POSITION) () (PRETTYCOMPRINT DSKDISPLAYCOMS) (RPAQQ DSKDISPLAYCOMS ((DECLARE%: EVAL@COMPILE DONTCOPY (FILES (LOADCOMP) LOCALFILE)) (DECLARE%: ( LOCALVARS . T)) (FNS DSKDISPLAY \DSKDISPLAY.BUTTONEVENTFN \DSKDISPLAY.UPDATE \DSKDISPLAY.CREATE.WINDOW \DSKDISPLAY.DESTROY.WINDOW \DSKDISPLAY.REPAINTFN \DSKDISPLAY.RESHAPEFN) (GLOBALVARS \DSKDISPLAY.FONT \DSKDISPLAY.BOLD \DSKDISPLAY.STATE \DSKDISPLAY.WINDOW DSKDISPLAY.POSITION) (INITVARS (\DSKDISPLAY.FONT (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (\DSKDISPLAY.BOLD (FONTCREATE (QUOTE GACHA) 10 (QUOTE BRR) )) (DSKDISPLAY.POSITION (CONS 100 50)) (* ; " Original was (CREATE POSITION XCOORD _ 100 YCOORD _ 50).") (* ; "Changed by yabu.fx, for SUNLOADUP without DWIM.") (\DSKDISPLAY.STATE (QUOTE CLOSED)) ( \DSKDISPLAY.WINDOW NIL)))) (DECLARE%: DOEVAL@COMPILE DONTCOPY (LOCALVARS . T)) (RPAQ? \DSKDISPLAY.FONT (FONTCREATE (QUOTE GACHA) 10 (QUOTE MRR))) (RPAQ? \DSKDISPLAY.BOLD (FONTCREATE (QUOTE GACHA) 10 (QUOTE BRR))) (RPAQ? DSKDISPLAY.POSITION (CONS 100 50)) (RPAQ? \DSKDISPLAY.STATE (QUOTE CLOSED)) (RPAQ? \DSKDISPLAY.WINDOW NIL) (PUTPROPS DSKDISPLAY COPYRIGHT ("Venue & Xerox Corporation" 1985 1987 1990)) NIL