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.

Author: MattHeffron

lispusers/BUTTONS

@@ -1,18 +1,74 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10)
-
(FILECREATED "26-Oct-89 14:30:27" {ICE}<KOOMEN>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}<KOOMEN>LISPUSERS>KOTO>BUTTONS.;1)
+      :EDIT-BY "mth"
 
+      :CHANGES-TO (FNS \BUTTONS-EDITE)
 
-(* "
-Copyright (c) 1986, 1987, 1988, 1989 by Xerox Corporation.  All rights reserved.
+      :PREVIOUS-DATE "26-Oct-89 14:30:27" {LU}BUTTONS.;1)
+
+
+(* ; "
+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