Changeset main,81

Timestamp:

12/13/2007 04:29:13 PM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

parents:

Rev	Tree	Chgset
80	@main,80	[main,80]
80.1.1	@main,80.1.1	[main,80.1.1]

revision id:

dsowen@fugue88.ws-20071213162913-8d8hy73qla7ppvrr

Message:

Sync to home.

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)