From 97cbd66288686ec55ef64b80d538789b6020c8d9 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Wed, 17 Feb 2021 23:41:40 -0800
Subject: [PATCH] MACINTERFACE: more consistent recognition of corner and
 titlebar clicking, and more appropriate ghost regions of reshaping and moving

---
 lispusers/MACINTERFACE      |   2 +-
 lispusers/MACINTERFACE.LCOM | Bin 6027 -> 7715 bytes
 2 files changed, 1 insertion(+), 1 deletion(-)

diff --git a/lispusers/MACINTERFACE b/lispusers/MACINTERFACE
index 7546fc94..76123d56 100644
--- a/lispusers/MACINTERFACE
+++ b/lispusers/MACINTERFACE
@@ -1 +1 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "27-Dec-2020 12:06:04" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;54
 15486  

      previous date%: "13-Dec-2020 21:50:49" 
{DSK}<Users>kaplan>Local>medley3.5>lispcore>lispusers>MACINTERFACE.;57)


(PRETTYCOMPRINT MACINTERFACECOMS)

(RPAQQ MACINTERFACECOMS

       [
        (* ;; "Externals")


        (COMS (FNS MACWINDOW MACWINDOW.SETUP UNMACWINDOW MACWINDOW.UNSETUP)
              (INITVARS (MACINTERFACECORNERMARGIN 25)))
        
        (* ;; "Internals")


        [COMS (FNS INTITLEBAR INCORNER MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE)
              
              (* ;; "Behavior for some known window creators")


              (FNS MACINT-ADD-EXEC MACINT-SNAPW)
              (FNS TEDIT.MACINTERFACE TEDIT.SELECTALL)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (TEDIT.MACINTERFACE)
                                                 
                                                 (* ;; "Inspector")


                                                 (MACWINDOW.SETUP '\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")


                                                 (* (MACWINDOW.SETUP 'ONEDINSPECT.BUTTONEVENTFN))
                                                 (MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN)
                                                 
                                                 (* ;; "Freemenu")


                                                 (MACWINDOW.SETUP '\FM.BUTTONEVENTFN)
                                                 
                                                 (* ;; "SEDIT")


                                                 (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN)
                                                 
                                                 (* ;; "Debugger")


                                                 (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT)
                                                 
                                                 (* ;; "Snap")


                                                 (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW)
                                                 
                                                 (* ;; "New execs")


                                                 (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC)
                                                 
                                                 (* ;; "Existing exec of the load")


                                                 (MACWINDOW (PROCESSPROP (TTY.PROCESS)
                                                                   'WINDOW]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
                                                                             (LAMA MACINT-ADD-EXEC])



(* ;; "Externals")


(DEFINEQ

(MACWINDOW

  [LAMBDA (WINDOW ANYWHERE)
                             (* ; "Edited 23-Jun-2020 16:01 by rmk:")


    (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.")


    (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN)
        (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN))
        (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF
 ANYWHERE
                                              THEN
 (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE)
                                            ELSE
 (FUNCTION MACWINDOW.BUTTONEVENTFN))))
    WINDOW])

(MACWINDOW.SETUP

  [LAMBDA (ORIGFN MACWINDOWFN ANYWHERE)
                 (* ; "Edited 24-Jun-2020 15:09 by rmk:")


    (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.")


    (* ;; "Moves ORIGNFN to a new name, prefixed with MACORIG-.")


    (* ;; "If MACWINDOWFN is given, then that replaces the original definition of ORIGFN, and presumably knows how to call the renamed ORIGFN under the write circumstances.  This is typically the case where ORIGFN is a window creator.")


    (* ;; "Otherwise, ORIGFN is taken to be the BUTTONEVENTFN for a class of windows, and its new definition is defaulted to one that maps left-clicks in appropriate areas into Mac window operations.  If not in appropriate areas, then the renamed ORIGNFN is called to give the original button behavior.")


    (* ;; "If ANYWHERE, moving will happen for any click not in one of the shaping corners.")


    (* ;; "The renamed function has arguments in addition to WINDOW:  the new name for the original function, if MACWINDOFN is provided, and the value specified here for ANYWHERE.")


    (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN]

         (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it")


         (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP")
                (SETQ PKGNAME "INTERLISP"))
         (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN)
                                  PKGNAME))
         (MOVD? ORIGFN RENAMEDORIG)
         (IF
 MACWINDOWFN
             THEN
 (MOVD MACWINDOWFN ORIGFN)
           ELSE
 (PUTD ORIGFN `(LAMBDA (WINDOW)
                                    (MACWINDOW.BUTTONEVENTFN
 WINDOW (FUNCTION ,RENAMEDORIG)
                                           ,ANYWHERE])

(UNMACWINDOW

  [LAMBDA (WINDOW)
                                      (* ; "Edited  7-Dec-2020 17:57 by rmk:")


    (* ;; "Restores original window behavior")


    (CL:WHEN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN)
        (WINDOWPROP WINDOW 'BUTTONEVENTFN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN))
        (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN NIL))
    WINDOW])

(MACWINDOW.UNSETUP

  [LAMBDA (ORIGFN)
                                      (* ; "Edited  6-Jul-2020 13:04 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 15:09 by rmk:")


    (* ;; "Moves the renamed original function back to its original name")


    (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN]

         (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it")


         (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP")
                (SETQ PKGNAME "INTERLISP"))
         (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN)
                                  PKGNAME))
         (CL:WHEN (GETD RENAMEDORIG)
                (MOVD RENAMEDORIG ORIGFN])
)

(RPAQ? MACINTERFACECORNERMARGIN
 25)



(* ;; "Internals")


(DEFINEQ

(INTITLEBAR

  [LAMBDA (WINDOW)
                                      (* ; "Edited  3-May-2020 20:38 by rmk:")

    (IGREATERP (LASTMOUSEY WINDOW)
           (FETCH
 TOP OF
 (DSPCLIPPINGREGION NIL WINDOW])

(INCORNER

  [LAMBDA (WINDOW MARGIN)
                               (* ; "Edited 13-Dec-2020 21:45 by rmk:")


                                                            (* ; "Edited 13-May-2020 14:26 by rmk:")


                                                            (* ; "Edited 10-May-2020 12:41 by rmk:")


                                                            (* ; "Edited  3-May-2020 20:43 by rmk:")


    (* ;; "X and Y in window coordinates")


    (CL:UNLESS MARGIN (SETQ MARGIN MACINTERFACECORNERMARGIN))
    (LET ((CR (DSPCLIPPINGREGION NIL WINDOW))
          (X (LASTMOUSEX WINDOW))
          (Y (LASTMOUSEY WINDOW)))
         (IF
 (ILEQ (IABS (IDIFFERENCE X (FETCH
 LEFT OF
 CR)))
                       MARGIN)
             THEN
 

                   (* ;; "GREATERP puts it in title bar")


                   (IF
 (IGREATERP Y (FETCH
 TOP OF
 CR))
                       THEN
 'LEFTTOP
                     ELSEIF
 (ILEQ (IABS (IDIFFERENCE Y (FETCH
 BOTTOM OF
 CR)))
                                      MARGIN)
                       THEN
 'LEFTBOTTOM)
           ELSEIF
 (ILEQ (IABS (IDIFFERENCE X (FETCH
 RIGHT OF
 CR)))
                            MARGIN)
             THEN
 (IF
 (IGREATERP Y (FETCH
 TOP OF
 CR))
                          THEN
 'RIGHTTOP
                        ELSEIF
 (ILEQ (IABS (IDIFFERENCE Y (FETCH
 BOTTOM OF
 CR)))
                                         MARGIN)
                          THEN
 'RIGHTBOTTOM])

(MACWINDOW.BUTTONEVENTFN

  [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE)
                (* ; "Edited 13-Dec-2020 20:35 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 20:23 by rmk:")


                                                            (* ; "Edited 23-May-2020 08:34 by rmk:")


                                                            (* ; "Edited 10-May-2020 03:35 by rmk:")


                                                            (* ; "Edited  3-May-2020 21:18 by rmk:")

    (IF
 (AND (MOUSESTATE (ONLY LEFT))
                 (EQ LASTKEYBOARD 0))
        THEN
 (TOTOPW WINDOW)
              (LET (REGION CORNER (MOUSEX LASTMOUSEX)
                          (MOUSEY LASTMOUSEY))
                   (SETQ CORNER (INCORNER
 WINDOW))
                   (IF
 CORNER
                       THEN
 

                             (* ;; 

       "The upper corners may be in the title bar, near the side, so test corners before titlebar.")


                             (* ;; "WINDOWREGION includes the attached windows")


                             (SETQ REGION (WINDOWREGION WINDOW 'SHAPEW))
                             (LET ((LEFT (FETCH
 LEFT OF
 REGION))
                                   (RIGHT (FETCH
 RIGHT OF
 REGION))
                                   (TOP (FETCH
 TOP OF
 REGION))
                                   (BOTTOM (FETCH
 BOTTOM OF
 REGION))
                                   STARTINGREGION)

                                  (* ;; 

                                "The  hot cornerr of the starting region is the mouse position")


                                  [SETQ STARTINGREGION
                                   (GETREGION NIL NIL NIL NIL NIL
                                          (SELECTQ CORNER
                                              (RIGHTBOTTOM (LIST LEFT TOP MOUSEX MOUSEY))
                                              (LEFTBOTTOM (LIST RIGHT TOP MOUSEX MOUSEY))
                                              (RIGHTTOP (LIST LEFT BOTTOM MOUSEX MOUSEY))
                                              (LEFTTOP (LIST RIGHT BOTTOM MOUSEX MOUSEY))
                                              (SHOULDNT]
                                  (SHAPEW WINDOW STARTINGREGION))
                             T
                     ELSEIF
 (OR ANYWHERE (INTITLEBAR
 WINDOW))
                       THEN
 (MOVEW WINDOW)
                             T
                     ELSEIF
 [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 
                                                                           'PREMACBUTTONEVENTFN]
                       THEN
 (APPLY* ORIGFUNCTION WINDOW)))
      ELSEIF
 [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN]
        THEN
 (APPLY* ORIGFUNCTION WINDOW])

(MACWINDOW.BUTTONEVENTFN.ANYWHERE

  [LAMBDA (WINDOW)
                                      (* ; "Edited  3-Dec-2020 14:24 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 13:24 by rmk:")


    (* ;; "Move if left-click anywhere, not just titlebar")


    (MACWINDOW.BUTTONEVENTFN
 WINDOW NIL T])
)



(* ;; "Behavior for some known window creators")


(DEFINEQ

(MACINT-ADD-EXEC

  [LAMBDA U
                                             (* ; "Edited 24-Jun-2020 14:23 by rmk:")

    (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC)
                       (FOR
 N FROM
 1 TO
 U COLLECT
 (ARG U N]

         (* ;; "For some reason, the window may not be there immediately")


         (DISMISS 100)
         (MACWINDOW
 (PROCESSPROP PROC 'WINDOW))
         PROC])

(MACINT-SNAPW

  [LAMBDA NIL
                                           (* ; "Edited 24-Jun-2020 13:19 by rmk:")


    (* ;; "No point in shaping a snap window, just move it.;;")


    (* ;; 

"This changes the creation function (SNAPW), since snap windows otherwise don't have a BUTTONEVENTN")


    (LET ((W (MACORIG-SNAPW)))
         [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W)
                                                  (TOTOPW W)
                                                  (MOVEW W]
         W])
)
(DEFINEQ

(TEDIT.MACINTERFACE
  [LAMBDA NIL                                               (* ; "Edited  8-Aug-2020 07:58 by rmk:")
    (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN)

    (* ;; "All")

    (TEDIT.SETFUNCTION (CHARCODE "1,a")
           (FUNCTION TEDIT.SELECTALL)
           TEDIT.READTABLE)
    (TEDIT.SETFUNCTION (CHARCODE "1,A")
           (FUNCTION TEDIT.SELECTALL)
           TEDIT.READTABLE)

    (* ;; "Quit")

    (TEDIT.SETFUNCTION (CHARCODE "1,q")
           (FUNCTION TEDIT.QUIT)
           TEDIT.READTABLE)
    (TEDIT.SETFUNCTION (CHARCODE "1,Q")
           (FUNCTION TEDIT.QUIT)
           TEDIT.READTABLE])

(TEDIT.SELECTALL

  [LAMBDA (STREAM TEXTOBJ SEL)
                          (* ; "Edited  3-May-2020 17:29 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (CL:WHEN TEXTSTREAM
             (TEDIT.SETSEL TEXTSTREAM 0 (ADD1 (fetch
 TEXTLEN of
 (TEXTOBJ TEXTSTREAM)))
                    'LEFT))])
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(TEDIT.MACINTERFACE
)


(* ;; "Inspector")



(MACWINDOW.SETUP
 '\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")



                                                             (* (MACWINDOW.SETUP

                                                           (QUOTE ONEDINSPECT.BUTTONEVENTFN)))


(MACWINDOW.SETUP
 'ICMLARRAY.TITLECOMMANDFN)


(* ;; "Freemenu")



(MACWINDOW.SETUP
 '\FM.BUTTONEVENTFN)


(* ;; "SEDIT")



(MACWINDOW.SETUP
 'SEDIT::BUTTONEVENTFN)


(* ;; "Debugger")



(MACWINDOW.SETUP
 'DBG::DEBUGGER-BUTTON-EVENT)


(* ;; "Snap")



(MACWINDOW.SETUP
 'SNAPW 'MACINT-SNAPW)


(* ;; "New execs")



(MACWINDOW.SETUP
 'ADD-EXEC 'MACINT-ADD-EXEC)


(* ;; "Existing exec of the load")



(MACWINDOW
 (PROCESSPROP (TTY.PROCESS)
                      'WINDOW))
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 MACINT-ADD-EXEC)
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (3314 7073 (MACWINDOW 3324 . 3965) (MACWINDOW.SETUP 3967 . 5883) (UNMACWINDOW 5885 . 
6264) (MACWINDOW.UNSETUP 6266 . 7071)) (7142 12254 (INTITLEBAR 7152 . 7372) (INCORNER 7374 . 8947) (
MACWINDOW.BUTTONEVENTFN 8949 . 11885) (MACWINDOW.BUTTONEVENTFN.ANYWHERE 11887 . 12252)) (12312 13289 (
MACINT-ADD-EXEC 12322 . 12746) (MACINT-SNAPW 12748 . 13287)) (13290 14249 (TEDIT.MACINTERFACE 13300 . 
13918) (TEDIT.SELECTALL 13920 . 14247)))))
STOP
\ No newline at end of file
+(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "15-Feb-2021 20:50:07" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;75
 21496  

      changes to%:  (FNS MACWINDOW.BUTTONEVENTFN)

      previous date%: "14-Feb-2021 21:51:47" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>lispusers>MACINTERFACE.;74)


(PRETTYCOMPRINT MACINTERFACECOMS)

(RPAQQ MACINTERFACECOMS

       [
        (* ;; "Externals")


        (COMS (FNS MACWINDOW MACWINDOW.SETUP UNMACWINDOW MACWINDOW.UNSETUP)
              (INITVARS (MACWINDOWMARGIN 25)))
        
        (* ;; "Internals")


        [COMS (FNS MACWINDOW.BUTTONEVENTFN MACWINDOW.BUTTONEVENTFN.ANYWHERE NEARTOP NEARESTCORNER 
                   INCORNER.REGION)
              
              (* ;; "Behavior for some known window creators")


              (FNS MACINT-ADD-EXEC MACINT-SNAPW)
              (FNS TEDIT.MACINTERFACE TEDIT.SELECTALL)
              (FNS FB.MAKEHEADINGWINDOW.MACINTERFACE TOTOPW.MACINTERFACE)
              (DECLARE%: DONTEVAL@LOAD DOCOPY (P (TEDIT.MACINTERFACE)
                                                 
                                                 (* ;; "Inspector")


                                                 (MACWINDOW.SETUP '\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")


                                                 (* (MACWINDOW.SETUP 'ONEDINSPECT.BUTTONEVENTFN))
                                                 (MACWINDOW.SETUP 'ICMLARRAY.TITLECOMMANDFN)
                                                 
                                                 (* ;; "Freemenu")


                                                 (MACWINDOW.SETUP '\FM.BUTTONEVENTFN)
                                                 
                                                 (* ;; "SEDIT")


                                                 (MACWINDOW.SETUP 'SEDIT::BUTTONEVENTFN)
                                                 
                                                 (* ;; "Debugger")


                                                 (MACWINDOW.SETUP 'DBG::DEBUGGER-BUTTON-EVENT)
                                                 
                                                 (* ;; "Snap")


                                                 (MACWINDOW.SETUP 'SNAPW 'MACINT-SNAPW)
                                                 
                                                 (* ;; "New execs")


                                                 (MACWINDOW.SETUP 'ADD-EXEC 'MACINT-ADD-EXEC)
                                                 
                                                 (* ;; "Existing exec of the load")


                                                 (MACWINDOW (PROCESSPROP (TTY.PROCESS)
                                                                   'WINDOW))
                                                 
                                                 (* ;; "Table browser (specialized to filebrowser)")


                                                 (MACWINDOW.SETUP 'FB.MAKEHEADINGWINDOW 
                                                        'FB.MAKEHEADINGWINDOW.MACINTERFACE)
                                                 (MACWINDOW.SETUP 'TB.BUTTONEVENTFN)
                                                 
                                                 (* ;; "Grapher")


                                                 (MACWINDOW.SETUP 'APPLYTOSELECTEDNODE)
                                                 
                                                 (* ;; "Promptwindow")


                                                 (MACWINDOW PROMPTWINDOW T]
        (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                             (NLAML)
                                                                             (LAMA MACINT-ADD-EXEC])



(* ;; "Externals")


(DEFINEQ

(MACWINDOW

  [LAMBDA (WINDOW ANYWHERE)
                             (* ; "Edited 23-Jun-2020 16:01 by rmk:")


    (* ;; "This can be applied to windows that have been created with an unknown or unmodifiable buttoneventfn.")


    (CL:UNLESS (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN)
        (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN (WINDOWPROP WINDOW 'BUTTONEVENTFN))
        (WINDOWPROP WINDOW 'BUTTONEVENTFN (IF
 ANYWHERE
                                              THEN
 (FUNCTION MACWINDOW.BUTTONEVENTFN.ANYWHERE)
                                            ELSE
 (FUNCTION MACWINDOW.BUTTONEVENTFN))))
    WINDOW])

(MACWINDOW.SETUP

  [LAMBDA (ORIGFN MACWINDOWFN ANYWHERE)
                 (* ; "Edited 13-Feb-2021 19:53 by rmk:")


    (* ;; "ORIGFN is either a function that creates windows of a given type (e.g. SNAPW or ADD-EXEC) or the known BUTTONEVENTFN of a class of windows.")


    (* ;; "Moves ORIGNFN to a new name, prefixed with MACORIG-.")


    (* ;; "If MACWINDOWFN is given, then that replaces the original definition of ORIGFN, and presumably knows how to call the renamed ORIGFN under the right circumstances.  This is typically the case where ORIGFN is a window creator.")


    (* ;; "Otherwise, ORIGFN is taken to be the BUTTONEVENTFN for a class of windows, and its new definition is defaulted to one that maps left-clicks in appropriate areas into Mac window operations.  If not in appropriate areas, then the renamed ORIGNFN is called to give the original button behavior.")


    (* ;; "If ANYWHERE, moving will happen for any click not in one of the shaping corners.")


    (* ;; "The renamed function has arguments in addition to WINDOW:  the new name for the original function, if MACWINDOFN is provided, and the value specified here for ANYWHERE.")


    (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN]

         (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it")


         (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP")
                (SETQ PKGNAME "INTERLISP"))
         (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN)
                                  PKGNAME))
         (MOVD? ORIGFN RENAMEDORIG)
         (IF
 MACWINDOWFN
             THEN
 (MOVD MACWINDOWFN ORIGFN)
           ELSE
 (PUTD ORIGFN `(LAMBDA (WINDOW)
                                    (MACWINDOW.BUTTONEVENTFN
 WINDOW (FUNCTION ,RENAMEDORIG)
                                           ,ANYWHERE])

(UNMACWINDOW

  [LAMBDA (WINDOW)
                                      (* ; "Edited  7-Dec-2020 17:57 by rmk:")


    (* ;; "Restores original window behavior")


    (CL:WHEN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN)
        (WINDOWPROP WINDOW 'BUTTONEVENTFN (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN))
        (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN NIL))
    WINDOW])

(MACWINDOW.UNSETUP

  [LAMBDA (ORIGFN)
                                      (* ; "Edited  6-Jul-2020 13:04 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 15:09 by rmk:")


    (* ;; "Moves the renamed original function back to its original name")


    (LET [RENAMEDORIG (PKGNAME (CL:PACKAGE-NAME (CL:SYMBOL-PACKAGE ORIGFN]

         (* ;; "The renamed version of XCL symbols go into Interlisp, so there is less confusion about accessing it")


         (CL:WHEN (STREQUAL PKGNAME "XEROX-COMMON-LISP")
                (SETQ PKGNAME "INTERLISP"))
         (SETQ RENAMEDORIG (CL:INTERN (CONCAT 'MACORIG- ORIGFN)
                                  PKGNAME))
         (CL:WHEN (GETD RENAMEDORIG)
                (MOVD RENAMEDORIG ORIGFN])
)

(RPAQ? MACWINDOWMARGIN
 25)



(* ;; "Internals")


(DEFINEQ

(MACWINDOW.BUTTONEVENTFN

  [LAMBDA (WINDOW ORIGFUNCTION ANYWHERE)
                (* ; "Edited 14-Feb-2021 21:51 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 20:23 by rmk:")


                                                            (* ; "Edited 23-May-2020 08:34 by rmk:")


                                                            (* ; "Edited 10-May-2020 03:35 by rmk:")


                                                            (* ; "Edited  3-May-2020 21:18 by rmk:")

    (IF
 (AND (MOUSESTATE (ONLY LEFT))
                 (EQ LASTKEYBOARD 0))
        THEN
 (TOTOPW WINDOW)
              (LET [CORNER TOPMARGIN (MAINREGION (WINDOWPROP WINDOW 'REGION))
                          (ATTACHEDREGION (WINDOWREGION WINDOW 'SHAPEW]

                   (* ;; "If the window has a TOPMARGIN property, that tells us that it does not have a canonical title but may still have a title-like attached window just above the main window.  The TOPMARGIN should be 0 in that case.")


                   (* ;; "This is particularly the case of FILEBROWSER windows, where the the modified ATTACHEDWINDOWTOTOPFN drives the click here. ")


                   (SETQ TOPMARGIN (IF
 (WINDOWPROP WINDOW 'TOPMARGIN)
                                     ELSEIF
 (WINDOWPROP WINDOW 'TITLE)
                                       THEN
 (FONTPROP WindowTitleDisplayStream 'HEIGHT)
                                     ELSE
 MACWINDOWMARGIN))
                   (SETQ CORNER (INCORNER.REGION
 MAINREGION TOPMARGIN))
                   (IF
 CORNER
                       THEN
 

                             (* ;; 

       "The upper corners may be in the title bar, near the side, so test corners before titlebar.")


                             (* ;; "We are in the corner of the main window, so we are reshaping.  But the ghost region should include all of the attached windows, and the starting cursor should be positioned at the corner closest to the selected corner of the main window.")


                             (* ;; "WINDOWREGION includes the attached windows")


                             (LET ((LEFT (FETCH
 LEFT OF
 ATTACHEDREGION))
                                   (RIGHT (FETCH
 RIGHT OF
 ATTACHEDREGION))
                                   (TOP (FETCH
 TOP OF
 ATTACHEDREGION))
                                   (BOTTOM (FETCH
 BOTTOM OF
 ATTACHEDREGION))
                                   STARTINGREGION)

                                 (* ;; "\CURSORPOSITION moves the mouse to the tracking corner of the ghost region, in screen coordinates, so that the mouse starts out at the tracking corner of the ghost region, even if there are attached windows (as in the filebrowser) that overhang the corner and the initiating click was at the corner of the mainwindow.")


                                  (CL:UNLESS (EQ 'DON'T (WINDOWPROP WINDOW 'RESHAPEFN))
                                      [SETQ STARTINGREGION
                                       (GETREGION NIL NIL NIL NIL NIL
                                              (SELECTQ CORNER
                                                  (RIGHTBOTTOM (\CURSORPOSITION RIGHT BOTTOM)
                                                               (GETMOUSESTATE)
                                                               (LIST LEFT TOP RIGHT BOTTOM))
                                                  (LEFTBOTTOM (\CURSORPOSITION LEFT BOTTOM)
                                                              (GETMOUSESTATE)
                                                              (LIST RIGHT TOP LEFT BOTTOM))
                                                  (RIGHTTOP (\CURSORPOSITION RIGHT TOP)
                                                            (GETMOUSESTATE)
                                                            (LIST LEFT BOTTOM RIGHT TOP))
                                                  (LEFTTOP (\CURSORPOSITION LEFT TOP)
                                                           (GETMOUSESTATE)
                                                           (LIST RIGHT BOTTOM LEFT TOP))
                                                  (SHOULDNT])
                                  (SHAPEW WINDOW STARTINGREGION))
                             T
                     ELSEIF
 (OR ANYWHERE (NEARTOP
 MAINREGION TOPMARGIN))
                       THEN
 (NEARESTCORNER
 ATTACHEDREGION)
                             (MOVEW WINDOW)
                             T
                     ELSEIF
 [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 
                                                                           'PREMACBUTTONEVENTFN]
                       THEN
 (APPLY* ORIGFUNCTION WINDOW)))
      ELSEIF
 [OR ORIGFUNCTION (SETQ ORIGFUNCTION (WINDOWPROP WINDOW 'PREMACBUTTONEVENTFN]
        THEN
 (APPLY* ORIGFUNCTION WINDOW])

(MACWINDOW.BUTTONEVENTFN.ANYWHERE

  [LAMBDA (WINDOW)
                                      (* ; "Edited  3-Dec-2020 14:24 by rmk:")


                                                            (* ; "Edited 24-Jun-2020 13:24 by rmk:")


    (* ;; "Move if left-click anywhere, not just titlebar")


    (MACWINDOW.BUTTONEVENTFN
 WINDOW NIL T])

(NEARTOP

  [LAMBDA (MAINREGION TOPMARGIN)
                        (* ; "Edited 12-Feb-2021 23:19 by rmk:")


    (* ;; "True if the MOUSEY is near the top of MAINREGION.  That means in the title bar for titled windows, otherwise a short distance below the top of the window.  (Could be in the border?)")


    (IGREATERP LASTMOUSEY (IDIFFERENCE (FETCH
 TOP OF
 MAINREGION)
                                 TOPMARGIN])

(NEARESTCORNER

  [LAMBDA (REGION)
                                      (* ; "Edited 14-Feb-2021 21:46 by rmk:")


    (* ;; 

"Moves the cursor to the corner of REGION that is closest to the current LASTMOUSEX AND LASTMOUSEY")


    (\CURSORPOSITION (CL:IF (ILESSP (IDIFFERENCE LASTMOUSEX (FETCH
 LEFT OF
 REGION))
                                   (IDIFFERENCE (FETCH
 RIGHT OF
 REGION)
                                          LASTMOUSEX))
                         (FETCH
 LEFT OF
 REGION)
                         (FETCH
 RIGHT OF
 REGION))
           (CL:IF (ILESSP (IDIFFERENCE LASTMOUSEY (FETCH
 BOTTOM OF
 REGION))
                         (IDIFFERENCE (FETCH
 TOP OF
 REGION)
                                LASTMOUSEY))
               (FETCH
 BOTTOM OF
 REGION)
               (FETCH
 TOP OF
 REGION))])

(INCORNER.REGION

  [LAMBDA (MAINREGION TOPMARGIN)
                        (* ; "Edited 12-Feb-2021 23:22 by rmk:")


    (* ;; "MAINREGION, LASTMOUSEX, LASTMOUSEY in screen coordinates.")


    (* ;; "TOPMARGIN is the height of the titlebar for titled windows, otherwise the margin at the top of the window's content that we regard as the top. ")


    (IF
 (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH
 LEFT OF
 MAINREGION)))
                  MACWINDOWMARGIN)
        THEN
 (IF
 (NEARTOP
 MAINREGION TOPMARGIN)
                     THEN
 'LEFTTOP
                   ELSEIF
 (ILEQ LASTMOUSEY (IPLUS MACWINDOWMARGIN (FETCH
 BOTTOM OF
 
                                                                                           MAINREGION
                                                                             )))
                     THEN
 'LEFTBOTTOM)
      ELSEIF
 (ILEQ (IABS (IDIFFERENCE LASTMOUSEX (FETCH
 RIGHT OF
 MAINREGION)))
                       MACWINDOWMARGIN)
        THEN
 (IF
 (NEARTOP
 MAINREGION TOPMARGIN)
                     THEN
 'RIGHTTOP
                   ELSEIF
 (ILEQ LASTMOUSEY (IPLUS MACWINDOWMARGIN (FETCH
 BOTTOM OF
 
                                                                                           MAINREGION
                                                                             )))
                     THEN
 'RIGHTBOTTOM])
)



(* ;; "Behavior for some known window creators")


(DEFINEQ

(MACINT-ADD-EXEC

  [LAMBDA U
                                             (* ; "Edited 24-Jun-2020 14:23 by rmk:")

    (LET [(PROC (APPLY (FUNCTION MACORIG-ADD-EXEC)
                       (FOR
 N FROM
 1 TO
 U COLLECT
 (ARG U N]

         (* ;; "For some reason, the window may not be there immediately")


         (DISMISS 100)
         (MACWINDOW
 (PROCESSPROP PROC 'WINDOW))
         PROC])

(MACINT-SNAPW

  [LAMBDA NIL
                                           (* ; "Edited 24-Jun-2020 13:19 by rmk:")


    (* ;; "No point in shaping a snap window, just move it.;;")


    (* ;; 

"This changes the creation function (SNAPW), since snap windows otherwise don't have a BUTTONEVENTN")


    (LET ((W (MACORIG-SNAPW)))
         [WINDOWPROP W 'BUTTONEVENTFN (FUNCTION (LAMBDA (W)
                                                  (TOTOPW W)
                                                  (MOVEW W]
         W])
)
(DEFINEQ

(TEDIT.MACINTERFACE
  [LAMBDA NIL                                               (* ; "Edited  8-Aug-2020 07:58 by rmk:")
    (MACWINDOW.SETUP '\TEDIT.BUTTONEVENTFN)

    (* ;; "All")

    (TEDIT.SETFUNCTION (CHARCODE "1,a")
           (FUNCTION TEDIT.SELECTALL)
           TEDIT.READTABLE)
    (TEDIT.SETFUNCTION (CHARCODE "1,A")
           (FUNCTION TEDIT.SELECTALL)
           TEDIT.READTABLE)

    (* ;; "Quit")

    (TEDIT.SETFUNCTION (CHARCODE "1,q")
           (FUNCTION TEDIT.QUIT)
           TEDIT.READTABLE)
    (TEDIT.SETFUNCTION (CHARCODE "1,Q")
           (FUNCTION TEDIT.QUIT)
           TEDIT.READTABLE])

(TEDIT.SELECTALL

  [LAMBDA (STREAM TEXTOBJ SEL)
                          (* ; "Edited  3-May-2020 17:29 by rmk:")

    (LET [(TEXTSTREAM (TEXTSTREAM (TTY.PROCESS]
         (CL:WHEN TEXTSTREAM
             (TEDIT.SETSEL TEXTSTREAM 0 (ADD1 (fetch
 TEXTLEN of
 (TEXTOBJ TEXTSTREAM)))
                    'LEFT))])
)
(DEFINEQ

(FB.MAKEHEADINGWINDOW.MACINTERFACE

  [LAMBDA (BROWSERWINDOW WIDTH HEIGHT FONT)
             (* ; "Edited 13-Feb-2021 23:21 by rmk:")


    (* ;; "This makes the heading window for a filebrowser, the little black window that has the column headings over the main window.  It looks like a titlebar of the main window, our goal here is to make clicking in the heading window behave as if the click had happened in a true title window, so that corners will cause a SHAPE and  middle will cause a MOVE.  This is achieved by replacing the TOTOPW BUTTONEVENTFN of this window by a function that does the TOTOPW and then invokes the BUTTONEVENTFN of the main window")


    (* ;; "This function essentially advises the FB.MAKEHEADINGWINDOW in FILEBROWSER--works only if FILEBROWSER was loaded first.")


    (LET ((HW (MACORIG-FB.MAKEHEADINGWINDOW BROWSERWINDOW WIDTH HEIGHT FONT)))

         (* ;; "We also mark the height of the attached %"title%" window as the TOPMARGIN of the main window, so that MACWINDOW.BUTTONEVENTFN knows to look outside the putative region.")


         (WINDOWPROP HW 'BUTTONEVENTFN 'TOTOPW.MACINTERFACE)
         (WINDOWPROP BROWSERWINDOW 'TOPMARGIN 0)
         HW])

(TOTOPW.MACINTERFACE

  [LAMBDA (WINDOW)
                                      (* ; "Edited 13-Feb-2021 23:27 by rmk:")


    (* ;; "This replaces the TOTOPW BUTTONEVENTFN on an attached window where the click is then directed to the MAINWINDOW.")


    (TOTOPW WINDOW)
    (LET ((MAIN (MAINWINDOW WINDOW T)))
         (CL:WHEN MAIN
             (MACWINDOW.BUTTONEVENTFN
 MAIN (WINDOWPROP MAIN 'BUTTONEVENTFN)))])
)
(DECLARE%: DONTEVAL@LOAD DOCOPY 

(TEDIT.MACINTERFACE
)


(* ;; "Inspector")



(MACWINDOW.SETUP
 '\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")



                                                             (* (MACWINDOW.SETUP

                                                           (QUOTE ONEDINSPECT.BUTTONEVENTFN)))


(MACWINDOW.SETUP
 'ICMLARRAY.TITLECOMMANDFN)


(* ;; "Freemenu")



(MACWINDOW.SETUP
 '\FM.BUTTONEVENTFN)


(* ;; "SEDIT")



(MACWINDOW.SETUP
 'SEDIT::BUTTONEVENTFN)


(* ;; "Debugger")



(MACWINDOW.SETUP
 'DBG::DEBUGGER-BUTTON-EVENT)


(* ;; "Snap")



(MACWINDOW.SETUP
 'SNAPW 'MACINT-SNAPW)


(* ;; "New execs")



(MACWINDOW.SETUP
 'ADD-EXEC 'MACINT-ADD-EXEC)


(* ;; "Existing exec of the load")



(MACWINDOW
 (PROCESSPROP (TTY.PROCESS)
                      'WINDOW))


(* ;; "Table browser (specialized to filebrowser)")



(MACWINDOW.SETUP
 'FB.MAKEHEADINGWINDOW 'FB.MAKEHEADINGWINDOW.MACINTERFACE)

(MACWINDOW.SETUP
 'TB.BUTTONEVENTFN)


(* ;; "Grapher")



(MACWINDOW.SETUP
 'APPLYTOSELECTEDNODE)


(* ;; "Promptwindow")



(MACWINDOW
 PROMPTWINDOW T)
)
(DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 

(ADDTOVAR NLAMA
 )

(ADDTOVAR NLAML
 )

(ADDTOVAR LAMA
 MACINT-ADD-EXEC)
)
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (4304 8063 (MACWINDOW 4314 . 4955) (MACWINDOW.SETUP 4957 . 6873) (UNMACWINDOW 6875 . 
7254) (MACWINDOW.UNSETUP 7256 . 8061)) (8123 16305 (MACWINDOW.BUTTONEVENTFN 8133 . 13155) (
MACWINDOW.BUTTONEVENTFN.ANYWHERE 13157 . 13522) (NEARTOP 13524 . 13960) (NEARESTCORNER 13962 . 14841) 
(INCORNER.REGION 14843 . 16303)) (16363 17340 (MACINT-ADD-EXEC 16373 . 16797) (MACINT-SNAPW 16799 . 
17338)) (17341 18300 (TEDIT.MACINTERFACE 17351 . 17969) (TEDIT.SELECTALL 17971 . 18298)) (18301 19950 
(FB.MAKEHEADINGWINDOW.MACINTERFACE 18311 . 19518) (TOTOPW.MACINTERFACE 19520 . 19948)))))
STOP
\ No newline at end of file
diff --git a/lispusers/MACINTERFACE.LCOM b/lispusers/MACINTERFACE.LCOM
index 72cc73fb3494ead7d92491498fbb494f4acfa099..71a2a9eeed84acc4a890206543d6d9b489b420fe 100644
GIT binary patch
delta 2810
zcmai0-H#Jh6rX7kmXE@A*<D~)<fIX3Mb^$oJ8dD_X*+F4+L>-UrMrp=-EC#N7PfR(
zQ6FsN%@B<+A;v@>#1J24-S}cOYodwa4=`bUAwKxdzG;lnbMH()DRG)i=bm%!`TU)8
z?~NC}Jo|BWoC};zRu@k5ex3u~9|`y)e(7d;-XR5Uem`|^p;=vAx!kDLs}-oe-Ds{J
zkC^L@BlEQ@;K?LY(7StPX2t`R@*0YIdg)v!!b=g3^Y~oeq?%FUc||sqM88nS^i_3Q
z3INZE;UFw7m9Jc?uEN^N@d$X6S^>=8M-HF#L8DoHtG4pyDm8~Z4=46S!9@aGM3in`
zRUMMJ@h9tg%5?5KWd1c04;p$dE9X<H207p%uIDu+kDnaKh9Sq(N+PeMRGo1Bkd;-<
zTAGWyeJw~r7)rG(m6dBoZLMBS)K(ky@;imKX0?17nH<>>FR5BWFIhHxz<#*f!8k`4
zd^RtVcYW6%^&OAyth0-BxlBIiqPq#pdf(p}y+l@f$jj|<c2+Hh`F6sV@qSVoqkG;j
zjlY^cM`d5B+*xNHsx1B-4)($2e;=q0^4a-zkB`{f$Ek%!x7L}vOBH-xu2_U`p4rUm
z`>D1~%jb-SgrzBb?o}GL(9ul4OjbjJC6n!FI=Y$F`V{H=vzjI3we?JA`Xta$Ml;Xt
zId<SHJEG538l&0V6KV;e0HhSd%5Jfs<a2pF2SSh^MinK<>gSab2qFiXBIlKYVV7DE
zL`p#%fWQk-NXt1Q$WcXh@dbYn8G133&<x;1VMw(UBdep?f`Q0Ik^mRt#e6}}=k$VV
z5Ww&O>R_*w7=B!e3lWEVrO@)AE)MngOSL#jdRz>nyP#@?VqUTG0^u;Inic7c9ZM(#
zNnJD2ikeCrAcY2YNd6%S3<SYaXzLJ#{r%fa|K6icA>=n%=Y&%TNaTNxmjuWtNrR-8
z7ebIH7U{yzQASM1Wfr(#z~Z&nVh9qtcG3W3bo(>F*~Kw`+xt<ARFUY4BtkB)iv8LZ
zRQp=h2h1dPj^iTfpQwY4wmU%H+8$*zHRJM%kdX^k4d!tq`CR=Fu}%2FiXIid#$fZY
zmPU3fN_5f&qm-?Gwr@q*4+f}cd8^lYThv72ja~+Al2OJR_7Bz<UBiS}uC@?+^C0$m
z4m{tDV-9*)b2O+yApCFU$OwCUf-&#0EaPakgLkvca(erV^!4TR*4XU!#<NkGMsS-p
z^(Yma#rPg<-?b=97Ok6}tw9wJpQvKvXG;g;ZG}VKwzYa10f2FG*uxZPZ7|^!?p7CP
zve?C85b@bA{2XAv613X;#2(%}2vP^hR$h0}j-B&uRQ7%CY$aneS^1ojR^)`LrL0y#
zN?g?pC7+bziUm`0hNMfNf<RjkKX|bFkRZ6ECX6%^{SeFRB^+s%BE;J%mSJ{8<yd?l
zgAe8_P4hrsdl>>o>r`0A1;eBfJwh0AMSD8Z$;e9sgb*pMj;T65%zMnFAoTPUV$0Am
z!=?VPI0<4!<C39k%6UaIk{U(YFiDEG_904x>_q3m=ve#6t5NWf2rHje=(N8-((VYs
zyyuvDo)`N^58%8c2eYLP$iyIiViT(w^T6ocofgCVY4jA{6^@wGZaC3_PJg2hbclJz
zeLYO>7{e0OpNAn4o8P&oS(o{%TQDcb51BCbH0#<pJNCCj1n+Zj<_x$zMtPxLg@xwI
zwbg19ysM4sVy#@Sy^HsywH0_B?^rg^=P`2!r(PQ7hY!57MIFx|*D!9Mm!^Jj`h*di
z!HV@13>8p!JgH{6u~cn(kl-?BCl6)hTrM+j=miCDXm~x-^n~K;Navb(3tYQKZ$D&9
z=cWS)w`|Ua9vD7+h{7M-Q)X!*h8g*E;+S2NjbA2yWX;^<;TMPbj@zurhB5mC%T7)^
UjF|bxq%SbkY1fn8BQSCO2T^R!>;M1&

delta 1368
zcmZux&2JM&6yMzdPTCq06o(Ka@o?4R6(a1c*Xs}UkY&BLCt2@W>!nUW6@@q=StU*Q
z>aDWsYo)5`sH*xQRc`q>aG~<C6m#!CKu+xiF1_GuFYU~Z7pK5T9>4j$H*eniz4!K)
z5573}Rc%_$oh_}co>di90i+fcy@(3CS5~B~w)<%A>aEr7t)0!&E!g-3Qg*olNE?~Y
z&(Eizb>-Gt3sU=WC0|q&>M141(`9U1re_(xRf5#(Zz<aDb&Rqa&|hAMof~VPZfxJa
z8G3!M2=NrkjNVgGF{>1{LJEi|y*s|SadT&N`^MUC_qdeJ^{^B_*v5{JecL*3cu*|m
z<7o^EG_g~1n=%L>3WB&WA<(tH@D}@<5{0THRwYRipKks8^ypwxNFx<Wjk;;$dL26z
z&#GY8fh^cY!>_p)8rF&&cd#8#%W>?OuIE_8r|O_Wdj;x%V43a;m>ytys2N@bJ5-D!
zfimPMYSLIOuWXnW_rmRHnD=9%AQ^X>hp$TgVVpc@zE7Ela8=y<Em#_KmpZ}Ho-yd5
zMV>~R=P~%^8q02yp?i-4d(gEzflUqXa(sP~dZ1Z{N$>q0)CS#JC#W$`&xfAg;OKGS
z47yGyaG2d=?ny|i`>DAMs4!w`8BpeRE@@LBT>}qSs{VP`_uU#bEAX@L)}f$)ZIvUH
zu7@Y8p!a0b7iY;<%sf3Lo^d{`5aXTKCnP@<m&x;(+?GL1(4voxGfw&+vwbu6Z1cd2
zpMMqp4vzs7|Kjw9K)6k%#yE7TMb+Oegc*lzbFn2Zii<=379}QfzNkDkJ-*(eYpE65
zzxZLHZ#z}IK1bI>gJa*<ULxlryC3_udpNQ?9@#O7T%R~OevgOpE%|98-&XZ3R4ku2
zHf>3-?or}YO??xp(q?l%w3?vO3Ewv#DpH_PHR@D@3I%p^$RsLcsKUKqmmD8*nc@6I
zgP;R`KkEBT4t$rErU@FmA9CLC>8#UQsXF=m?U^w(lOul~OniiLv`=VRS%pzHJ1RHI
za7EM#NdI4J==mr}EjQ|{6`;AkoXBMod*{nu^2mcRa(lXa<dwN1ClY58`|=)*EqNjy
zBbO7W$h|~|v}R_>XEPZwPK?=E@<;MS@7c^h(xfcQkS<xKZFm;@Ad$JGN4AnDUwx(b
Mb@GXLfPEPL13b%YSO5S3