home *** CD-ROM | disk | FTP | other *** search
/ Windoware / WINDOWARE_1_6.iso / source / wxlslib / mswmenus.lsp < prev    next >
Encoding:
Text File  |  1992-02-20  |  1.6 KB  |  40 lines
  1. (provide "mswmenus")
  2.  
  3. ;;;;
  4. ;;;; Standard Menus for Microsoft Windows Version
  5. ;;;;
  6.  
  7. (setf *file-menu* (send menu-proto :new "&File"))
  8. (send *file-menu* :append-items
  9.       (send menu-item-proto :new "&Load" :action
  10.             #'(lambda ()
  11.                 (let ((fname (open-file-dialog)))
  12.                   (if fname (load fname)))))
  13.       (let ((dribble-item (send menu-item-proto :new "&Dribble")))
  14.         (defmeth dribble-item :do-action ()
  15.           (case (send self :mark)
  16.             (nil (let ((df (set-file-dialog "Dribble File Name:")))
  17.                    (when df
  18.                          (dribble df)
  19.                          (send self :mark t))))
  20.             (t (dribble) (send self :mark nil))))
  21.         dribble-item)
  22.       (send dash-item-proto :new)
  23.       (send menu-item-proto :new "E&xit" :action #'msw-exit)
  24.       (send menu-item-proto :new "About XLISP-STAT ..." :action
  25.             #'about-xlisp-stat))
  26. (send *file-menu* :install)
  27.  
  28. (setf *edit-menu* (send menu-proto :new "&Edit"))
  29. (send *edit-menu* :append-items
  30.       (send menu-item-proto :new "&Undo\tAlt+BkSp" :enabled nil)
  31.       (send dash-item-proto :new)
  32.       (send menu-item-proto :new "Cu&t\tShift+Del" :action #'msw-cut)
  33.       (send menu-item-proto :new "&Copy\tCtrt+Ins" :action #'msw-copy)
  34.       (send menu-item-proto :new "&Paste\tShift+Ins" :action #'msw-paste)
  35.       (send menu-item-proto :new "C&lear\tDel" :action #'msw-clear)
  36.       (send dash-item-proto :new)
  37.       (send menu-item-proto :new "Copy-Paste\tAlt+Ins" :action #'msw-copy-paste))
  38. (send *edit-menu* :install)
  39.  
  40.