Changeset main,74 for main

Timestamp:

11/30/2007 05:24:25 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071130052425-7zefu1mg36np1q63

Message:

Change Space to Nul for background character.
Allow background to be specified as something to be eval'd (not just literals).

File:

• main/form.lisp (modified) (3 diffs)

main/form.lisp

@@ -63 +63 @@
                   :display-width ,display-width :data-width ,data-width
                   :read-only ,read-only
-                  :inactive-background ',inactive-background
-                  :active-background ',active-background))
+                  :inactive-background (list ,@inactive-background)
+                  :active-background (list ,@active-background)))
 
 (defun make-numberbox-def (row column name display-width
@@ -76 +76 @@
                   :display-width ,display-width :data-width ,data-width
                   :precision ,precision :read-only ,read-only
-                  :inactive-background ',inactive-background
-                  :active-background ',active-background))
+                  :inactive-background (list ,@inactive-background)
+                  :active-background (list ,@active-background)))
 
 (defun parse-widget-form (widget-form)
@@ -91 +91 @@
 (defmacro defform (name (&rest options) &body widgets)
   "Each widget is one of:
-- (:label row column text)
-- (:textbox row column name display-width &key data-width read-only)
-- (:numberbox row column name display-width &key data-width precision read-only)"
-  (destructuring-bind (&key ((:inactive-widget-background *default-inactive-widget-background*) '(#\Space 0))
-                            ((:active-widget-background *default-active-widget-background*) '(#\Space 0)))
+* (:label row column text)
+* (:textbox row column name display-width &key data-width read-only)
+* (:numberbox row column name display-width &key data-width precision read-only)"
+  (destructuring-bind (&key ((:inactive-widget-background *default-inactive-widget-background*) '(#\Nul 0))
+                            ((:active-widget-background *default-active-widget-background*) '(#\Nul 0)))
       options
     (with-gensyms (elements)