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

Timestamp:

11/12/2007 07:08:49 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@tux-20071112190849-f4iha3mmvx2nskce

Message:

Textboxes and numberboxes now change colors.

File:

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

main/widget/numberbox.lisp

@@ -32 +32 @@
     (setf (text data) s)))
 
-(defun create-numberbox (parent-window y x data width)
+(defun create-numberbox (parent-window y x data width &key
+                         (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)))
+         (textbox (create-textbox parent-window y x data-wrapper width
+                                  :inactive-background inactive-background
+                                  :active-background active-background)))
     (change-class textbox 'numberbox)))