source: trunk/source/contrib/foy/context-menu-cm/context-menu-cm.lisp @ 12779

Last change on this file since 12779 was 12779, checked in by gfoy, 10 years ago

Another new file, and mods to context-menu-cm.lisp.

File size: 709 bytes
Line 
1
2;;; context-menu-cm.lisp
3
4(in-package :common-lisp-user)
5
6(unless (member "CONTEXT-MENU-CM" *modules* :test #'string-equal)
7 
8(eval-when (:load-toplevel :execute)
9  (defParameter *context-menu-directory*
10    (make-pathname :name nil :type nil :defaults (if *load-pathname* 
11                                                     *load-pathname*
12                                                     *loading-file-source-file*)))
13  (defParameter *context-menu-files* 
14    (list (merge-pathnames ";context-menu.lisp" *context-menu-directory*)
15          (merge-pathnames ";context-menu-dialogs.lisp" *context-menu-directory*))))
16 
17(dolist (file *context-menu-files*)
18  (load file))
19
20(provide :context-menu-cm)
21
22)
Note: See TracBrowser for help on using the repository browser.