Show how to link user defined methods to user defined keys.

An example of this is the facility provided by emacs for key bindings.

These key bindings may be application-specific or system-wide; state which you have done.




(load "@lib/led.l" "@lib/term.l")
 
(fkey *XtF1
   (prinl "Initialized value to " (setq *Number 1)) )
 
(fkey *XtUp
   (prinl "Incremented to " (inc '*Number)) )
 
(fkey *XtDown
   (prinl "Decremented to " (dec '*Number)) )
 
(fkey *XtHome
   (prinl "Current value is " *Number) )