en·vÅos KEYOBJ 2 4 1 KEYOBJ 1 4 By: Greg Nuyens Supported by Jan Pedersen (Pedersen.pa@Xerox.com) KEYOBJ provides a LISP imageobject which mimics a key. The default image looks like this: `:ÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿþþþð>ð>ØNìÿÿÿÿÿÿøŽÖÀ «Ö®†Ô†¬†Ô†¬†Ô†¬†Ô†¬†Ô†¬†Ô†¬†Ôñü‚?†¬ Â@ €†Ô¢@ €†¬ø’~ €†Ô’@?†¬Š@ €†Ô †@ €†¬ñü‚ €†Ô†¬†Ô†¬†Ô†¬†Ô†¬†Ö†ª×åÀÉÿÿÿÿÿÿýŽò*ªªªªªªªÎäUUUUUUUU~øªªªªªªªª¾üUUUUUUUUþÿÿÿÿÿÿÿÿÿþÿÿÿÿÿÿÿÿÿþ These keys are pressed by clicking the mouse inside the key's image. The result of pressing a key is determined (just like the physical key) by the Interlisp-D system function KEYACTION. To enter a KEYOBJ into TEdit type ^o. Inside the window that pops up, call the following function: (KEYOBJ.CREATE KeyName KeyLabel Abortable) [Function] KeyName is the key that you want the object to behave like. (CENTER in the example above). KeyLabel is an optional label other than the key whose action it mimics. If KeyLabel is a list of two elements, the first is displayed above the second. Abortable is a flag which indicates that no transitions should be generated if the mouse button is released outside the key image. KEYOBJ.FONT [Variable] Determines the font in which the label is created inside the keyobj. Default is Helvetica 10. (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC "" "") STARTINGPAGE# 115) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC "" "")) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL NIL (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF SLOPE REGULAR WEIGHT MEDIUM)) (282 42 72 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 444 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL)))))2ÈÈ2ÈÈ,È ,È ,È,ŠŠ8,ŠŠ8HÈÈ PAGEHEADING RUNNINGHEADCLASSICCLASSICCLASSIC HELVETICA MODERN MODERN MODERN HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN 2[Ä BMOBJ.GETFN3MODERN $7z^Ô.zº