home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 December / simtel1292_SIMTEL_1292_Walnut_Creek.iso / msdos / editor / me_cd.arc / SOFTPOP.MUT < prev    next >
Text File  |  1988-02-29  |  400b  |  17 lines
  1.     ; softpop.mut : popup a window showing the soft keys
  2.     ; C Durland
  3.  
  4. (include popup.mut)
  5.  
  6. (defun
  7.   softkey-box        ; popup a box with the softkey bindings in it
  8.   {
  9.     (int j)
  10.     (popup-window 5 50 25 10)
  11.     (for (j 1) (< j 10) (+= j 1)
  12.       (wputs (concat " f" j ":  "(key-bound-to (concat "F-" j)))))
  13.     (wputs (concat " f10: "(key-bound-to "F-0")))
  14.   }
  15.   MAIN { (softkey-box) }
  16. )
  17.