From 2f7972e78d5fa1f26a370a0170fc1547618287cf Mon Sep 17 00:00:00 2001 From: Matt Heffron Date: Tue, 19 Mar 2024 21:28:33 -0700 Subject: [PATCH] The BUTTONS lispusers package will edit the button content in the TTY process. So, for example, a copy-paste to the EXEC that had the TTY is not possible. Changed to invoke EDITE as a new process, instead of in the TTY process. (#1594) (Lots of changes in file because change from FAST-formatted to PRETTY-formatted file. Actually only 1 line of code changed.) Second, cleaned up, attempt. --- lispusers/BUTTONS | 184 +++++++++++++++++++++++++++++------------ lispusers/BUTTONS.LCOM | Bin 23755 -> 23646 bytes 2 files changed, 129 insertions(+), 55 deletions(-) diff --git a/lispusers/BUTTONS b/lispusers/BUTTONS index 8fd35f6b..b8f47eee 100644 --- a/lispusers/BUTTONS +++ b/lispusers/BUTTONS @@ -1,18 +1,74 @@ -(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) -(FILECREATED "26-Oct-89 14:30:27" {ICE}LISPUSERS>MEDLEY>BUTTONS.;2 28959 +(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) - changes to%: (VARS BUTTONSCOMS) (FNS MOVE-BUTTON \BUTTONS-DRAW-BOX \BUTTONS-TRACK-MOUSE EDIT-BUTTON-CONTENTS) +(FILECREATED "18-Mar-2024 19:08:55" {LU}BUTTONS.;2 30183 - previous date%: " 2-Dec-88 17:17:47" {ICE}LISPUSERS>KOTO>BUTTONS.;1) + :EDIT-BY "mth" + + :CHANGES-TO (FNS \BUTTONS-EDITE) + + :PREVIOUS-DATE "26-Oct-89 14:30:27" {LU}BUTTONS.;1) -(* " -Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. +(* ; " +Copyright (c) 1986-1989, 2024 by Xerox Corporation. ") (PRETTYCOMPRINT BUTTONSCOMS) -(RPAQQ BUTTONSCOMS ((* ;;; "BUTTONS provides a mechanism for mapping mouse clicks to actions via mouse-sensitive pictures of buttons. Each button has a label and an action, which is an arbitrary Lisp form. If the left mouse button is clicked on a button, its associated action is executed. If the action is a string it is stuffed into the system buffer and read by the current tty process; otherwise it is evaluated under the mouse process.") (* ;;; "USER INTERFACE") (RECORDS BUTTON) (FNS ALIGN-BUTTONS BUTTONP BUTTONSPROP BUTTON-ACTION BUTTON-LABEL CLOSE-BUTTON CLOSE-BUTTONS COPY-BUTTON CREATE-BUTTON DELETE-BUTTON DELETE-BUTTONS EDIT-BUTTON EDIT-BUTTON-CONTENTS EXECUTE-BUTTON EXPOSE-BUTTONS LOAD-SOME-BUTTONS MOVE-BUTTON REDISPLAY-BUTTON RESTORE-BUTTONS SAVE-BUTTONS SAVE-SOME-BUTTONS) (PROP ARGNAMES BUTTONSPROP BUTTON-ACTION BUTTON-LABEL) (* ;;; "IMPLEMENTATION") (PROP MAKEFILE-ENVIRONMENT BUTTONS) (VARS *BUTTONS-DATAVERSION* *DEFAULT-BUTTONPROPS*) (INITVARS (*BUTTONPROPS* (COPYALL *DEFAULT-BUTTONPROPS*)) (*ALL-BUTTONS* NIL) (*BUTTONS-DEFAULT-ACTION* NIL) (*BUTTONS-DEFAULT-LABEL* NIL) (*BUTTONS-EDIT-MENU* NIL) (*BUTTONS-EDIT-SHADE* NIL) (*BUTTONS-EXEC-SHADE* NIL) (*BUTTONS-GRID-ORIGIN* NIL) (*BUTTONS-LABEL-FONT* NIL) (*BUTTONS-MENU-FONT* NIL) (*BUTTONS-SAVE-DIRECTORY* NIL)) (FNS \BUTTONS-BUTTONEVENTFN \BUTTONS-DATAFILE-NAME \BUTTONS-CHANGE-LABEL \BUTTONS-CREATE-ICON \BUTTONS-DRAW-BOX \BUTTONS-EDITE \BUTTONS-EDIT-MENU \BUTTONS-INIT \BUTTONS-IO-EXIT \BUTTONS-OPEN-STREAM \BUTTONS-PROMPT-FOR-DATAFILE-NAME \BUTTONS-READ \BUTTONS-SETPROP \BUTTONS-SHOW \BUTTONS-SHOW-EXEC \BUTTONS-TRACK-MOUSE \BUTTONS-WAIT-MOUSE) (COMS (* The button icon) (FILES (SYSLOAD FROM LISPUSERS) ICONW) (FNS DROPSHADOW ICONMASK CLEAR-MASK-OUTLINE) (BITMAPS *BUTTON-BITMAP*) (INITVARS (*BUTTON-INVERT-REGION* (QUOTE (6 10 85 25))) (*BUTTON-CLIPPING-REGION* (QUOTE (7 11 83 23))) (*BUTTON-ICON* (DROPSHADOW *BUTTON-BITMAP*)) (*BUTTON-ICON-MASK* (ICONMASK *BUTTON-ICON*)))) (ADDVARS (BackgroundMenuCommands ("Button Control" (QUOTE (EDIT-BUTTON)) "Manipulate action buttons"))) (VARS (BackgroundMenu)) (P (\BUTTONS-INIT)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA BUTTON-LABEL BUTTON-ACTION BUTTONSPROP))))) +(RPAQQ BUTTONSCOMS + [ + +(* ;;; "BUTTONS provides a mechanism for mapping mouse clicks to actions via mouse-sensitive pictures of buttons. Each button has a label and an action, which is an arbitrary Lisp form. If the left mouse button is clicked on a button, its associated action is executed. If the action is a string it is stuffed into the system buffer and read by the current tty process; otherwise it is evaluated under the mouse process.") + + + +(* ;;; "USER INTERFACE") + + (RECORDS BUTTON) + (FNS ALIGN-BUTTONS BUTTONP BUTTONSPROP BUTTON-ACTION BUTTON-LABEL CLOSE-BUTTON CLOSE-BUTTONS + COPY-BUTTON CREATE-BUTTON DELETE-BUTTON DELETE-BUTTONS EDIT-BUTTON EDIT-BUTTON-CONTENTS + EXECUTE-BUTTON EXPOSE-BUTTONS LOAD-SOME-BUTTONS MOVE-BUTTON REDISPLAY-BUTTON + RESTORE-BUTTONS SAVE-BUTTONS SAVE-SOME-BUTTONS) + (PROP ARGNAMES BUTTONSPROP BUTTON-ACTION BUTTON-LABEL) + + +(* ;;; "IMPLEMENTATION") + + (PROP MAKEFILE-ENVIRONMENT BUTTONS) + (VARS *BUTTONS-DATAVERSION* *DEFAULT-BUTTONPROPS*) + (INITVARS (*BUTTONPROPS* (COPYALL *DEFAULT-BUTTONPROPS*)) + (*ALL-BUTTONS* NIL) + (*BUTTONS-DEFAULT-ACTION* NIL) + (*BUTTONS-DEFAULT-LABEL* NIL) + (*BUTTONS-EDIT-MENU* NIL) + (*BUTTONS-EDIT-SHADE* NIL) + (*BUTTONS-EXEC-SHADE* NIL) + (*BUTTONS-GRID-ORIGIN* NIL) + (*BUTTONS-LABEL-FONT* NIL) + (*BUTTONS-MENU-FONT* NIL) + (*BUTTONS-SAVE-DIRECTORY* NIL)) + (FNS \BUTTONS-BUTTONEVENTFN \BUTTONS-DATAFILE-NAME \BUTTONS-CHANGE-LABEL \BUTTONS-CREATE-ICON + \BUTTONS-DRAW-BOX \BUTTONS-EDITE \BUTTONS-EDIT-MENU \BUTTONS-INIT \BUTTONS-IO-EXIT + \BUTTONS-OPEN-STREAM \BUTTONS-PROMPT-FOR-DATAFILE-NAME \BUTTONS-READ \BUTTONS-SETPROP + \BUTTONS-SHOW \BUTTONS-SHOW-EXEC \BUTTONS-TRACK-MOUSE \BUTTONS-WAIT-MOUSE) + [COMS (* The button icon) + (FILES (SYSLOAD FROM LISPUSERS) + ICONW) + (FNS DROPSHADOW ICONMASK CLEAR-MASK-OUTLINE) + (BITMAPS *BUTTON-BITMAP*) + (INITVARS (*BUTTON-INVERT-REGION* '(6 10 85 25)) + (*BUTTON-CLIPPING-REGION* '(7 11 83 23)) + (*BUTTON-ICON* (DROPSHADOW *BUTTON-BITMAP*)) + (*BUTTON-ICON-MASK* (ICONMASK *BUTTON-ICON*] + (ADDVARS (BackgroundMenuCommands ("Button Control" '(EDIT-BUTTON) + "Manipulate action buttons"))) + (VARS (BackgroundMenu)) + (P (\BUTTONS-INIT)) + (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) + (NLAML) + (LAMA BUTTON-LABEL + BUTTON-ACTION + BUTTONSPROP]) @@ -27,8 +83,12 @@ Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. (DECLARE%: EVAL@COMPILE -(ACCESSFNS BUTTON ((LABEL (WINDOWPROP DATUM (QUOTE BUTTON-LABEL)) (WINDOWPROP DATUM (QUOTE BUTTON-LABEL) NEWVALUE)) (ACTION (WINDOWPROP DATUM (QUOTE BUTTON-ACTION)) (WINDOWPROP DATUM (QUOTE BUTTON-ACTION) NEWVALUE)) (EXECUTING? (WINDOWPROP DATUM (QUOTE BUTTON-EXECUTING?)) (WINDOWPROP DATUM (QUOTE BUTTON-EXECUTING?) NEWVALUE))) -) +(ACCESSFNS BUTTON ((LABEL (WINDOWPROP DATUM 'BUTTON-LABEL) + (WINDOWPROP DATUM 'BUTTON-LABEL NEWVALUE)) + (ACTION (WINDOWPROP DATUM 'BUTTON-ACTION) + (WINDOWPROP DATUM 'BUTTON-ACTION NEWVALUE)) + (EXECUTING? (WINDOWPROP DATUM 'BUTTON-EXECUTING?) + (WINDOWPROP DATUM 'BUTTON-EXECUTING? NEWVALUE)))) ) (DEFINEQ @@ -116,44 +176,52 @@ Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. ) ) -(PUTPROPS BUTTONSPROP ARGNAMES (PROPNAME {NEWVALUE})) +(PUTPROPS BUTTONSPROP ARGNAMES (PROPNAME {NEWVALUE})) -(PUTPROPS BUTTON-ACTION ARGNAMES (BUTTON {NEWACTION})) +(PUTPROPS BUTTON-ACTION ARGNAMES (BUTTON {NEWACTION})) -(PUTPROPS BUTTON-LABEL ARGNAMES (BUTTON {NEWLABEL})) +(PUTPROPS BUTTON-LABEL ARGNAMES (BUTTON {NEWLABEL})) (* ;;; "IMPLEMENTATION") -(PUTPROPS BUTTONS MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) +(PUTPROPS BUTTONS MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) -(RPAQQ *BUTTONS-DATAVERSION* 3) +(RPAQQ *BUTTONS-DATAVERSION* 3) -(RPAQQ *DEFAULT-BUTTONPROPS* (*BUTTONPROPS* (GRID-ORIGIN (15 . 15)) (DEFAULT-LABEL "Create Button") (DEFAULT-ACTION (CREATE-BUTTON)) (MENU-FONT (MODERN 12 BOLD)) (LABEL-FONT (MODERN 10 BOLD)) (SAVE-DIRECTORY NIL) (EDIT-SHADE 4104) (EXEC-SHADE 65535))) +(RPAQQ *DEFAULT-BUTTONPROPS* + (*BUTTONPROPS* (GRID-ORIGIN (15 . 15)) + (DEFAULT-LABEL "Create Button") + (DEFAULT-ACTION (CREATE-BUTTON)) + (MENU-FONT (MODERN 12 BOLD)) + (LABEL-FONT (MODERN 10 BOLD)) + (SAVE-DIRECTORY NIL) + (EDIT-SHADE 4104) + (EXEC-SHADE 65535))) -(RPAQ? *BUTTONPROPS* (COPYALL *DEFAULT-BUTTONPROPS*)) +(RPAQ? *BUTTONPROPS* (COPYALL *DEFAULT-BUTTONPROPS*)) -(RPAQ? *ALL-BUTTONS* NIL) +(RPAQ? *ALL-BUTTONS* NIL) -(RPAQ? *BUTTONS-DEFAULT-ACTION* NIL) +(RPAQ? *BUTTONS-DEFAULT-ACTION* NIL) -(RPAQ? *BUTTONS-DEFAULT-LABEL* NIL) +(RPAQ? *BUTTONS-DEFAULT-LABEL* NIL) -(RPAQ? *BUTTONS-EDIT-MENU* NIL) +(RPAQ? *BUTTONS-EDIT-MENU* NIL) -(RPAQ? *BUTTONS-EDIT-SHADE* NIL) +(RPAQ? *BUTTONS-EDIT-SHADE* NIL) -(RPAQ? *BUTTONS-EXEC-SHADE* NIL) +(RPAQ? *BUTTONS-EXEC-SHADE* NIL) -(RPAQ? *BUTTONS-GRID-ORIGIN* NIL) +(RPAQ? *BUTTONS-GRID-ORIGIN* NIL) -(RPAQ? *BUTTONS-LABEL-FONT* NIL) +(RPAQ? *BUTTONS-LABEL-FONT* NIL) -(RPAQ? *BUTTONS-MENU-FONT* NIL) +(RPAQ? *BUTTONS-MENU-FONT* NIL) -(RPAQ? *BUTTONS-SAVE-DIRECTORY* NIL) +(RPAQ? *BUTTONS-SAVE-DIRECTORY* NIL) (DEFINEQ (\BUTTONS-BUTTONEVENTFN @@ -177,8 +245,11 @@ Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. ) (\BUTTONS-EDITE -(LAMBDA (FORM) (* edited%: "18-Mar-87 22:39") (ALLOW.BUTTON.EVENTS) (EVAL.IN.TTY.PROCESS (BQUOTE (CAR (NLSETQ (EDITE (\, (KWOTE FORM)))))) T)) -) + [LAMBDA (FORM) (* ; "Edited 18-Mar-2024 18:19 by mth") + (* edited%: "18-Mar-87 22:39") + (ALLOW.BUTTON.EVENTS) + (EVAL.AS.PROCESS `[CAR (NLSETQ (EDITE ,(KWOTE FORM] + T]) (\BUTTONS-EDIT-MENU (LAMBDA NIL (* Koomen " 2-Dec-88 14:50") (DECLARE (GLOBALVARS *BUTTONS-EDIT-MENU* *BUTTONS-MENU-FONT*)) (* * If adding/changing menu entries, do (SETQ *BUTTONS-EDIT-MENU*)) (OR *BUTTONS-EDIT-MENU* (SETQ *BUTTONS-EDIT-MENU* (create MENU TITLE _ "Button Control" ITEMS _ (QUOTE (("Redisplay" (QUOTE REDISPLAY-BUTTON) "Redisplay the button") ("Move" (QUOTE MOVE-BUTTON) "Move the button") ("Copy" (QUOTE COPY-BUTTON) "Create a copy of the button") ("Edit" (QUOTE EDIT-BUTTON-CONTENTS) "Edit the label and the action of the button") ("" NIL "Does nothing") ("Close" (QUOTE CLOSE-BUTTON) "Close the button" (SUBITEMS ("Close All Buttons" (QUOTE CLOSE-BUTTONS)))) ("Delete" (QUOTE DELETE-BUTTON) "Delete this button" (SUBITEMS ("Delete All Buttons" (QUOTE DELETE-BUTTONS)))) ("" NIL "Does nothing") ("Create Button" (QUOTE CREATE-BUTTON) "Create a new button") ("" NIL "Does nothing") ("Expose Buttons" (QUOTE EXPOSE-BUTTONS) "Bring all buttons to the top") ("Align Buttons" (QUOTE ALIGN-BUTTONS) "Align one or more buttons with this button") ("" NIL "Does nothing") ("Save Buttons" (QUOTE SAVE-BUTTONS) "Save all current buttons in default datafile" (SUBITEMS ("Save Some Buttons" (QUOTE SAVE-SOME-BUTTONS) "Save some buttons in some datafile"))) ("Restore Buttons" (QUOTE RESTORE-BUTTONS) "Throw away current buttons, then restore saved buttons from default datafile" (SUBITEMS ("Load Some Buttons" (QUOTE LOAD-SOME-BUTTONS) "Load some buttons from some datafile"))))) MENUFONT _ *BUTTONS-MENU-FONT* MENUOUTLINESIZE _ 1 CENTERFLG _ T CHANGEOFFSETFLG _ (QUOTE Y) MENUOFFSET _ (QUOTE (-1 . 0)))))) @@ -231,7 +302,8 @@ Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. (* The button icon) -(FILESLOAD (SYSLOAD FROM LISPUSERS) ICONW) +(FILESLOAD (SYSLOAD FROM LISPUSERS) + ICONW) (DEFINEQ (DROPSHADOW @@ -247,43 +319,45 @@ Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation. All rights reserved. ) ) -(RPAQQ *BUTTON-BITMAP* #*(97 37)@OOOOOOOOOOOOOOOOOOOOOOH@@@@COOOOOOOOOOOOOOOOOOOOOON@@@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@F@@@@@@@@@@@@@@@@@@@@@@C@@@@LGOOOOOOOOOOOOOOOOOOOOOAH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LGOOOOOOOOOOOOOOOOOOOOOAH@@@F@@@@@@@@@@@@@@@@@@@@@@C@@@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@COOOOOOOOOOOOOOOOOOOOOON@@@@@OOOOOOOOOOOOOOOOOOOOOOH@@@@) +(RPAQQ *BUTTON-BITMAP* #*(97 37)@OOOOOOOOOOOOOOOOOOOOOOH@@@@COOOOOOOOOOOOOOOOOOOOOON@@@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@F@@@@@@@@@@@@@@@@@@@@@@C@@@@LGOOOOOOOOOOOOOOOOOOOOOAH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LH@@@@@@@@@@@@@@@@@@@@@IH@@@LGOOOOOOOOOOOOOOOOOOOOOAH@@@F@@@@@@@@@@@@@@@@@@@@@@C@@@@G@@@@@@@@@@@@@@@@@@@@@@G@@@@COOOOOOOOOOOOOOOOOOOOOON@@@@@OOOOOOOOOOOOOOOOOOOOOOH@@@@ +) -(RPAQ? *BUTTON-INVERT-REGION* (QUOTE (6 10 85 25))) +(RPAQ? *BUTTON-INVERT-REGION* '(6 10 85 25)) -(RPAQ? *BUTTON-CLIPPING-REGION* (QUOTE (7 11 83 23))) +(RPAQ? *BUTTON-CLIPPING-REGION* '(7 11 83 23)) -(RPAQ? *BUTTON-ICON* (DROPSHADOW *BUTTON-BITMAP*)) +(RPAQ? *BUTTON-ICON* (DROPSHADOW *BUTTON-BITMAP*)) -(RPAQ? *BUTTON-ICON-MASK* (ICONMASK *BUTTON-ICON*)) +(RPAQ? *BUTTON-ICON-MASK* (ICONMASK *BUTTON-ICON*)) -(ADDTOVAR BackgroundMenuCommands ("Button Control" (QUOTE (EDIT-BUTTON)) "Manipulate action buttons")) +(ADDTOVAR BackgroundMenuCommands ("Button Control" '(EDIT-BUTTON) + "Manipulate action buttons")) -(RPAQQ BackgroundMenu NIL) +(RPAQQ BackgroundMenu NIL) -(\BUTTONS-INIT) +(\BUTTONS-INIT) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS -(ADDTOVAR NLAMA) +(ADDTOVAR NLAMA ) -(ADDTOVAR NLAML) +(ADDTOVAR NLAML ) -(ADDTOVAR LAMA BUTTON-LABEL BUTTON-ACTION BUTTONSPROP) +(ADDTOVAR LAMA BUTTON-LABEL BUTTON-ACTION BUTTONSPROP) ) -(PUTPROPS BUTTONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989)) +(PUTPROPS BUTTONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989 2024)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (3565 14600 (ALIGN-BUTTONS 3575 . 4350) (BUTTONP 4352 . 4557) (BUTTONSPROP 4559 . 5104) -(BUTTON-ACTION 5106 . 5470) (BUTTON-LABEL 5472 . 5881) (CLOSE-BUTTON 5883 . 5993) (CLOSE-BUTTONS 5995 - . 6176) (COPY-BUTTON 6178 . 6399) (CREATE-BUTTON 6401 . 7810) (DELETE-BUTTON 7812 . 8013) ( -DELETE-BUTTONS 8015 . 8209) (EDIT-BUTTON 8211 . 8946) (EDIT-BUTTON-CONTENTS 8948 . 9580) ( -EXECUTE-BUTTON 9582 . 9998) (EXPOSE-BUTTONS 10000 . 10186) (LOAD-SOME-BUTTONS 10188 . 10524) ( -MOVE-BUTTON 10526 . 11489) (REDISPLAY-BUTTON 11491 . 11751) (RESTORE-BUTTONS 11753 . 12582) ( -SAVE-BUTTONS 12584 . 13332) (SAVE-SOME-BUTTONS 13334 . 14598)) (15579 25703 (\BUTTONS-BUTTONEVENTFN -15589 . 15972) (\BUTTONS-DATAFILE-NAME 15974 . 16670) (\BUTTONS-CHANGE-LABEL 16672 . 16929) ( -\BUTTONS-CREATE-ICON 16931 . 17818) (\BUTTONS-DRAW-BOX 17820 . 17994) (\BUTTONS-EDITE 17996 . 18160) ( -\BUTTONS-EDIT-MENU 18162 . 19779) (\BUTTONS-INIT 19781 . 20029) (\BUTTONS-IO-EXIT 20031 . 20257) ( -\BUTTONS-OPEN-STREAM 20259 . 20690) (\BUTTONS-PROMPT-FOR-DATAFILE-NAME 20692 . 21045) (\BUTTONS-READ -21047 . 22401) (\BUTTONS-SETPROP 22403 . 23333) (\BUTTONS-SHOW 23335 . 23713) (\BUTTONS-SHOW-EXEC -23715 . 24082) (\BUTTONS-TRACK-MOUSE 24084 . 25358) (\BUTTONS-WAIT-MOUSE 25360 . 25701)) (25776 27275 -(DROPSHADOW 25786 . 26685) (ICONMASK 26687 . 26900) (CLEAR-MASK-OUTLINE 26902 . 27273))))) + (FILEMAP (NIL (4365 15400 (ALIGN-BUTTONS 4375 . 5150) (BUTTONP 5152 . 5357) (BUTTONSPROP 5359 . 5904) +(BUTTON-ACTION 5906 . 6270) (BUTTON-LABEL 6272 . 6681) (CLOSE-BUTTON 6683 . 6793) (CLOSE-BUTTONS 6795 + . 6976) (COPY-BUTTON 6978 . 7199) (CREATE-BUTTON 7201 . 8610) (DELETE-BUTTON 8612 . 8813) ( +DELETE-BUTTONS 8815 . 9009) (EDIT-BUTTON 9011 . 9746) (EDIT-BUTTON-CONTENTS 9748 . 10380) ( +EXECUTE-BUTTON 10382 . 10798) (EXPOSE-BUTTONS 10800 . 10986) (LOAD-SOME-BUTTONS 10988 . 11324) ( +MOVE-BUTTON 11326 . 12289) (REDISPLAY-BUTTON 12291 . 12551) (RESTORE-BUTTONS 12553 . 13382) ( +SAVE-BUTTONS 13384 . 14132) (SAVE-SOME-BUTTONS 14134 . 15398)) (16568 26849 (\BUTTONS-BUTTONEVENTFN +16578 . 16961) (\BUTTONS-DATAFILE-NAME 16963 . 17659) (\BUTTONS-CHANGE-LABEL 17661 . 17918) ( +\BUTTONS-CREATE-ICON 17920 . 18807) (\BUTTONS-DRAW-BOX 18809 . 18983) (\BUTTONS-EDITE 18985 . 19306) ( +\BUTTONS-EDIT-MENU 19308 . 20925) (\BUTTONS-INIT 20927 . 21175) (\BUTTONS-IO-EXIT 21177 . 21403) ( +\BUTTONS-OPEN-STREAM 21405 . 21836) (\BUTTONS-PROMPT-FOR-DATAFILE-NAME 21838 . 22191) (\BUTTONS-READ +22193 . 23547) (\BUTTONS-SETPROP 23549 . 24479) (\BUTTONS-SHOW 24481 . 24859) (\BUTTONS-SHOW-EXEC +24861 . 25228) (\BUTTONS-TRACK-MOUSE 25230 . 26504) (\BUTTONS-WAIT-MOUSE 26506 . 26847)) (26929 28428 +(DROPSHADOW 26939 . 27838) (ICONMASK 27840 . 28053) (CLEAR-MASK-OUTLINE 28055 . 28426))))) STOP diff --git a/lispusers/BUTTONS.LCOM b/lispusers/BUTTONS.LCOM index 82a969c8e03e5360c24305eda74a9bfb639cd394..412829909009d52076d3dc9f0de9ca7d222d4762 100644 GIT binary patch delta 1296 zcmai!YiJx*6vx?Q)5d9xmL}OWG0n-CG_#w`vd?xiV@W32+3mQqGds^xHnrJqHf_~x zN=&Juwt|9UFll=ID53~$KL~7G?~vRs>~}|Mu%MmX(}gWWndM}mQ7W$3hdhUoonN*XBdW~ zc~hn=*>W1#Xo}C57Wr5tmVoG(5E&DqQ5HD1yfA;__|uhHSf~OE&#TUhla6icniUpf zK`e{jEsMm2NJ5BX*^$LcqmF^{u~PMD<(VM?rt77=oIa!2G8{+AjH9Y>uSz%^W?{Cp zgj@cXdV&r9PvkUN0~4sWFJ+s1YHy_r9&7K}J%Qtj5=81tFbcJZKV{d<-f2 zPx~0}8-KG8jhihS$n`D1BQI<gUB zmUsR}(@yn%hQ_`}j!@q_eHE&GM@$kCKHp65ANc96Z{QJk23I%+pb7U|*p(Gd7Y{R|gmNQv*l#Ao@97WCTjH;_NX zmyy-PR~VQ`rcl9qZtpHsrF~yY$@Dnxh}Y5mg)xkJdWbJNI} zN+S;+5&PI5!jaW$;diWPkZ`KLbD%m7DLiX-IZ z!Weo!DbVPkQ9-_LD9GzZ5g9S*$-ZgQ=oe;pJ81F&S5h50h(Cr5SV;^Vu=XHVtOW9^ z^~7*vzEI53_7fx1Z^Ofq!&AqsPAE}}#HVVBo Poo)mA&xNOh?K1xWhn{5) delta 1372 zcmZ`(YiL_#7$)|T$$F$!({4*IZ%tcN0Cd1Lf zB$gOL3RrK*t(4EXBYyCC`9O&GdRgGuLiucEVaY5)xdbdcm(tT4BZ~{A`IvdWQeIw- zEiJ563gu<97Obt9%PX-2gAJI&%!KK-CR0SgauTU&Ek^z zEIcUmcswi=XI63Q!|lWT&@dkeu#W#2_l4YQVbvXufH%PVhj`yG8Woem#z>A*DhkyK^f0o<6PgRJHS zcbx{ZE8EHK&i$l4ZQFD}W!XHpP+nUBh8jl^7JTlMS#XEL;2q}i7x;f$Y1L34J~k#H ziQ`IRk`8<-%y1b9LVdJP6UIeVfeZv1O!c~@=Mf7-ertN(!c>=~M3Yu~F)xH#W-p_V*E`k4ww-CaG^%giDQR_*Opl&TJNRH-5+ z$e)kj#mL@%sQT9v1C;Eyts`EteT%s3kCH2$&sdn(y1Qt5&%ryi; z|8UyKNjZg4Vt*Iekw-Dwm374a(37O7WH5SPp7F`DIx-Pt(ixh4 zFJmGe$cl)w*(t=2vUt9P)o6B08$`UU1rdMILWtdZ05PkdLVQ=J=lZ2i6+#AeOAH?I znh~_uHysCOLX!4gt`ihd!VBol9mcBO+yN4Av$oW^`COm1(L-*wced5o+QG$vw95zY zCx`r9jg~t(K$*5YHQ~xr$!y+;9$8 l6c*=~%WI{gY?jvQ2D$0Rw~qgsqJct>O{c652ZNrNe*vkwf4=|#