Index: main/widget/label.lisp
===================================================================
--- main/widget/label.lisp	(revision main,40)
+++ main/widget/label.lisp	(revision main,45)
@@ -19,9 +19,14 @@
   (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)