Changeset main,63 for main/widget/numberbox.lisp

Timestamp:

11/17/2007 12:40:30 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071117004030-ov0o4jfbzl3b9vup

Message:

Allow for other callback-functions on ACTIVATE.

File:

• main/widget/numberbox.lisp (modified) (1 diff)

main/widget/numberbox.lisp

@@ -43 +43 @@
 
 
-(defmethod activate :around ((numberbox numberbox)
-                             &optional (callback 'nothing))
+(defmethod activate ((numberbox numberbox) &key (key-callback 'nothing)
+                     &allow-other-keys)
   (with-slots (data) numberbox
     (with-slots (edit) data
       (setf edit t)
       (setf (insertion-point numberbox) :end)
-      (let ((r (call-next-method numberbox callback)))
+      (let ((r (call-next-method numberbox key-callback)))
         (setf edit nil)
         (setf (insertion-point numberbox) 0)