Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv14257/Drei

Modified Files: syntax.lisp Log Message: Implemented :inherit-menu keyword argument for MAKE-COMMAND-TABLE and DEFINE-COMMAND-TABLE.

--- /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp 2008/01/15 07:27:14 1.15 +++ /project/mcclim/cvsroot/mcclim/Drei/syntax.lisp 2008/01/29 19:13:06 1.16 @@ -134,7 +134,8 @@ "Fetch extra command tables to inherit from (using `additional-command-tables') as well as the command tables `table' actually directly inherits from." - (append (additional-command-tables *application-frame* table) + (append (mapcar #'find-command-table + (additional-command-tables *application-frame* table)) (call-next-method)))

(defmacro define-syntax-command-table (name &rest args &key &allow-other-keys) @@ -152,7 +153,7 @@ `(progn (make-command-table ',name ,@args) (defclass ,name (syntax-command-table) ()) - (defmethod command-table-inherit-from :around ((table ,name)) + (defmethod command-table-inherit-from ((table ,name)) (append (call-next-method) '(,name) (command-table-inherit-from (find-command-table ',name))))))