(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 10) (FILECREATED "16-Nov-93 21:46:11" ("compiled on " {DSK}export>lispcore>lispusers>BUTTONS.;1) "11-Nov-93 16:58:33" bcompl'd in "Medley 11-Nov-93 ..." dated "11-Nov-93 17:07:44") (FILECREATED "26-Oct-89 14:30:27" {ICE}LISPUSERS>MEDLEY>BUTTONS.;2 28959 changes to%: (VARS BUTTONSCOMS) (FNS MOVE-BUTTON \BUTTONS-DRAW-BOX \BUTTONS-TRACK-MOUSE EDIT-BUTTON-CONTENTS) previous date%: " 2-Dec-88 17:17:47" {ICE}LISPUSERS>KOTO>BUTTONS.;1) ALIGN-BUTTONS :D8 (P 5 BUTTON2REGION P 4 BUTTON2 P 3 BUTTONREGION P 2 EDGE I 0 BUTTON) ±`do¿do¿di¿dg ¿dg¿jdnÿdhHdI ¿ 1J¡h@ [¿o ¿ \L@ð©Ld`¬¿o h ½LJgð‘M€KJgð‘M€K°©(173 MOVEW 141 WINDOWREGION 134 PROMPTPRINT 108 WHICHW 103 GETPOSITION 97 PROMPTPRINT 85 WINDOWREGION 72 MENU) (161 Vertical 149 Horizontal 121 *ALL-BUTTONS* 43 DEFAULTMENUHELDFN 34 CLRPROMPT 4 |MENUTYPE#|) ( 129 "Done." 92 "Indicate another button to align: " 20 (Vertical Horizontal) 11 "Which axis? ") BUTTONP :D8 (I 1 ERROR? I 0 BUTTON) @`‘@A´ o@ (23 ERROR) (5 *ALL-BUTTONS*) ( 17 "Arg not a BUTTON:") BUTTONSPROP :D8 (P 3 NEWVALUE P 2 OLDVALUE P 1 PROPNAME P 0 N) Re0Hjñ´kaYd¡h`gð´òI`ZHkñ² la[Jô³IKh`¿IK J(78 \BUTTONS-SETPROP 70 PUTASSOC) (65 *BUTTONPROPS* 39 *BUTTONPROPS* 30 *BUTTONPROPS* 23 *BUTTONPROPS*) () BUTTON-ACTION :D8 (P 3 NEWACTION P 2 OLDACTION P 1 BUTTON P 0 N) <e0Hjñ´kaYdi ¡hIg ZHkñŸla»IgKJ(56 PUTWINDOWPROP 35 GETWINDOWUSERPROP 21 BUTTONP) (50 BUTTON-ACTION 30 BUTTON-ACTION) () BUTTON-LABEL :D8 (P 3 NEWLABEL P 2 OLDLABEL P 1 BUTTON P 0 N) Ge0Hjñ´kaYdi ¡hIg ZHkñ²laµo [Jô¦IK J(67 \BUTTONS-CHANGE-LABEL 56 MKSTRING 35 GETWINDOWUSERPROP 21 BUTTONP) (30 BUTTON-LABEL) ( 51 "") CLOSE-BUTTON :D8 (I 0 BUTTON) @i ´@ (14 CLOSEW 6 BUTTONP) NIL () CLOSE-BUTTONS :D8 (P 0 BUTTON I 0 BUTTONS) @µ`ŒdH µòh(20 CLOSE-BUTTON) (8 *ALL-BUTTONS*) () COPY-BUTTON :D8 (I 1 NEWLOCATION I 0 BUTTON) 1@i ´(@g @g A(46 CREATE-BUTTON 40 COPYALL 35 GETWINDOWUSERPROP 24 COPYALL 19 GETWINDOWUSERPROP 6 BUTTONP) (30 BUTTON-LABEL 14 BUTTON-ACTION) () CREATE-BUTTON :D8 (P 0 BUTTON I 3 NOOPENFLG I 2 LOCATION I 1 LABEL I 0 ACTION) @ •hbb€@³A³`b¿`b°&@³JgAd´dið¬3µgAhhb¿A b@ bB ²BB AµØ@b°ÓB bA `Bµ ``CµBhðH`HggHggHggHgAHg@C§B¥H H(259 MOVE-BUTTON 249 PUTWINDOWPROP 237 PUTWINDOWPROP 225 PUTWINDOWPROP 209 PUTWINDOWPROP 193 PUTWINDOWPROP 162 ICONW 132 \BUTTONS-CREATE-ICON 124 POSITIONP 109 CREATEPOSITION 97 REGIONP 89 COPYALL 81 COPYALL 76 MKSTRING 5 BUTTONP) (243 BUTTON-ACTION 231 BUTTON-LABEL 220 \BUTTONS-BUTTONEVENTFN 215 RIGHTBUTTONFN 204 \BUTTONS-BUTTONEVENTFN 199 BUTTONEVENTFN 188 REDISPLAY-BUTTON 183 REPAINTFN 177 *ALL-BUTTONS* 171 *ALL-BUTTONS* 150 LASTMOUSEY 145 LASTMOUSEX 137 *BUTTON-ICON-MASK* 60 QUOTE 43 PROMPTPRINT 31 *BUTTONS-DEFAULT-LABEL* 23 *BUTTONS-DEFAULT-ACTION*) () DELETE-BUTTON :D8 (I 0 BUTTON) !@i ´@ @` (25 DREMOVE 14 CLOSEW 6 BUTTONP) (30 *ALL-BUTTONS* 20 *ALL-BUTTONS*) () DELETE-BUTTONS :D8 (P 0 BUTTON I 0 BUTTONS) #@µ`h ŒdH µòh(26 DELETE-BUTTON 14 \APPEND2) (8 *ALL-BUTTONS*) () EDIT-BUTTONA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 CMD I 0 SI::*CLEANUP-FORMS* F 1 BUTTON F 2 CONTENTS?) ¨R•g‰ Q³lHgð³9Hgð³0Hgð³'Hgð³Hgð³HgðªHdgð².¿o ¿ c¿¿Qd—`¡hH´þH —QkH¿°îoHo¿°Û(163 PROMPTPRINT 138 DEFINEDP 116 CLRPROMPT 108 WHICHW 103 GETPOSITION 97 PROMPTPRINT 17 MENU 12 \BUTTONS-EDIT-MENU) (125 *ALL-BUTTONS* 83 ALIGN-BUTTONS 74 COPY-BUTTON 65 EDIT-BUTTON-CONTENTS 56 MOVE-BUTTON 47 REDISPLAY-BUTTON 38 DELETE-BUTTON 29 CLOSE-BUTTON 6 EDIT-BUTTON-CONTENTS) ( 158 " not yet implemented!" 152 "Button command " 92 "Indicate button to manipulate: ") EDIT-BUTTON :D8 (P 0 SI::*RESETFORMS* I 1 CONTENTS? I 0 BUTTON) 4g@` hhhg ¿$(45 SI::RESETUNWIND 40 \MVLIST 35 EDIT-BUTTONA0001 15 \BUTTONS-SHOW) (30 SI::RESETUNWIND 10 *BUTTONS-EDIT-SHADE* 4 \BUTTONS-SHOW) () EDIT-BUTTON-CONTENTS :D8 (P 4 NEWACTION P 3 NEWLABEL P 2 RESULT P 1 OLDACTION P 0 OLDLABEL I 0 BUTTON) w@i ´nP@g X@g YgH hgI hh Zd¡hgJ[š@K ¿gJ\™@L @(115 BUTTON-ACTION 95 BUTTON-LABEL 71 \BUTTONS-EDITE 60 COPYALL 46 COPYALL 34 GETWINDOWUSERPROP 22 GETWINDOWUSERPROP 6 BUTTONP) (101 :ACTION 81 :LABEL 54 :ACTION 40 :LABEL 29 BUTTON-ACTION 17 BUTTON-LABEL) () EXECUTE-BUTTONA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 ACTION I 0 SI::*CLEANUP-FORMS* F 1 BUTTON F 2 NOMOUSE) /R§Q ´%Qg Hd• „ h(43 BKSYSBUF 37 EVAL 25 GETWINDOWUSERPROP 14 ALLOW.BUTTON.EVENTS 7 \BUTTONS-WAIT-MOUSE) (20 BUTTON-ACTION) () EXECUTE-BUTTON :D8 (P 0 SI::*RESETFORMS* I 1 NOMOUSE I 0 BUTTON) H@i ´?@g ³1g@i hhhg ¿$h(63 SI::RESETUNWIND 58 \MVLIST 53 EXECUTE-BUTTONA0001 33 \BUTTONS-SHOW-EXEC 19 GETWINDOWUSERPROP 6 BUTTONP) (48 SI::RESETUNWIND 26 \BUTTONS-SHOW-EXEC 14 BUTTON-EXECUTING?) () EXPOSE-BUTTONS :D8 (P 0 BUTTON I 0 BUTTONS) @µ`ŒdH µòh(20 REDISPLAY-BUTTON) (8 *ALL-BUTTONS*) () LOAD-SOME-BUTTONS :D8 (I 0 FILENAME) *@ “hb€@¬o b€@´ @g (39 RESTORE-BUTTONS 22 \BUTTONS-PROMPT-FOR-DATAFILE-NAME 5 BUTTONP) (34 ASK) ( 17 "File to load buttons from (NIL to abort):") MOVE-BUTTONA0001A0002 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 SI::NLSETQ-VALUE) i@hcg(9 \BUTTONS-TRACK-MOUSE) (18 :NORMAL) () MOVE-BUTTONA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS* F 7 OK?) Ug` hhTcghhTc`UioVI gð´Hc(69 MOVE-BUTTONA0001A0002 33 \BUTTONS-DRAW-BOX 14 CURSOR) (75 :NORMAL 50 SI::NLSETQ-PROCEED-CASE 28 \BUTTONS-DRAW-BOX 9 BOXCURSOR 4 CURSOR) ( 58 (CL:ERROR . SI::NLSETQHANDLER)) MOVE-BUTTON :D8 (P 10 RESETSTATE P 9 SI::*RESETFORMS* P 8 LISPXHIST P 7 OK? P 6 BT P 5 BR P 4 BH P 3 BW P 2 BB P 1 BL P 0 BOX I 2 Y I 1 X/POS I 0 BUTTON F 11 LISPXHIST) @i ´‚±”€A šA¹Aºi_°sAdž¿B˜A¹Bºi_°`A³[B³X@ X¹HºH»H¼HHØmÿØ½HHØmÿØ¾IJ ¿W! g ¿$O´@IJh(156 MOVEW 139 SI::RESETUNWIND 134 \MVLIST 129 MOVE-BUTTONA0001 113 \SETCURSORPOSITION 64 WINDOWREGION 21 POSITIONP 6 BUTTONP) (124 SI::RESETUNWIND) () REDISPLAY-BUTTON :D8 (I 0 BUTTON) *@i ´!@i @g ´ @` (39 \BUTTONS-SHOW 26 GETWINDOWUSERPROP 15 \BUTTONS-SHOW 6 BUTTONP) (34 *BUTTONS-EXEC-SHADE* 21 BUTTON-EXECUTING?) () RESTORE-BUTTONS :D8 (P 0 BUTTONSPECS I 1 KEEP-CURRENT-BUTTONS? I 0 FILENAME) h@ •hbb€@ H¡hAdgðœ¿o b¥¿HH¸b¿HH¸¿¿H²gHH¸ °í@(98 APPLY 79 \BUTTONS-SETPROP 54 DELETE-BUTTONS 46 MOUSECONFIRM 18 \BUTTONS-READ 5 BUTTONP) (88 CREATE-BUTTON 73 *BUTTONPROPS* 33 ASK) ( 41 "Keep current buttons? ") SAVE-BUTTONSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 5 BUTTON P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 6 SI::*RESETFORMS* F 7 FILENAME F 8 BUTTONS) Wi H«o hgHihhdVc``Wµ`AIµJH`H ]i ²-Mg Mg M Éh¼KµLh[ºIY°¯L&»°ø(130 \INSUREWINDOW 124 GETWINDOWUSERPROP 113 GETWINDOWUSERPROP 100 BUTTONP 91 CLOSEF 85 PRINT 22 PROMPTPRINT 7 \BUTTONS-OPEN-STREAM) (119 BUTTON-LABEL 108 BUTTON-ACTION 80 FILERDTBL 63 *ALL-BUTTONS* 53 *BUTTONPROPS* 48 *BUTTONS-DATAVERSION* 29 \BUTTONS-IO-EXIT) ( 17 "*** Buttons data file failed to open! ***") SAVE-BUTTONS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 BUTTONS I 0 FILENAME F 3 LISPXHIST) )@ “hb¿S!g ¿$(34 SI::RESETUNWIND 29 \MVLIST 24 SAVE-BUTTONSA0001 5 BUTTONP) (19 SI::RESETUNWIND) () SAVE-SOME-BUTTONSA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 2 MARKEDBUTTONS P 1 SAVEBUTTONS P 0 BUTTON I 0 SI::*CLEANUP-FORMS* F 3 FILENAME F 4 SI::*RESETFORMS* F 5 BUTTONS) 0Uµ\SXd—h¹Hhºhc¿ol ol o ¿ X ²HdI²*I ¹H °Ú¹Sµo cd•I I¹HdJ›` °JºgH` hhTc°(160 \BUTTONS-SHOW 139 \BUTTONS-SHOW 120 SAVE-BUTTONS 110 \BUTTONS-PROMPT-FOR-DATAFILE-NAME 94 \BUTTONS-SHOW 87 DREMOVE 73 BUTTONP 67 WHICHW 62 GETPOSITION 56 PROMPTPRINT 45 CHARACTER 33 CHARACTER) (155 *BUTTONS-EDIT-SHADE* 149 \BUTTONS-SHOW 134 *BUTTONS-EDIT-SHADE*) ( 105 "File to save buttons in (NIL to abort):" 50 " click on non-button to stop." 38 " click again to undo;" 26 "Click on the buttons you wish to save;") SAVE-SOME-BUTTONS :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 BUTTONS I 0 FILENAME F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 SAVE-SOME-BUTTONSA0001) (8 SI::RESETUNWIND) () \BUTTONS-BUTTONEVENTFNA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 BUTTON) P (5 MOVE-BUTTON) NIL () \BUTTONS-BUTTONEVENTFN :D8 (P 0 SI::*RESETFORMS* I 0 BUTTON) a`dlålð—¿@ dlåkð²6¿g@` hhhg ¿$lålð´@ (94 EDIT-BUTTON 75 SI::RESETUNWIND 70 \MVLIST 65 \BUTTONS-BUTTONEVENTFNA0001 45 \BUTTONS-SHOW 19 EXECUTE-BUTTON) (60 SI::RESETUNWIND 40 *BUTTONS-EDIT-SHADE* 34 \BUTTONS-SHOW 4 LASTMOUSEBUTTONS) () \BUTTONS-DATAFILE-NAME :D8 (P 1 DFLT P 0 FILE I 1 DATAVERSION I 0 FILENAME) †@ Ak ²$ggghghg°&ggggghg` Hg'œIgh¿HI (131 PACKFILENAME 126 \NCONC2 118 LISTPUT 95 UNPACKFILENAME 90 PACKFILENAME 46 DIRECTORYNAME 12 EQP 5 UNPACKFILENAME) (112 DIRECTORY 104 HOST 84 *BUTTONS-SAVE-DIRECTORY* 79 BODY 73 VERSION 68 DATA 63 EXTENSION 58 SAVED-BUTTONS 53 NAME 41 BODY 35 VERSION 29 EXTENSION 24 SAVED-BUTTONS 19 NAME) () \BUTTONS-CHANGE-LABEL :D8 (I 1 NEWLABEL I 0 BUTTON) -@gA@gA @ ´@ (42 REDISPLAY-BUTTON 34 OPENWP 28 PUTWINDOWPROP 23 \BUTTONS-CREATE-ICON 11 PUTWINDOWPROP) (17 ICONIMAGE 5 BUTTON-LABEL) () \BUTTONS-CREATE-ICON :D8 (P 7 H P 6 W P 5 Y P 4 X P 3 LH P 2 LW P 1 DSP P 0 BM I 0 LABEL) €` Xd Y`I `I `\`]`^`_@` Z`È [M`È Ô]NJñ–LNJÙâÔ¼OKñ—MOKÙâÔ½LMI@I H(156 PRIN1 149 MOVETO 88 STRINGWIDTH 42 DSPCLIPPINGREGION 31 DSPFONT 19 DSPCREATE 12 BITMAPCOPY) (113 FONTDESCRIPTOR 108 *BUTTONS-LABEL-FONT* 99 FONTDESCRIPTOR 94 *BUTTONS-LABEL-FONT* 83 *BUTTONS-LABEL-FONT* 71 *BUTTON-CLIPPING-REGION* 62 *BUTTON-CLIPPING-REGION* 54 *BUTTON-CLIPPING-REGION* 47 *BUTTON-CLIPPING-REGION* 36 *BUTTON-CLIPPING-REGION* 25 *BUTTONS-LABEL-FONT* 7 *BUTTON-ICON*) () \BUTTONS-DRAW-BOX :D8 (F 0 BL F 1 BB F 2 BR F 3 BT) PQRS`` (19 DRAWGRAYBOX) (13 GRAYSHADE 8 ScreenBitMap) () \BUTTONS-EDITE :D8 (I 0 FORM) :ggg@d´dið¬3µg@hhhhi (55 EVAL.IN.TTY.PROCESS 4 ALLOW.BUTTON.EVENTS) (36 QUOTE 19 EDITE 14 NLSETQ 9 CAR) () \BUTTONS-EDIT-MENU :D8 NIL r`µk`do¿do¿d`¿dk¿di¿dg¿do¿dg ¿dg¿jdnÿdhHdI ¿NIL (111 *BUTTONS-EDIT-MENU* 82 DEFAULTMENUHELDFN 73 CLRPROMPT 55 Y 36 *BUTTONS-MENU-FONT* 11 |MENUTYPE#| 4 *BUTTONS-EDIT-MENU*) ( 64 (-1 . 0) 27 (("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")))) 18 "Button Control") \BUTTONS-INIT :D8 NIL `¬hd`h(22 CREATE-BUTTON 4 \BUTTONS-SETPROP) (17 *BUTTONS-GRID-ORIGIN* 9 *ALL-BUTTONS*) () \BUTTONS-IO-EXIT :D8 (I 1 SAVING? I 0 STREAM) @ ´A›@ …@ h(27 CLOSEF 20 DELFILE 15 CLOSEF 5 OPENP) NIL () \BUTTONS-OPEN-STREAMA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 FILE F 3 ACCESS F 4 SI::NLSETQ-VALUE F 5 RECOG F 6 PARAMETERS) i@RSUVhcg(13 OPENSTREAM) (22 :NORMAL) () \BUTTONS-OPEN-STREAM :D8 (P 7 *CONDITION-HANDLER-BINDINGS* P 6 SI::*NLSETQFLAG* P 5 *PROCEED-CASES* P 4 SI::NLSETQ-VALUE P 3 PARAMETERS P 2 RECOG P 1 ACCESS P 0 FILE I 2 DATAVERSION I 1 NEW? I 0 FILENAME F 8 *PROCEED-CASES* F 9 *CONDITION-HANDLER-BINDINGS*) `@B A•g„gA•g„go@™HIJK`WioWM gð´L(81 \BUTTONS-OPEN-STREAMA0001 51 OPENSTREAM 6 \BUTTONS-DATAFILE-NAME) (87 :NORMAL 60 SI::NLSETQ-PROCEED-CASE 32 OLD 26 NEW 19 INPUT 13 OUTPUT) ( 69 (CL:ERROR . SI::NLSETQHANDLER) 37 (SEQUENTIAL)) \BUTTONS-PROMPT-FOR-DATAFILE-NAME :D8 (P 0 FILENAME I 0 PROMPTSTR) D@ oi Hð¡H€hh`hdo (65 MKATOM 60 U-CASE 55 PROMPTFORWORD 30 \BUTTONS-DATAFILE-NAME 21 \BUTTONS-DATAFILE-NAME 16 DIRECTORYNAME 5 PROMPTPRINT) (42 PROMPTWINDOW) ( 49 (13) 10 " ") \BUTTONS-READA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 9 SPEC P 3 DATAVERSION P 2 BUTTONSPECS P 1 PROPS P 0 STREAM I 0 SI::*CLEANUP-FORMS* F 10 FILENAME F 11 SI::*RESETFORMS*) J `Wd3@ð«W £hcWhl[µWhk[X«o hgHhhdWc¿H` Z3–JJº[€Kkð²=` ¹0J°"d\LLh¾OµNh_N&_¿µßOº±‰Kdlð²v¿Jgð²fg0J°d]Mh¾OµNh_N&_¿µäO¹@ H` _dgð•¿Nº°*_¿OµOh_¾°×O&_¿°Ïk[±ÿIlð²JJº¹H IJoKoh(326 PROMPTPRINT 305 CLOSEF 243 READ 116 COPYALL 88 READ 56 PROMPTPRINT 44 \BUTTONS-OPEN-STREAM 32 \BUTTONS-OPEN-STREAM 16 STRINGP) (251 STOP 238 FILERDTBL 188 *BUTTONPROPS* 180 *BUTTONPROPS* 111 *DEFAULT-BUTTONPROPS* 83 FILERDTBL 63 \BUTTONS-IO-EXIT) ( 321 "! ***" 315 "*** Out-of-sync buttons data file version: " 51 "*** Buttons data file not found! ***") \BUTTONS-READ :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 0 FILENAME F 3 LISPXHIST) S!g ¿$(23 SI::RESETUNWIND 18 \MVLIST 13 \BUTTONS-READA0001) (8 SI::RESETUNWIND) () \BUTTONS-SETPROP :D8 (P 0 PROP I 1 PROPVALUE I 0 PROPNAME) ¾@µ`dHH µîhgð›A @dgð²¿A gð˜A@dgð™¿Agð›A @dgðœ¿A gð–A@gð´ A (182 MKSTRING 147 FONTCREATE 125 FONTCREATE 71 MKSTRING 66 DIRECTORYNAME 43 POSITIONP 23 \BUTTONS-SETPROP) (187 *BUTTONS-DEFAULT-LABEL* 173 DEFAULT-LABEL 166 *BUTTONS-DEFAULT-ACTION* 158 DEFAULT-ACTION 152 *BUTTONS-MENU-FONT* 138 MENU-FONT 130 *BUTTONS-LABEL-FONT* 117 LABEL-FONT 111 *BUTTONS-EXEC-SHADE* 100 EXEC-SHADE 92 *BUTTONS-EDIT-SHADE* 82 EDIT-SHADE 76 *BUTTONS-SAVE-DIRECTORY* 56 SAVE-DIRECTORY 48 *BUTTONS-GRID-ORIGIN* 35 GRID-ORIGIN 7 *BUTTONPROPS*) () \BUTTONS-SHOW :D8 (I 1 SHADE I 0 BUTTON) /@´,Ad3 ²¿`Ag@ið¦@ •@ @(43 \ICONW.REPAINTFN 36 OPENWP 26 DSPFILL) (20 INVERT 14 *BUTTON-INVERT-REGION*) () \BUTTONS-SHOW-EXEC :D8 (I 1 EXECUTING? I 0 BUTTON) @gA@A´` @(25 \BUTTONS-SHOW 11 PUTWINDOWPROP) (20 *BUTTONS-EXEC-SHADE* 5 BUTTON-EXECUTING?) () \BUTTONS-TRACK-MOUSE :D8 (P 13 \INTERRUPTABLE P 9 NEWBB P 8 NEWBL P 7 MOUSEDOWN? P 6 MOUSEUP? P 5 MAXBB P 4 MAXBL P 3 GRIDHEIGHT P 2 GRIDWIDTH P 1 GRIDYORIGIN P 0 GRIDXORIGIN F 14 BW F 15 BH F 16 BL F 17 BB F 18 BT F 19 BR) ` ¬jd „``lWÔlWÔ`WÙ`WÙv¿`lå_jðµO´ O ^¥i_¿N•O’±£`_¿`_¿l@`lÂåjð‘j€kjð³HJOJÛÚØ_¿IKOKÛÚØ_¿LdOó’¿O_¿jOó‘jO_¿MdOó’¿O_¿jOó‘jO_¿OW ð˜OW"ð’±ÿZ ¿WOc Øc&¿WOc"Øc$¿±ÿ4h(267 \BUTTONS-DRAW-BOX 241 \BUTTONS-DRAW-BOX 97 \FZEROP 69 GETMOUSESTATE 17 CREATEPOSITION 9 POSITIONP) (134 \LASTKEYSTATE 124 LASTMOUSEY 116 LASTMOUSEX 75 LASTMOUSEBUTTONS 58 SCREENHEIGHT 50 SCREENWIDTH 34 *BUTTONS-GRID-ORIGIN* 28 *BUTTONS-GRID-ORIGIN* 22 *BUTTONS-GRID-ORIGIN* 4 *BUTTONS-GRID-ORIGIN*) () \BUTTONS-WAIT-MOUSE :D8 (P 0 REGION I 0 BUTTON) G@ É¿H``¡h`låYjð³I–I §¿°Éi(64 BLOCK 58 \FZEROP 32 INSIDEP 15 GETMOUSESTATE 5 \INSUREWINDOW) (40 LASTMOUSEBUTTONS 27 LASTMOUSEY 22 LASTMOUSEX) () DROPSHADOW :D8 (P 4 IMAGE P 3 SHADOW P 2 MASK P 1 SHADE P 0 OFFSET I 2 SHADOWSHADE I 1 SHADOWOFFSET I 0 BM) °AµlBµn¥¥@ @ H@ ÔH@ Ô@ \nÿÿJ J@ IK JhdKhdddgg KhdLHhddgg JhdLhHhdgg @hdLhHhdgg L(172 BKBITBLT 148 BKBITBLT 124 BKBITBLT 100 BKBITBLT 76 BLTSHADE 69 CLEAR-MASK-OUTLINE 62 BLTSHADE 52 BITMAPCREATE 47 BITSPERPIXEL 40 BITMAPHEIGHT 32 BITMAPWIDTH 22 BITMAPCOPY 16 BITMAPCOPY) (166 PAINT 161 INPUT 142 ERASE 137 INPUT 118 REPLACE 113 INPUT 94 ERASE 89 INVERT) () ICONMASK :D8 (P 0 MASK I 0 ICON) +@ @hdHhdddgg H@ H(39 CLEAR-MASK-OUTLINE 32 BKBITBLT 5 BITMAPCOPY) (26 REPLACE 21 INVERT) () CLEAR-MASK-OUTLINE :D8 (P 6 J P 2 BMH P 1 I I 1 BM I 0 MASK) ~A kÙjA kÙ#IHó‘hJjNMó¯AINhû[jð³DKµ8jJMNó¯AINhû\jð³Lµ IkÔY°Ã ²ô@INjû¿NmÿÔ¾°Ò ²Å@INjû¿NkÔ^°¥(109 \FZEROP 88 \FZEROP 14 BITMAPHEIGHT 5 BITMAPWIDTH) NIL () (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))))) (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)))) (PUTPROPS BUTTONSPROP ARGNAMES (PROPNAME {NEWVALUE})) (PUTPROPS BUTTON-ACTION ARGNAMES (BUTTON {NEWACTION})) (PUTPROPS BUTTON-LABEL ARGNAMES (BUTTON {NEWLABEL})) (PUTPROPS BUTTONS MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10)) (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))) (RPAQ? *BUTTONPROPS* (COPYALL *DEFAULT-BUTTONPROPS*)) (RPAQ? *ALL-BUTTONS* NIL) (RPAQ? *BUTTONS-DEFAULT-ACTION* NIL) (RPAQ? *BUTTONS-DEFAULT-LABEL* NIL) (RPAQ? *BUTTONS-EDIT-MENU* NIL) (RPAQ? *BUTTONS-EDIT-SHADE* NIL) (RPAQ? *BUTTONS-EXEC-SHADE* NIL) (RPAQ? *BUTTONS-GRID-ORIGIN* NIL) (RPAQ? *BUTTONS-LABEL-FONT* NIL) (RPAQ? *BUTTONS-MENU-FONT* NIL) (RPAQ? *BUTTONS-SAVE-DIRECTORY* NIL) (FILESLOAD (SYSLOAD FROM LISPUSERS) ICONW) (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-CLIPPING-REGION* (QUOTE (7 11 83 23))) (RPAQ? *BUTTON-ICON* (DROPSHADOW *BUTTON-BITMAP*)) (RPAQ? *BUTTON-ICON-MASK* (ICONMASK *BUTTON-ICON*)) (ADDTOVAR BackgroundMenuCommands ("Button Control" (QUOTE (EDIT-BUTTON)) "Manipulate action buttons")) (RPAQQ BackgroundMenu NIL) (\BUTTONS-INIT) (PUTPROPS BUTTONS COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1989)) NIL