Changeset main,87 for main/widget/db-checkbox.lisp

Timestamp:

02/23/2008 12:27:43 AM (18 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20080223002743-09u28trz6kvjtdpo

Message:

• Integrate checkboxes into forms.
• Fixed checkbox display glitches.
• Added keystrokes to checkbox.
• Fixed package symbols.

File:

• main/widget/db-checkbox.lisp (modified) (1 diff)

main/widget/db-checkbox.lisp

@@ -32 +32 @@
                           &key data &allow-other-keys)
   (assert data (data) "DATA must be specified.")
+  (loop until (remf args :data))
   (let ((inst (apply 'create-widget 'checkbox parent y x args)))
-    (change-class inst 'db-checkbox :data data)))
+    (change-class inst 'db-checkbox :data data)
+    (draw inst)
+    inst))