[clim-desktop-cvs] CVS clim-desktop

[thenriksen]

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