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

Modified Files: decls.lisp Log Message: Added portable implementation of `display-command-table-menu'.

--- /project/mcclim/cvsroot/mcclim/decls.lisp 2006/12/10 23:35:12 1.43 +++ /project/mcclim/cvsroot/mcclim/decls.lisp 2006/12/13 22:31:57 1.44 @@ -583,6 +583,20 @@ (stream object type view &key buffer-start rescan query-identifier for-context-type))

+;;; 27.3 Command Menus + +(defgeneric display-command-table-menu (command-table stream &key max-width + max-height n-rows n-columns x-spacing + y-spacing initial-spacing row-wise + cell-align-x cell-align-y move-cursor) + (:documentation "Display a menu of the commands accessible in +`command-table' to `stream'. + +`max-width', `max-height', `n-rows', `n-columns', `x-spacing', +`y-spacing', `row-wise', `initial-spacing', `cell-align-x', +`cell-align-y', and `move-cursor' are as for +`formatting-item-list'.")) + ;;; 28.2 Specifying the Panes of a Frame

(defgeneric destroy-frame (frame))