Author: junrue Date: Sun May 7 18:39:06 2006 New Revision: 121 Modified: trunk/src/uitoolkit/widgets/timer.lisp Log: make gfs:dispose a synonym for gfw:enable nil for timers Modified: trunk/src/uitoolkit/widgets/timer.lisp ============================================================================== --- trunk/src/uitoolkit/widgets/timer.lisp (original) +++ trunk/src/uitoolkit/widgets/timer.lisp Sun May 7 18:39:06 2006 @@ -33,6 +33,10 @@ (in-package :graphic-forms.uitoolkit.widgets) +;;; +;;; helper functions +;;; + (defun clamp-delay-values (init-delay delay) "Adjust delay settings based on system-defined limits." ;; @@ -67,9 +71,16 @@ (error 'gfs:win32-error :detail "set-timer failed"))) clamped)) +;;; +;;; methods +;;; + (defmethod (setf delay-of) :around (value (self timer)) (setf (slot-value self 'delay) (reset-timer-to-delay self value))) +(defmethod gfs:dispose ((self timer)) + (enable self nil)) + (defmethod initialize-instance :after ((self timer) &key) (if (null (delay-of self)) (error 'gfs:toolkit-error :detail ":delay value required"))