BUTTONS - Correctly wait for edit of button to complete before updating (#2207)

Fix editing of button...correctly wait for edit to complete before updating the button itself.
Add (FIND-BUTTON label) function.
Minor updates to documentation.

Author: MattHeffron

lispusers/BUTTONS

@@ -1,16 +1,17 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "18-Mar-2024 19:08:55" {LU}BUTTONS.;2
 30183  
+
(FILECREATED " 7-Jul-2025 15:53:15" {DSK}<home>matt>Interlisp>medley>lispusers>BUTTONS.;3
 30683  
 
       :EDIT-BY "mth"
 
-      :CHANGES-TO (FNS \BUTTONS-EDITE)
+      :CHANGES-TO (VARS BUTTONSCOMS)
+                  (FNS FIND-BUTTON)
 
-      :PREVIOUS-DATE "26-Oct-89 14:30:27" {LU}BUTTONS.;1)
+      :PREVIOUS-DATE " 6-Jul-2025 00:29:46" {DSK}<home>matt>Interlisp>medley>lispusers>BUTTONS.;2)
 
 
 (* ; "
-Copyright (c) 1986-1989, 2024 by Xerox Corporation.
+Copyright (c) 1986-1989, 2024-2025 by Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT BUTTONSCOMS)
@@ -27,7 +28,7 @@ Copyright (c) 1986-1989, 2024 by Xerox Corporation.
         (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 
+             EXECUTE-BUTTON EXPOSE-BUTTONS FIND-BUTTON LOAD-SOME-BUTTONS MOVE-BUTTON REDISPLAY-BUTTON
              RESTORE-BUTTONS SAVE-BUTTONS SAVE-SOME-BUTTONS)
         (PROP ARGNAMES BUTTONSPROP BUTTON-ACTION BUTTON-LABEL)
 
@@ -151,6 +152,11 @@ Copyright (c) 1986-1989, 2024 by Xerox Corporation.
 (LAMBDA (BUTTONS) (* Koomen "18-Mar-87 16:31") (DECLARE (GLOBALVARS *ALL-BUTTONS*)) (for BUTTON in (OR (LISTP BUTTONS) *ALL-BUTTONS*) do (REDISPLAY-BUTTON BUTTON)))
 )
 
+(FIND-BUTTON

+  [LAMBDA (LABEL)
+    (DECLARE
 (GLOBALVARS *ALL-BUTTONS*))
                     (* ; "Edited  5-Jul-2025 17:37 by mth")

+    (for
 B in
 *ALL-BUTTONS* thereis
 (EQUAL LABEL (WINDOWPROP B 'BUTTON-LABEL])
+
 (LOAD-SOME-BUTTONS

 (LAMBDA (FILENAME) (* Koomen " 2-Dec-88 15:02") (if (BUTTONP FILENAME) then (* ;; "Invoked from button menu") (SETQ FILENAME NIL)) (if (NULL FILENAME) then (SETQ FILENAME (\BUTTONS-PROMPT-FOR-DATAFILE-NAME "File to load buttons from (NIL to abort):"))) (if FILENAME then (RESTORE-BUTTONS FILENAME (QUOTE ASK))))
 )
@@ -245,10 +251,11 @@ Copyright (c) 1986-1989, 2024 by Xerox Corporation.
 )
 
 (\BUTTONS-EDITE

-  [LAMBDA (FORM)
                                             (* ; "Edited 18-Mar-2024 18:19 by mth")

+  [LAMBDA (FORM)
                                             (* ; "Edited  6-Jul-2025 00:24 by mth")


+                                                             (* ; "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]
+    (PROCESS.RESULT [EVAL.AS.PROCESS `(CAR (NLSETQ (EDITE ,(KWOTE FORM]
            T])
 
 (\BUTTONS-EDIT-MENU

@@ -344,20 +351,21 @@ Copyright (c) 1986-1989, 2024 by Xerox Corporation.
 
 (ADDTOVAR LAMA
 BUTTON-LABEL BUTTON-ACTION BUTTONSPROP)
 )
-(PUTPROPS BUTTONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989 2024))
+(PUTPROPS BUTTONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989 2024 2025))
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (4495 15770 (ALIGN-BUTTONS 4505 . 5280) (BUTTONP 5282 . 5487) (BUTTONSPROP 5489 . 6034) 
+(BUTTON-ACTION 6036 . 6400) (BUTTON-LABEL 6402 . 6811) (CLOSE-BUTTON 6813 . 6923) (CLOSE-BUTTONS 6925
+ . 7106) (COPY-BUTTON 7108 . 7329) (CREATE-BUTTON 7331 . 8740) (DELETE-BUTTON 8742 . 8943) (
+DELETE-BUTTONS 8945 . 9139) (EDIT-BUTTON 9141 . 9876) (EDIT-BUTTON-CONTENTS 9878 . 10510) (
+EXECUTE-BUTTON 10512 . 10928) (EXPOSE-BUTTONS 10930 . 11116) (FIND-BUTTON 11118 . 11356) (
+LOAD-SOME-BUTTONS 11358 . 11694) (MOVE-BUTTON 11696 . 12659) (REDISPLAY-BUTTON 12661 . 12921) (
+RESTORE-BUTTONS 12923 . 13752) (SAVE-BUTTONS 13754 . 14502) (SAVE-SOME-BUTTONS 14504 . 15768)) (16938 
+27344 (\BUTTONS-BUTTONEVENTFN 16948 . 17331) (\BUTTONS-DATAFILE-NAME 17333 . 18029) (
+\BUTTONS-CHANGE-LABEL 18031 . 18288) (\BUTTONS-CREATE-ICON 18290 . 19177) (\BUTTONS-DRAW-BOX 19179 . 
+19353) (\BUTTONS-EDITE 19355 . 19801) (\BUTTONS-EDIT-MENU 19803 . 21420) (\BUTTONS-INIT 21422 . 21670)
+ (\BUTTONS-IO-EXIT 21672 . 21898) (\BUTTONS-OPEN-STREAM 21900 . 22331) (
+\BUTTONS-PROMPT-FOR-DATAFILE-NAME 22333 . 22686) (\BUTTONS-READ 22688 . 24042) (\BUTTONS-SETPROP 24044
+ . 24974) (\BUTTONS-SHOW 24976 . 25354) (\BUTTONS-SHOW-EXEC 25356 . 25723) (\BUTTONS-TRACK-MOUSE 25725
+ . 26999) (\BUTTONS-WAIT-MOUSE 27001 . 27342)) (27424 28923 (DROPSHADOW 27434 . 28333) (ICONMASK 28335
+ . 28548) (CLEAR-MASK-OUTLINE 28550 . 28921)))))
 STOP