[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	presentation-defs.lisp 
Log Message:
Made the `string' present method respect the :accept keyword argument,
updated an example program to exploit this.


--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/02/05 03:06:14	1.70
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2007/02/10 21:32:22	1.71
@@ -1618,8 +1618,10 @@
 (define-presentation-method present (object (type string) stream
 				     (view textual-view)
 				     &key acceptably for-context-type)
-  (declare (ignore acceptably for-context-type))
-  (princ object stream))
+  (declare (ignore for-context-type))
+  (if acceptably
+      (prin1 object stream)
+      (princ object stream)))
 
 (define-presentation-method accept ((type string) stream (view textual-view)
 				    &key (default nil defaultp)