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