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