‘XCL Compiler output for source file {DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>TOUCHY-BUTTONS.;2 Source file created Saturday, 5 December 2020, 16:37:08. FASL file created Saturday, 5 December 2020, 16:37:08. ÿ˜–#ogg o ˜•ŒFILECREATEDLOC˜Œ*STANDARD-INPUT*˜Œ1 top-level form˜ŒFUNCTION˜“€˜•ŒDEFINE-FILE-INFO˜ŒOPEN ˜ŒOUTPUT˜Œ DIRECTION˜“˜ŒPACKAGE˜ŒROOMS˜Œ READTABLE˜ŒXCL˜Œ{Null}˜–!ggo ¿o˜Œ2 top-level forms™˜“€˜•ŒPUTPROP˜•ŒTOUCHY-BUTTONSCOMS˜•Œ FILEDATES˜•ŒTOUCHY-BUTTONS˜“ ˜“˜•Œ*˜•Œ;;˜Œ‚íIncluder buttons so you can have dynamic mixin rooms. For example, you can have a "Notecards-Mixin" or "Programming-Mixin" Room and have buttons to include these in "Pockets" then whenever you need these facilities you can mix them in.˜“˜•Œ FUNCTIONS˜’Œ MAKE-INCLUDER˜‘˜ŒROOMS˜’Œ INCLUDER-TEXT™˜’ŒINCLUDER-ACTION™˜“™™˜Œ‚©Toggle buttons for switching between variable settings. This should obviously be generalized to something that allows you to select or circulate through value settings.˜“™˜’Œ MAKE-TOGGLER™˜’Œ MAKE-N-VALUER™˜’ŒMAKE-EXSET-TOGGLER™˜’ŒMAKE-RANGE-TOGGLER™˜’ŒN-VALUER-ACTION™˜’Œ N-VALUER-TEXT™˜’Œ CHECK-EVAL™˜“™˜’Œ MAKE-SWITCH™˜’Œ SWITCH-ACTION™˜“™™˜Œ˜“™™˜ŒF(MAKE-ONCE-ONLY (IL:PROMPTPRINT "Hello, World") "Fire..." "Exhausted")˜“™˜’ŒMAKE-ONCE-ONLY™˜’ŒONCE-ONLY-ACTION™˜’ŒONCE-ONLY-TEXT™˜“˜•ŒDECLARE:˜•ŒDONTCOPY˜“˜•ŒPROPS˜“™˜•ŒMAKEFILE-ENVIRONMENT˜“™˜•ŒFILETYPE ˜“˜”˜Œ 5-Dec-2020 16:37:08•ŒX{DSK}arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>TOUCHY-BUTTONS.;2œ™˜–+gg@hggg@  ™™˜“˜“˜Œ ROOM-NAME%˜’ŒMAKE-BUTTON-WINDOW™ ˜’Œ MAKE-BUTTON™˜ŒINCLUDER-ROOM-NAME™˜ŒACTION™˜Œ TEXT-FORMœ™˜–\`ÉX‘h€iY‘I…H‘i€h²3@Hgg œho@ ho@ ho@ ™™˜“˜“˜ŒINCLUDER-ROOM-NAMEV˜ŒFORMATI™P<™P/˜ŒMEMBER*˜ŒSYMBOL-FUNCTION%˜ŒEQUAL ˜ŒTEST˜’ŒROOM™˜’Œ*CURRENT-ROOM*™P˜Œ *-???-* ~AC˜Œ Include ~A6˜Œ Exclude ~Aœ™˜–‚†`¸AÉ g'¹¿IHÉgg ²*HIHÉgg ¿°HºIHÉ»JK¿Hg ™™˜“˜“˜ŒDSP˜ŒBUTTON‚€˜’Œ ROOM-CHANGED™Y˜ŒDELETET™R4™Q/™R˜’ŒUPDATE-PLACEMENTS™ {˜ŒEDITEDq™Ug™UO™SJ™TC™U<™U*™S%™T™U™I˜’ŒBUTTON™™Vœ™#˜–)ejó§kh ¿he#¸g @oH ™#‚ÿÿÿÿ™˜“˜“˜Œ VARIABLE-NAME˜Œ&REST˜ŒKEYS#˜ŒAPPLY™R˜’ŒARGUMENT-ERROR˜‘˜ŒSYSTEM™$˜“€œ™$˜–Vekó¨lh ¿he#¸g ggg@hhggg@gAH ™$‚ÿÿÿÿ™˜“˜“˜Œ VARIABLE-NAME˜ŒN-VALUES™f˜ŒKEYSP™GK™j™R™mC˜ŒN-VALUES=˜Œ VARIABLE-NAME8™'3™J'˜ŒQUOTE"™(™K™Hœ™%˜–8ekó¨lh ¿he#¸g @Agho@ H ™%‚ÿÿÿÿ™˜“˜“˜Œ VARIABLE-NAME˜Œ EXPLICIT-SET™f˜ŒKEYS2™j+™P™R™m˜ŒHELP™$%˜ŒSet variable ~Sœ™&˜–Ueló¨lh ¿he#¸g @A¹hºIBó–J IJºIkÔ»JºK¹°égho@ H ™&‚ÿÿÿÿ™˜“˜“˜Œ VARIABLE-NAME˜Œ RANGE-START˜Œ RANGE-END™f˜ŒKEYSO™jH™P(˜ŒNREVERSE™R ™m<™~™$B˜ŒSet variable ~Sœ™'˜–‚AÉ g'¸AÉ g'Y H ¸IH kð“H°D`Z»JH¿KZ»Jg ¿KZ»Jg¿Kºjjnÿnÿh»J¼JK ¿L ™'™˜“˜“˜ŒDSP˜ŒBUTTON{˜ŒSETv˜•ŒMENU-˜ŒLENGTH%˜ŒREMOVE™)V˜•ŒDEFAULTMENUHELDFNJ˜•Œ CLRPROMPT9˜•Œ MENUTYPE#™v™c ™u™cœ™(˜–ho@@ ™(™˜“˜“˜Œ VARIABLE-NAME™P ™)˜Œ~A is ~aœ™)˜–@ –@ o™)™˜“˜“˜Œ VARIABLE-NAME ˜ŒEVAL˜ŒBOUNDP˜ŒUnboundœ™+˜–Geló¨lh ¿he#¸g gBggg@gAH ™+‚ÿÿÿÿ™˜“˜“˜Œ DECISION-FN˜ŒSET-FN˜Œ TEXT-FORM™f˜ŒKEYSA™G<™j™R ™m4˜ŒSET-FN.˜Œ DECISION-FN)™,$™J™K™Hœ™,˜–+AÉ g'¸AkH¸AÉ g'¹AHlI™,™˜“˜“˜ŒDSP˜ŒBUTTON™‚¨™c ™‚©™cœ™2˜–9gAggggg@gAgB ™2™˜“˜“˜ŒFORM˜Œ INITIAL-TEXT˜Œ FINAL-TEXT3™G.™H'˜Œ FINAL-TEXT!˜Œ INITIAL-TEXT˜ŒONCE-ONLY-FORM™3™J ™4™K˜ŒTEXTœ™3˜–2@ A ‘hAÉ g' ¿@ Ai ™3™˜“˜“˜ŒSTREAM˜ŒBUTTON,˜•Œ STREAMPROP%˜•Œ GETSTREAM™‚ž™‚¾™‚¿™‚·™cœ™4˜–1@²-@ A žAÉ g'AÉ g'h™4™˜“˜“˜ŒSTREAM˜ŒBUTTON ™‚¾™‚¿(™‚¶!™c™‚µ™c˜– o ˜Œ1 top-level form™˜“€˜•ŒPUTPROPS˜“™˜•Œ COPYRIGHT˜“˜ŒVenue & Xerox Corporation‚ÂÄ‚Æ‚äš‚Îÿÿ