(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED " 9-Sep-94 14:05:16" ("compiled on " {DSK}lispusers>MONITOR.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "14-Mar-88 17:29:38" |{MCS:MCS:STANFORD}MONITOR.;9| 10032 changes to%: (VARS MONITORCOMS) (FNS MONITOR.GET.BITMAP MONITOR MONITOR.BUTTONEVENTFN MONITOR.SHRINK.BITMAP MONITOR.SEND.BITMAP) (COURIERPROGRAMS MONITOR) previous date%: "14-Mar-88 09:15:11" |{MCS:MCS:STANFORD}MONITOR.;1|) MONITORA0001 :D8 (I 0 WINDOW) @g @gh (27 PUTWINDOWPROP 15 CLOSEF? 10 GETWINDOWUSERPROP) (21 CLOSEUP.WINDOW 5 COURIER.STREAM) () MONITOR :D8 (P 3 CLOSEUP.WINDOW P 2 SCREEN.WINDOW P 1 BITMAP P 0 COURIER.STREAM I 1 SCALE I 0 HOST) ñ@ QA§`b¿HA Yd I lÖ \LLLl× ZIhdJ J É]MMØMI @ h@ [dJ HAhJ hdK JgA JgH JgK Jgg Jgg J(237 WINDOWADDPROP 221 PUTWINDOWPROP 205 PUTWINDOWPROP 193 PUTWINDOWPROP 181 PUTWINDOWPROP 169 BKBITBLT 161 MONITOR.GET.BITMAP 156 DSPCLIPPINGREGION 147 ATTACHWINDOW 139 CREATEW 128 HEIGHTIFWINDOW 122 BITMAPHEIGHT 99 \INSUREWINDOW 93 BKBITBLT 83 CREATEW 78 CREATEREGION 56 GETBOXREGION 48 HEIGHTIFWINDOW 43 BITMAPHEIGHT 37 WIDTHIFWINDOW 32 BITMAPWIDTH 25 MONITOR.GET.BITMAP 5 COURIER.OPEN) (232 MONITORA0001 227 CLOSEFN 216 MONITOR.BUTTONEVENTFN 211 BUTTONEVENTFN 199 CLOSEUP.WINDOW 187 COURIER.STREAM 175 MONITOR.SCALE 15 MONITOR.SCALE) () MONITOR.GET.BITMAPA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BULK.DATA.STREAM F 1 SI::*RESETFORMS* F 2 STREAM F 3 SCALE F 4 REGION) .gRggSTh chhdQcP (43 READBM 24 COURIER.CALL) (15 SEND.BITMAP 10 MONITOR 4 CLOSEF?) () MONITOR.GET.BITMAP :D8 (P 3 RESETSTATE P 2 SI::*RESETFORMS* P 1 LISPXHIST P 0 BULK.DATA.STREAM I 2 REGION I 1 SCALE I 0 STREAM F 4 LISPXHIST) !T!g ¿$(26 SI::RESETUNWIND 21 \MVLIST 16 MONITOR.GET.BITMAPA0001) (11 SI::RESETUNWIND) () MONITOR.BUTTONEVENTFNA0002 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW F 1 SCALE) Pg Q hdP (24 BKBITBLT 16 MONITOR.GET.BITMAP 10 GETWINDOWUSERPROP) (5 COURIER.STREAM) () MONITOR.BUTTONEVENTFN :D8 (P 11 SI::*RESETFORMS* P 3 CLIPPINGREGION P 2 POSITION P 1 REGION P 0 SCALE I 0 WINDOW) f @g ¡ ¿`låjð’±h@ [¼hdLH×LH× Y¿¿`lå]jð¬M´|M ´tIŸInÿÿg@ ¿@g Hh@J _¿IHOÖ¿I_HOÖ¿O_K¿O_K¿Oh¿I hd@g @J Z^Ið—NIð³2IdŸnÿÿg@ ¿IJ¿IJ¿Inÿÿg@ ±ÿ+±ÿ#¿`kåjð³4g` hhh g ¿$h(349 SI::RESETUNWIND 344 \MVLIST 339 MONITOR.BUTTONEVENTFNA0002 319 CURSOR 292 GETMOUSESTATE 284 BLOCK 276 DSPFILL 249 DSPFILL 216 CURSORPOSITION 208 BKBITBLT 203 GETWINDOWUSERPROP 190 MONITOR.GET.BITMAP 134 CURSORPOSITION 125 GETWINDOWUSERPROP 113 DSPFILL 93 \FZEROP 69 GETMOUSESTATE 62 CREATEREGION 40 DSPCLIPPINGREGION 18 GETMOUSESTATE 10 GETWINDOWUSERPROP) (334 SI::RESETUNWIND 314 WAITINGCURSOR 309 CURSOR 298 LASTMOUSEBUTTONS 270 INVERT 243 INVERT 198 CLOSEUP.WINDOW 120 COURIER.STREAM 107 INVERT 75 LASTMOUSEBUTTONS 24 LASTMOUSEBUTTONS 5 MONITOR.SCALE) () MONITOR.SHRINK.BITMAP :D8 (P 5 X P 3 Y P 1 WIDTH P 0 HEIGHT I 3 SCRATCH I 2 DESTINATION I 1 SCALE I 0 SOURCE) ŽAk š@hdB BjC ¿jB ¿@ @ HkÙjKJó³#@jKCjKA×Ikgg ¿KkÔ[°ÝIkÙjMLó³§CMjBMA×jkHgg ¿MkÔ]°Ý(133 BKBITBLT 87 BKBITBLT 46 BITMAPWIDTH 40 BITMAPHEIGHT 33 BLTSHADE 25 BLTSHADE 16 BKBITBLT 6 EQP) (127 PAINT 122 INPUT 81 PAINT 76 INPUT) () MONITOR.SEND.BITMAP :D8 (P 0 SCRATCH.BITMAP I 5 BULK.DATA.STREAM I 4 REGION I 3 SCALE I 2 PROCEDURE I 1 PROGRAM I 0 COURIERSTREAM) –C`H³FC`C×`C× ``C× hX`¿D²%jH ¿DDH ¿EH°ECHH o(142 WRITEBM 137 MONITOR.SHRINK.BITMAP 124 SCREENBITMAP 111 BKBITBLT 98 SCREENBITMAP 92 BLTSHADE 63 BITMAPCREATE 39 BITMAPCREATE) (79 MONITOR.SCRATCH.BITMAPS 73 MONITOR.SCRATCH.BITMAPS 52 WHOLESCREEN 44 WHOLESCREEN 28 WHOLESCREEN 18 WHOLESCREEN 5 MONITOR.SCRATCH.BITMAPS) ( 147 (RETURN)) (PRETTYCOMPRINT MONITORCOMS) (RPAQQ MONITORCOMS ((FNS MONITOR MONITOR.GET.BITMAP MONITOR.BUTTONEVENTFN MONITOR.SHRINK.BITMAP MONITOR.SEND.BITMAP) (COURIERPROGRAMS MONITOR) (INITVARS (MONITOR.SCALE 3) MONITOR.SCRATCH.BITMAPS) ( GLOBALVARS MONITOR.SCALE MONITOR.SCRATCH.BITMAPS) (DECLARE%: DONTCOPY (RECORDS MONITOR.SCRATCH.BITMAP) ) (FILES COURIERSERVE BITMAPFNS) (P (COURIER.START.SERVER)))) (COURIERPROGRAM MONITOR (1118 0) TYPES ((SCALE INTEGER) (REGION (SEQUENCE INTEGER))) PROCEDURES (( SEND.BITMAP 0 (SCALE REGION BULK.DATA.SINK) RETURNS NIL REPORTS NIL IMPLEMENTEDBY MONITOR.SEND.BITMAP) ) ERRORS NIL) (RPAQ? MONITOR.SCALE 3) (RPAQ? MONITOR.SCRATCH.BITMAPS NIL) (FILESLOAD COURIERSERVE BITMAPFNS) (COURIER.START.SERVER) NIL