Changeset main,80.1.1

Timestamp:

12/13/2007 03:03:31 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071213150331-0096vk3e4thnv6ch

Message:

Fix: Added validator keyword to numberbox constructor.

File:

• main/widget/numberbox.lisp (modified) (2 diffs)

main/widget/numberbox.lisp

@@ -33 +33 @@
 
 (defun create-numberbox (parent-window y x data width &key
+                         (validator 'identity)
                          (inactive-background '(#\Space 0))
                          (active-background '(#\Space 0)))
   (let* ((data-wrapper (make-instance 'numberbox-data :data data :width width))
          (textbox (create-textbox parent-window y x data-wrapper width
+                                  :validator validator
                                   :inactive-background inactive-background
                                   :active-background active-background)))
@@ -49 +51 @@
       (setf edit t)
       (setf (insertion-point numberbox) :end)
-      (let ((r (call-next-method numberbox key-callback)))
+      (let ((r (call-next-method)))
         (setf edit nil)
         (setf (insertion-point numberbox) 0)