[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
Make the accept methods for command-or-form work better with things
like Structedit.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/01/30 21:30:02	1.29
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/01/30 21:41:11	1.30
@@ -783,6 +783,28 @@
 ;;; 
 ;;; Presentation type specialization.
 
+;;; When starting out with reading `command-or-form', we use Lisp
+;;; syntax, so things like Structedit works. If it turns out to be a
+;;; command, switch back to Fundamental.
+
+(define-presentation-method accept :around
+  ((type command-or-form)
+   (stream drei-input-editing-mixin)
+   view &key)
+  (with-drei-options ((drei-instance stream)
+                      :syntax "Lisp"
+                      :keep-syntax nil)
+    (call-next-method)))
+
+(define-presentation-method accept :around
+  ((type command)
+   (stream drei-input-editing-mixin)
+   view &key)
+  (with-drei-options ((drei-instance stream)
+                      :syntax "Fundamental"
+                      :keep-syntax nil)
+    (call-next-method)))
+
 (define-presentation-method accept :around
   ((type expression)
    (stream drei-input-editing-mixin)