github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-02-26 09:03:27 +00:00
Code Issues Projects Releases Wiki Activity

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)

Browse Source 
(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.
This commit is contained in:
Matt Heffron
2024-03-19 21:28:33 -07:00
committed by GitHub
parent 2a88ad712e
commit 2f7972e78d
2 changed files with 129 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

184
lispusers/BUTTONS
View File

@@ -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)
: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

BIN
lispusers/BUTTONS.LCOM
View File

Binary file not shown.