(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP") (FILECREATED "14-Sep-94 18:23:35" ("compiled on " {DSK}lispusers>REGION.;1) "28-Jul-94 17:28:46" bcompl'd in "Medley 25-Aug-94 ..." dated "25-Aug-94 10:02:49") (FILECREATED "13-Nov-87 15:59:49" {QV}LISP>LYRIC>USERS>REGION.;5 9127 changes to%: (VARS REGIONCOMS) (FNS MAKEREGIONEVENT ENABLE-WINDOW DISABLE-WINDOW REMOVEREGIONEVENT ADDREGIONEVENT) ( VARIABLES DISABLEDFLG) (PROPS (REGION MAKEFILE-ENVIRONMENT)) previous date%: "12-Nov-87 18:11:28" {QV}LISP>LYRIC>USERS>REGION.;4) ADDREGIONEVENT :D8 (I 1 RegionEvent I 0 Window) @gAi (12 WINDOWADDPROP) (5 REGIONEVENTLST) () DISABLE-WINDOW :D8 (P 1 T3 P 0 T0 I 0 Window) U`dið‘hµ @h ž@`h`¨@h@`HI‘I‚HI(26 WINDOWP) (82 DISABLEDFLG 64 DISABLEDFLG 57 DISABLEDFLG 47 DISABLEDFLG 41 DISABLEDFLG 33 DISABLEDFLG 20 DISABLEDFLG 4 DISABLEDFLG) () DISABLED-WINDOW? :D8 (L (0 Window) F 0 DISABLEFLG) PiðµP@ðµ P´@PNIL NIL () ENABLE-WINDOW :D8 (I 0 Window) +`d@ð—¿h›@` o (40 ERROR 29 DREMOVE) (24 DISABLEDFLG 15 DISABLEDFLG 4 DISABLEDFLG) ( 35 "Can't enable just one window when DISABLEDFLG is T.") MAKEREGIONEVENT :D8 (L (6 RepaintFn 5 OutFn 4 InFn 3 MovedFn 2 ButtonFn 1 Data 0 EventRegion)) @BCDEFAhNIL NIL () MOUSE-POSITION :D8 (I 0 Window) @g @g (21 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (16 LASTMOUSEY 5 LASTMOUSEX) () MOUSE-REGIONS :D8 (P 4 Reg I 0 Window) H@g AHµI\@g @g ™L»Jµ KhZ¹HX°ÏK&º°ø(49 INSIDEP 44 GETWINDOWUSERPROP 33 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (39 LASTMOUSEY 28 LASTMOUSEX 5 REGIONEVENTLST) () REGIONEVENTFN :D8 (P 2 FN P 1 Reg I 0 Window) /@ ¬@ !HµhYZœ@d lJ¿HX°å(34 MOUSE-POSITION 12 MOUSE-REGIONS 5 DISABLED-WINDOW?) NIL () REGIONINFN :D8 (P 2 FN P 1 Reg I 0 Window) 2@ @ ¬@ !HµhYZ—@IlJ¿HX°è(18 MOUSE-REGIONS 11 DISABLED-WINDOW? 5 UPDATE-MOUSE-IN-WINDOW) NIL () REGIONMOVEDFN :D8 (P 4 FN P 3 Reg P 1 NewActives P 0 OldActives I 0 Window) ‘@ @ @ ³5@ YHI !Jµ"HI !Jµ,IH !Jµ3h[\œ@d lL¿JZ°Æ[\—@KlL¿JZ°¿[\—@KlL¿JZ°¹(89 MOUSE-POSITION 66 LDIFFERENCE 51 LDIFFERENCE 36 INTERSECTION 28 MOUSE-REGIONS 20 DISABLED-WINDOW? 14 UPDATE-MOUSE-IN-WINDOW 5 MOUSE-REGIONS) NIL () REGIONOUTFN :D8 (P 2 FN P 1 Reg I 0 Window) 8@ ­@ !Hµ@ gYZ—@IlJ¿HX°Ü(26 UPDATE-MOUSE-IN-WINDOW 12 MOUSE-REGIONS 5 DISABLED-WINDOW?) (31 ;) () REGIONREPAINTFN :D8 (P 2 FN P 1 Reg I 1 RepaintRegion I 0 Window) ?@ ³@g !Hµh¹AI ²IZ—@IlJ¿HX°Û(37 REGIONSINTERSECTP 18 GETWINDOWUSERPROP 5 DISABLED-WINDOW?) (13 REGIONEVENTLST) () REMOVEREGIONEVENT :D8 (I 1 RegionEvent I 0 Window) @gA (11 WINDOWDELPROP) (5 REGIONEVENTLST) () SET-REGIONS :D8 (I 1 RegionEvents I 0 Window) @gA @ @ (23 UPDATE-MOUSE-IN-WINDOW 17 SETUP-FOR-REGIONS 11 PUTWINDOWPROP) (5 REGIONEVENTLST) () SETUP-FOR-REGIONS :D8 (I 0 Window) R@gg @gg @gg @gg @gg (79 PUTWINDOWPROP 63 PUTWINDOWPROP 47 PUTWINDOWPROP 31 PUTWINDOWPROP 15 PUTWINDOWPROP) (74 REGIONEVENTFN 69 BUTTONEVENTFN 58 REGIONMOVEDFN 53 CURSORMOVEDFN 42 REGIONREPAINTFN 37 REPAINTFN 26 REGIONOUTFN 21 CURSOROUTFN 10 REGIONINFN 5 CURSORINFN) () UPDATE-MOUSE-IN-WINDOW :D8 (P 0 WinReg I 0 Window) /@ É@g@ @g@ (44 PUTWINDOWPROP 39 LASTMOUSEX 27 PUTWINDOWPROP 22 LASTMOUSEX 5 \INSUREWINDOW) (33 LASTMOUSEY 16 LASTMOUSEX) () (PRETTYCOMPRINT REGIONCOMS) (RPAQQ REGIONCOMS ((RECORDS REGIONEVENT) (FNS ADDREGIONEVENT DISABLE-WINDOW DISABLED-WINDOW? ENABLE-WINDOW MAKEREGIONEVENT MOUSE-POSITION MOUSE-REGIONS REGIONEVENTFN REGIONINFN REGIONMOVEDFN REGIONOUTFN REGIONREPAINTFN REMOVEREGIONEVENT SET-REGIONS SETUP-FOR-REGIONS UPDATE-MOUSE-IN-WINDOW) ( GLOBALVARS DISABLEDFLG) (PROP MAKEFILE-ENVIRONMENT REGION) (VARIABLES DISABLEDFLG))) (RECORD REGIONEVENT (EVENTREGION REGIONBUTTONFN REGIONMOVEDFN REGIONINFN REGIONOUTFN REGIONREPAINTFN DATA)) (PUTPROPS REGION MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP")) (CL:DEFVAR DISABLEDFLG NIL "NIL -> REGIONs is running for all windows; T -> REGIONs is off for all windows; Window or list of windows -> REGIONs is disabled for the specified windows." ) (PUTPROPS REGION COPYRIGHT ("Xerox Corporation" 1987)) NIL