[cells-cvs] CVS Celtk

[fgoenninger]

Update of /project/cells/cvsroot/Celtk
In directory cl-net:/tmp/cvs-serv31315

Modified Files:
	tk-object.lisp 
Log Message:
Changed: slot definition of hover-timer from :reader to :accessor.



--- /project/cells/cvsroot/Celtk/tk-object.lisp	2009/07/12 11:36:15	1.18
+++ /project/cells/cvsroot/Celtk/tk-object.lisp	2009/08/14 15:53:59	1.19
@@ -24,7 +24,7 @@
 (defmodel tk-object (model)
   ((.md-name :cell nil :initform (gentemp "TK") :initarg :id)
    (tk-class :cell nil :initform nil :initarg :tk-class :reader tk-class)
-   (hover-timer :cell nil :initform nil :initarg :hover-timer :reader hover-timer)
+   (hover-timer :cell nil :initform nil :initarg :hover-timer :accessor hover-timer)
    (timers :owning t :initarg :timers :accessor timers :initform nil)
    (on-command :initarg :on-command :accessor on-command :initform nil)
    (on-hover :initarg :on-hover :accessor on-hover :initform nil)