[graphic-forms-cvs] r121 - trunk/src/uitoolkit/widgets

[junrue at common-lisp.net]

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