--- 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.
].