[mcclim-cvs] CVS mcclim

[tmoore]

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

Modified Files:
	presentation-defs.lisp 
Log Message:
Change the input editing text cursor from the disturbing outline to solid. Do something a bit more intelligent with presentation-type-of and structure objects.

--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/03/20 08:15:26	1.54
+++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp	2006/04/01 07:58:36	1.55
@@ -100,8 +100,9 @@
 (defmethod presentation-type-of ((object structure-object))
   (multiple-value-bind (name lambda-list)
       (get-ptype-from-class-of object)
-    (if (or (null lambda-list)
-            (member lambda-list lambda-list-keywords))
+    (if (and name
+	     (or (null lambda-list)
+		 (member lambda-list lambda-list-keywords)))
         name
         (call-next-method))))