[graphic-forms-cvs] r111 - in trunk/src: . uitoolkit/widgets

[junrue at common-lisp.net]

Author: junrue
Date: Wed Apr 26 12:29:35 2006
New Revision: 111

Modified:
   trunk/src/packages.lisp
   trunk/src/uitoolkit/widgets/event.lisp
Log:
remove dangling references to obsolete stop function

Modified: trunk/src/packages.lisp
==============================================================================
--- trunk/src/packages.lisp	(original)
+++ trunk/src/packages.lisp	Wed Apr 26 12:29:35 2006
@@ -454,10 +454,8 @@
     #:shutdown
     #:size
     #:spacing-of
-    #:start
     #:startup
     #:step-increment
-    #:stop
     #:style-of
     #:sub-menu
     #:text

Modified: trunk/src/uitoolkit/widgets/event.lisp
==============================================================================
--- trunk/src/uitoolkit/widgets/event.lisp	(original)
+++ trunk/src/uitoolkit/widgets/event.lisp	Wed Apr 26 12:29:35 2006
@@ -377,7 +377,7 @@
       (gfs::kill-timer (cffi:null-pointer) wparam)
       (progn
         (if (<= (delay-of timer) 0)
-          (stop timer)
+          (enable timer nil)
           (reset-timer-to-delay timer (delay-of timer)))
         (event-timer (dispatcher timer) timer (event-time tc)))))
   0)