equal
deleted
inserted
replaced
195 #(#WindowSpec |
195 #(#WindowSpec |
196 #label: 'Tab Basic' |
196 #label: 'Tab Basic' |
197 #name: 'Tab Basic' |
197 #name: 'Tab Basic' |
198 #min: #(#Point 10 10) |
198 #min: #(#Point 10 10) |
199 #max: #(#Point 1280 1024) |
199 #max: #(#Point 1280 1024) |
200 #bounds: #(#Rectangle 8 377 436 604) |
200 #bounds: #(#Rectangle 12 22 440 249) |
201 ) |
201 ) |
202 #component: |
202 #component: |
203 #(#SpecCollection |
203 #(#SpecCollection |
204 #collection: #( |
204 #collection: #( |
205 #(#LabelSpec |
205 #(#LabelSpec |
269 #activeHelpKey: #argument |
269 #activeHelpKey: #argument |
270 #tabable: true |
270 #tabable: true |
271 #model: #editAgument |
271 #model: #editAgument |
272 #group: #inputGroup |
272 #group: #inputGroup |
273 #acceptOnReturn: true |
273 #acceptOnReturn: true |
274 #acceptOnTab: false |
274 #acceptOnTab: true |
275 #acceptOnLostFocus: false |
275 #acceptOnLostFocus: true |
276 #acceptChannel: #acceptChannel |
276 #acceptChannel: #acceptChannel |
277 #modifiedChannel: #modifiedChannel |
277 #modifiedChannel: #modifiedChannel |
278 #acceptOnPointerLeave: false |
278 #acceptOnPointerLeave: false |
279 ) |
279 ) |
280 #(#LabelSpec |
280 #(#LabelSpec |
818 ]. |
818 ]. |
819 ^ holder |
819 ^ holder |
820 |
820 |
821 ! |
821 ! |
822 |
822 |
|
823 inputGroup |
|
824 |
|
825 |holder| |
|
826 |
|
827 (holder := builder bindingAt:#inputGroup) isNil ifTrue:[ |
|
828 builder aspectAt:#inputGroup put:(holder := EnterFieldGroup new) |
|
829 ]. |
|
830 ^ holder. |
|
831 |
|
832 |
|
833 ! |
|
834 |
823 listOfLabels |
835 listOfLabels |
824 "returns a holder which keeps the list of tab labels |
836 "returns a holder which keeps the list of tab labels |
825 " |
837 " |
826 |
838 |
827 ^ builder listAspectFor:#listOfLabels |
839 ^ builder listAspectFor:#listOfLabels |
1085 |
1097 |
1086 rebuildMode := true. |
1098 rebuildMode := true. |
1087 |
1099 |
1088 aspects keysAndValuesDo:[:aKey :aModel| |
1100 aspects keysAndValuesDo:[:aKey :aModel| |
1089 aModel value:(tab perform:aKey) |
1101 aModel value:(tab perform:aKey) |
|
1102 ]. |
|
1103 #( label editAgument ) do:[:aKey| |v| |
|
1104 v := aspects at:aKey. |
|
1105 v value isNil ifTrue:[v value:''] |
1090 ]. |
1106 ]. |
1091 |
1107 |
1092 rebuildMode := false. |
1108 rebuildMode := false. |
1093 ]. |
1109 ]. |
1094 self canMoveTabItemUpOrDown value:(selectedIndex ~~ 0 and:[listOfTabs size > 1]). |
1110 self canMoveTabItemUpOrDown value:(selectedIndex ~~ 0 and:[listOfTabs size > 1]). |