(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Oct-2023 10:56:48" ("compiled on " {WMEDLEY}MODERNIZE.;48) "28-Oct-2023 21:26:59" brecompiled changes%: NEARESTCORNER in "FULL 28-Oct-2023 ..." dated "28-Oct-2023 21:27:05") (FILECREATED "29-Oct-2023 10:56:48" {WMEDLEY}MODERNIZE.;48 30909 :EDIT-BY rmk :CHANGES-TO ( FNS NEARESTCORNER) :PREVIOUS-DATE "29-Jul-2023 10:48:55" {WMEDLEY}MODERNIZE.;47) MODERNWINDOW :D8 (I 2 TITLEPROPORTION I 1 ANYWHERE I 0 WINDOW) B|@g &@g@g @gh @g@  @gABEgogghigBhhhoo qg @(158 PUTWINDOWPROP 144 ERROR 70 PUTWINDOWPROP 63 \INSUREWINDOW 50 PUTWINDOWPROP 37 PUTWINDOWPROP 32 GETWINDOWUSERPROP 13 GETWINDOWUSERPROP) (153 MODERNWINDOW.BUTTONEVENTFN 108 QUOTE 101 WINDOW 96 MODERNWINDOW.BUTTONEVENTFN 86 LAMBDA 76 BUTTONEVENTFN 57 PREMODERN-BUTTONEVENTFN 44 PREMODERN-BUTTONEVENTFN 27 PREMODERN-BUTTONEVENTFN 21 BUTTONEVENTFN 8 PREMODERN-BUTTONEVENTFN) ( 139 "TITLEPROPORTION cannot be greater than .5" 129 0.5 91 (WINDOW)) MODERNWINDOW.SETUP :D8 (P 1 RENAMEDORIG P 0 PKGNAME I 3 TITLEPROPORTION I 2 ANYWHERE I 1 MODERNWINDOWFN I 0 ORIGFN) @ Cn@ @ Ho og@ H Y@I A%@g@ g@ '@ $@ oo @ gIhBChh (175 PUTD 149 ARGLIST 140 ERROR 121 MOVD 112 ARGLIST 103 ARGLIST 92 ARGLIST 77 MOVD? 69 CL:INTERN 63 CONCAT 45 STREQUAL 31 CL:PACKAGE-NAME 26 CL:SYMBOL-PACKAGE 20 MODERNWINDOW.UNSETUP 5 \DEFINEDP) (154 FUNCTION 97 MODERNWINDOW.BUTTONEVENTFN 86 LAMBDA 57 MODERN-ORIG-) ( 135 "TITLEPROPORTION cannot be greater than .5" 127 0.5 51 "INTERLISP" 40 "XEROX-COMMON-LISP") UNMODERNWINDOW :D8 (I 0 WINDOW) 3@g %@g@g @gh @(47 PUTWINDOWPROP 34 PUTWINDOWPROP 29 GETWINDOWUSERPROP 10 GETWINDOWUSERPROP) (41 PREMODERN-BUTTONEVENTFN 24 PREMODERN-BUTTONEVENTFN 18 BUTTONEVENTFN 5 PREMODERN-BUTTONEVENTFN) () MODERNWINDOW.UNSETUP :D8 (P 1 RENAMEDORIG P 0 PKGNAME I 0 ORIGFN) C@ Ho og@ H Yd I@ (64 MOVD 55 \DEFINEDP 48 CL:INTERN 42 CONCAT 24 STREQUAL 10 CL:PACKAGE-NAME 5 CL:SYMBOL-PACKAGE) (36 MODERN-ORIG-) ( 30 "INTERLISP" 19 "XEROX-COMMON-LISP") \MODERNIZED.FREEMENU.BUTTONEVENTFN :D8 (I 1 STREAM I 0 W) *@ghd@ @ ( (39 MODERNWINDOW.BUTTONEVENTFN 31 \INSUREWINDOW 26 CENTRALWINDOW 18 \INSUREWINDOW 13 CENTRALWINDOW) (5 MODERN-ORIG-\FM.BUTTONEVENTFN) () MODERNWINDOW.BUTTONEVENTFN :D8 (P 6 STARTINGREGION P 5 BOTTOM P 4 TOP P 3 RIGHT P 2 LEFT P 1 ATTACHEDREGION P 0 CORNER I 5 TOPMARGIN I 4 CORNERREGION I 3 TITLEPROPORTION I 2 ANYWHERE I 1 ORIGFUNCTION I 0 WINDOW F 7 WindowTitleDisplayStream F 8 WBorder)  DE3 EE@ (4W -@ b@g @ (W Wb `ll`jtD`` `@ @ YDE Xdg@g IIImIImI@ ghddddHdgKM JLKMhlgJM KLJMhKHdgKL JMKLh'gJL KMJLh @ N ig@g !BDEC I @ iA@g b@kAA@g b@kA(491 GETWINDOWUSERPROP 468 GETWINDOWUSERPROP 453 MOVEW 448 CENTRALWINDOW 442 NEARESTCORNER 434 NEARTOP 422 MEMB 417 GETWINDOWUSERPROP 399 SHAPEW 393 CENTRALWINDOW 386 GETREGION 380 SHOULDNT 364 GETMOUSESTATE 358 \CURSORPOSITION 331 GETMOUSESTATE 325 \CURSORPOSITION 295 GETMOUSESTATE 289 \CURSORPOSITION 262 GETMOUSESTATE 256 \CURSORPOSITION 221 \INSUREWINDOW 181 MEMB 176 GETWINDOWUSERPROP 154 INCORNER.REGION 146 ATTACHEDWINDOWREGION 141 CENTRALWINDOW 135 TOTOPW 125 INSIDE? 82 GETMOUSESTATE 71 FONTHEIGHT 61 \INSUREWINDOW 53 GETWINDOWUSERPROP 37 \INSUREWINDOW 29 FONTHEIGHT 18 \INSUREWINDOW) (486 PREMODERN-BUTTONEVENTFN 463 PREMODERN-BUTTONEVENTFN 412 PASSTOMAINCOMS 406 MOVEW 348 LEFTTOP 314 RIGHTTOP 279 LEFTBOTTOM 245 RIGHTBOTTOM 228 DON'T 171 PASSTOMAINCOMS 165 SHAPEW 120 LASTMOUSEY 115 LASTMOUSEX 103 LASTKEYBOARD 88 LASTMOUSEBUTTONS 48 TOPMARGIN) () NEARTOP :D8 (P 1 LEFT P 0 WIDTH I 2 TITLEPROPORTION I 1 TOPMARGIN I 0 CORNERREGION) A`@@mA+Bh&@@`IHB`IHkBNIL (54 LASTMOUSEX 40 LASTMOUSEX 4 LASTMOUSEY) () NEARESTCORNER :D8 (P 5 Y P 4 X P 3 BOTTOM P 2 TOP P 1 RIGHT P 0 LEFT I 0 REGION) p@@@m@@m@$jH`HI\jJ`JK+`HI`H`KJ`KJ]LM (109 \CURSORPOSITION) (94 LASTMOUSEY 86 LASTMOUSEY 73 LASTMOUSEX 65 LASTMOUSEX 53 SCREENHEIGHT 38 SCREENWIDTH) () INCORNER.REGION :D8 (I 1 TOPMARGIN I 0 CORNERREGION F 1 MODERN-WINDOW-MARGIN) ~`@jHHjHQ$@A g`Q@gh`@@mjHHjHQ@A g`Q@g(98 NEARTOP 31 NEARTOP) (123 RIGHTBOTTOM 110 LASTMOUSEY 104 RIGHTTOP 63 LASTMOUSEX 55 LEFTBOTTOM 43 LASTMOUSEY 37 LEFTTOP 4 LASTMOUSEX) () MODERN-ADD-EXEC :D8 (P 6 PROC P 2 N P 0 U) MegHk2JI%K ld Ng NJaL Mh\JkZM&(51 MODERNWINDOW 46 PROCESSPROP 35 DISMISS 25 APPLY) (41 WINDOW 8 MODERN-ORIG-ADD-EXEC) () MODERN-SNAPWA0001 :D8 (I 0 W) @ @ (11 MOVEW 5 TOTOPW) NIL () MODERN-SNAPW :D8 (P 0 W) Hgg H(23 PUTWINDOWPROP 4 MODERN-ORIG-SNAPW) (18 MODERN-SNAPWA0001 13 BUTTONEVENTFN) () TOTOPW.MODERNIZE :D8 (P 0 MAIN I 0 WINDOW) "@ @i Hdd  (31 MODERNWINDOW.BUTTONEVENTFN 24 \INSUREWINDOW 12 MAINWINDOW 5 TOTOPW) NIL () MODERN-MENUBUTTONFN :D8 (P 0 MENU I 0 WINDOW F 1 WindowTitleDisplayStream) g@g m`llZ`jQ@ (,@g ddhX1HX'H@ Q @ @ (138 MODERN-ORIG-MENUBUTTONFN 131 MOVEW 124 NEARTOP 119 FONTHEIGHT 111 \INSUREWINDOW 74 GETWINDOWUSERPROP 59 \INSUREWINDOW 30 GETMOUSESTATE 23 MEMB 18 GETWINDOWUSERPROP) (101 MENU 93 MENU 69 MENU 49 LASTKEYBOARD 36 LASTMOUSEBUTTONS 13 PASSTOMAINCOMS 7 MOVEW) () \MODERNIZED.FREEMENU.BUTTONEVENTFN :D8 (I 1 STREAM I 0 W) @ghd@  (26 MODERNWINDOW.BUTTONEVENTFN 18 \INSUREWINDOW 13 CENTRALWINDOW) (5 MODERN-ORIG-\FM.BUTTONEVENTFN) () MODERNIZED.TB.BUTTONEVENTFN :D8 (P 2 TOPMARGIN P 1 CORNERREG P 0 CW I 1 STREAM I 0 W) @ !Hg lHg Hg Hg  Hg Hg غ@ghdIJ (143 MODERNWINDOW.BUTTONEVENTFN 119 \INSUREWINDOW 114 FB.GETWINDOW 97 \INSUREWINDOW 92 FB.GETWINDOW 80 UNIONREGIONS 73 \INSUREWINDOW 68 FB.GETWINDOW 55 \INSUREWINDOW 50 FB.GETWINDOW 37 \INSUREWINDOW 32 FB.GETWINDOW 19 GETWINDOWUSERPROP 5 CENTRALWINDOW) (133 MODERN-ORIG-TB.BUTTONEVENTFN 109 COUNTER 87 HEADING 63 BROWSER 45 COUNTER 27 HEADING 14 FILEBROWSER) () TEDIT.MODERNIZE :D8 NIL gg (14 MODERNWINDOW.SETUP) (9 \MODERNIZED.TEDIT.BUTTONEVENTFN 4 \TEDIT.BUTTONEVENTFN) () \MODERNIZED.TEDIT.BUTTONEVENTFN :D8 (P 0 PANE I 1 STREAM I 0 W) V@ghdg@ 1H J0KhZHg XI @ ( K&(78 MODERNWINDOW.BUTTONEVENTFN 70 \INSUREWINDOW 65 CENTRALWINDOW 59 APPLY 49 GETWINDOWUSERPROP 27 \INSUREWINDOW 18 CENTRALWINDOW) (44 TEDIT-NEXT-PANE-DOWN 12 UNIONREGIONS 5 MODERN-ORIG-\TEDIT.BUTTONEVENTFN) () (PRETTYCOMPRINT MODERNIZECOMS) (RPAQQ MODERNIZECOMS ((* ;; "Externals") (COMS (FNS MODERNWINDOW MODERNWINDOW.SETUP UNMODERNWINDOW MODERNWINDOW.UNSETUP \MODERNIZED.FREEMENU.BUTTONEVENTFN) (INITVARS (MODERN-WINDOW-MARGIN 25))) (* ;; "Internals") (COMS (FNS MODERNWINDOW.BUTTONEVENTFN NEARTOP NEARESTCORNER INCORNER.REGION) (* ;; "Behavior for some known window creators") (FNS MODERN-ADD-EXEC MODERN-SNAPW TOTOPW.MODERNIZE MODERN-MENUBUTTONFN) (FNS \MODERNIZED.FREEMENU.BUTTONEVENTFN MODERNIZED.TB.BUTTONEVENTFN) (* ;; "Add some Meta commands") (FNS TEDIT.MODERNIZE \MODERNIZED.TEDIT.BUTTONEVENTFN) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (* ;; "Tedit") (TEDIT.MODERNIZE) (* ;; "Inspector") (MODERNWINDOW.SETUP (QUOTE \ITEM.WINDOW.BUTTON.HANDLER)) (* ;; "Commonlisp array inspector. If you move the main window, the little attached window doesn't move. But if you move the attached window, it all works. Needs a special definition. Shaping doesn't work either" ) (* (MODERNWINDOW.SETUP (QUOTE ONEDINSPECT.BUTTONEVENTFN))) (MODERNWINDOW.SETUP (QUOTE ICMLARRAY.TITLECOMMANDFN)) (* ;; "File browser") (MODERNWINDOW.SETUP (QUOTE \FM.BUTTONEVENTFN) (QUOTE \MODERNIZED.FREEMENU.BUTTONEVENTFN)) (* ;; "SEDIT") (MODERNWINDOW.SETUP (QUOTE SEDIT::BUTTONEVENTFN)) (* ;; "Debugger") (MODERNWINDOW.SETUP (QUOTE DBG::DEBUGGER-BUTTON-EVENT)) (* ;; "Snap") ( MODERNWINDOW.SETUP (QUOTE SNAPW) (QUOTE MODERN-SNAPW)) (* ;; "New execs") (MODERNWINDOW.SETUP (QUOTE ADD-EXEC) (QUOTE MODERN-ADD-EXEC)) (* ;; "Existing exec of the load") (MODERNWINDOW (PROCESSPROP ( TTY.PROCESS) (QUOTE WINDOW))) (* ;; "Table browser and filebrowser)") (MODERNWINDOW.SETUP (QUOTE TB.BUTTONEVENTFN) (QUOTE MODERNIZED.TB.BUTTONEVENTFN)) (* ;; "Grapher") (MODERNWINDOW.SETUP (QUOTE APPLYTOSELECTEDNODE)) (* ;; "Sketch") (MODERNWINDOW.SETUP (QUOTE WB.BUTTON.HANDLER)) (* ;; "Promptwindow") (MODERNWINDOW PROMPTWINDOW T) (* ;; "Menus: Move only with title clicks") ( MODERNWINDOW.SETUP (QUOTE MENUBUTTONFN) (QUOTE MODERN-MENUBUTTONFN))))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA MODERN-ADD-EXEC))))) (RPAQ? MODERN-WINDOW-MARGIN 25) (TEDIT.MODERNIZE) (MODERNWINDOW.SETUP (QUOTE \ITEM.WINDOW.BUTTON.HANDLER)) (MODERNWINDOW.SETUP (QUOTE ICMLARRAY.TITLECOMMANDFN)) (MODERNWINDOW.SETUP (QUOTE \FM.BUTTONEVENTFN) (QUOTE \MODERNIZED.FREEMENU.BUTTONEVENTFN)) (MODERNWINDOW.SETUP (QUOTE SEDIT::BUTTONEVENTFN)) (MODERNWINDOW.SETUP (QUOTE DBG::DEBUGGER-BUTTON-EVENT)) (MODERNWINDOW.SETUP (QUOTE SNAPW) (QUOTE MODERN-SNAPW)) (MODERNWINDOW.SETUP (QUOTE ADD-EXEC) (QUOTE MODERN-ADD-EXEC)) (MODERNWINDOW (PROCESSPROP (TTY.PROCESS) (QUOTE WINDOW))) (MODERNWINDOW.SETUP (QUOTE TB.BUTTONEVENTFN) (QUOTE MODERNIZED.TB.BUTTONEVENTFN)) (MODERNWINDOW.SETUP (QUOTE APPLYTOSELECTEDNODE)) (MODERNWINDOW.SETUP (QUOTE WB.BUTTON.HANDLER)) (MODERNWINDOW PROMPTWINDOW T) (MODERNWINDOW.SETUP (QUOTE MENUBUTTONFN) (QUOTE MODERN-MENUBUTTONFN)) NIL