TabListEditor.st
changeset 1326 295fe7dc6fbb
parent 1325 a7c38b60f2fb
child 1373 623e692f53fc
--- a/TabListEditor.st	Thu Feb 03 10:26:23 2000 +0100
+++ b/TabListEditor.st	Thu Feb 03 13:55:57 2000 +0100
@@ -197,7 +197,7 @@
           #name: 'Tab Basic'
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 8 377 436 604)
+          #bounds: #(#Rectangle 12 22 440 249)
         )
         #component: 
        #(#SpecCollection
@@ -271,8 +271,8 @@
               #model: #editAgument
               #group: #inputGroup
               #acceptOnReturn: true
-              #acceptOnTab: false
-              #acceptOnLostFocus: false
+              #acceptOnTab: true
+              #acceptOnLostFocus: true
               #acceptChannel: #acceptChannel
               #modifiedChannel: #modifiedChannel
               #acceptOnPointerLeave: false
@@ -820,6 +820,18 @@
 
 !
 
+inputGroup
+
+    |holder|
+
+    (holder := builder bindingAt:#inputGroup) isNil ifTrue:[
+        builder aspectAt:#inputGroup put:(holder := EnterFieldGroup new)
+    ].
+    ^ holder.
+
+
+!
+
 listOfLabels
     "returns a holder which keeps the list of tab labels
     "
@@ -1088,6 +1100,10 @@
         aspects keysAndValuesDo:[:aKey :aModel|
             aModel value:(tab perform:aKey)    
         ].
+        #( label editAgument ) do:[:aKey| |v|
+                v := aspects at:aKey.
+                v value isNil ifTrue:[v value:'']
+        ].
 
         rebuildMode := false.
     ].