Update of /project/clim-desktop/cvsroot/clim-desktop In directory clnet:/tmp/cvs-serv1295
Modified Files: swine-cmds.lisp Log Message: Added presentation translators for point-and-click action.
--- /project/clim-desktop/cvsroot/clim-desktop/swine-cmds.lisp 2006/04/23 15:34:12 1.8 +++ /project/clim-desktop/cvsroot/clim-desktop/swine-cmds.lisp 2006/05/02 18:07:16 1.9 @@ -235,3 +235,38 @@ 'lisp-table '((#\c :control) (#\i :meta)))
+;; Translators for clicky goodness: + +(define-presentation-to-command-translator edit-definition + (symbol com-edit-definition lisp-table + :gesture :select + :tester ((object presentation) + (declare (ignore object)) + (not (eq (presentation-type presentation) 'unknown-symbol))) + :documentation "Edit definition") + (object) + (list object)) + +(define-command (com-inspect-symbol :name t :command-table lisp-table) + ((symbol 'symbol :prompt "Edit symbol")) + (clouseau:inspector symbol :new-process t)) + +(define-presentation-to-command-translator inspect-symbol + (symbol com-inspect-symbol lisp-table + :gesture :inspect + :tester ((object presentation) + (declare (ignore object)) + (not (eq (presentation-type presentation) 'unknown-symbol))) + :documentation "Inspect") + (object) + (list object)) + +(define-presentation-to-command-translator lookup-symbol-arglist + (symbol com-arglist-lookup lisp-table + :gesture :describe + :tester ((object presentation) + (declare (ignore object)) + (not (eq (presentation-type presentation) 'unknown-symbol))) + :documentation "Lookup arglist") + (object) + (list object)) \ No newline at end of file