[cells-cvs] CVS Celtk

[fgoenninger]

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

Modified Files:
	tk-object.lisp 
Log Message:
Added: ON-HOVER functionality provided by Andy Chambers. See file widget.lisp for explanation (CVS log of that file).



--- /project/cells/cvsroot/Celtk/tk-object.lisp	2008/06/16 12:35:56	1.17
+++ /project/cells/cvsroot/Celtk/tk-object.lisp	2009/07/12 11:36:15	1.18
@@ -24,14 +24,17 @@
 (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)
    (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)
    (on-key-down :initarg :on-key-down :accessor on-key-down :initform nil
      :documentation "Long story. Tcl C API weak for keypress events. This gets dispatched
 eventually thanks to DEFCOMMAND")
    (on-key-up :initarg :on-key-up :accessor on-key-up :initform nil)
    (on-double-click-1 :initarg :on-double-click-1 :accessor on-double-click-1 :initform nil)
+   (on-double-click-2 :initarg :on-double-click-2 :accessor on-double-click-2 :initform nil)
+   (on-double-click-3 :initarg :on-double-click-3 :accessor on-double-click-3 :initform nil)
    (user-errors :initarg :user-errors :accessor user-errors :initform nil)
    
    (tile? :initform t :cell nil :reader tile? :initarg :tile?))