[mcclim-cvs] CVS mcclim/Goatee

[tmoore]

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

Modified Files:
	clim-area.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/Goatee/clim-area.lisp	2006/03/01 21:51:54	1.32
+++ /project/mcclim/cvsroot/mcclim/Goatee/clim-area.lisp	2006/04/01 07:58:37	1.33
@@ -26,7 +26,8 @@
 
 ;;; cheat and use this McCLIM internal class :)
 (defclass screen-area-cursor (clim-internals::cursor-mixin cursor)
-  ((screen-line :accessor screen-line :initarg :screen-line)))
+  ((screen-line :accessor screen-line :initarg :screen-line))
+  (:default-initargs :appearance :solid))
 
 (defmethod* (setf cursor-position) (nx ny (cursor screen-area-cursor))
   (declare (ignore nx ny))