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))))