Changeset main,45 for main/widget/label.lisp

Timestamp:

11/09/2007 12:29:19 AM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui-new

revision id:

dsowen@fugue88.ws-20071109002919-u3q6f17xwbxvy3b0

Message:

Added numberbox support to forms.
Fixed indentation of defform and added documentation.
Fix: Labels weren't being pushed to the screen.
Fix: (activate label) should return something useful to the form.

File:

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

main/widget/label.lisp

@@ -19 +19 @@
   (when raw-text
     (setf text (enquote text)))
-  (make-instance 'label
-                 :parent-window parent-window :row row :column column
-                 :text text))
+  (let ((inst (make-instance 'label
+                             :parent-window parent-window
+                             :row row
+                             :column column
+                             :text text)))
+    (draw inst)
+    inst))
 
 (defmethod destroy ((label label)))
 
-(defmethod activate ((label label) &optional callback))
+(defmethod activate ((label label) &optional callback)
+  #\Tab)