home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / CAD08N06.ZIP / MYMENU.MNL < prev    next >
Lisp/Scheme  |  1993-04-28  |  278b  |  17 lines
  1. ;Listing 2: MYMENU.MNL
  2. ;example addition to MNL file
  3. (defun s::startup ()
  4. (princ "\n s::startup from MYMENU.MNL is running")
  5. (princ)
  6. )
  7.  
  8. (if
  9. (or
  10.     (= (getvar "cmdnames") "MENU")
  11.     (= (getvar "cmdnames") "UNDO")
  12.     (= (getvar "cmdnames") "U")
  13. )
  14. (s::startup)
  15. (princ)
  16. )
  17.