equal
deleted
inserted
replaced
212 #(#InputFieldSpec |
212 #(#InputFieldSpec |
213 #name: 'LabelField' |
213 #name: 'LabelField' |
214 #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0) |
214 #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0) |
215 #activeHelpKey: #label |
215 #activeHelpKey: #label |
216 #model: #label |
216 #model: #label |
|
217 #modifiedChannel: #modifiedChannel |
|
218 #acceptChannel: #acceptChannel |
|
219 #acceptOnLostFocus: true |
217 ) |
220 ) |
218 #(#CheckBoxSpec |
221 #(#CheckBoxSpec |
219 #name: 'TranslateLabel' |
222 #name: 'TranslateLabel' |
220 #layout: #(#LayoutFrame 100 0 40 0 -5 1 66 0) |
223 #layout: #(#LayoutFrame 100 0 40 0 -5 1 66 0) |
221 #activeHelpKey: #labelDerivesFromApplication |
224 #activeHelpKey: #labelDerivesFromApplication |
231 #(#InputFieldSpec |
234 #(#InputFieldSpec |
232 #name: 'ArgumentField' |
235 #name: 'ArgumentField' |
233 #layout: #(#LayoutFrame 100 0 70 0 -5 1.0 92 0) |
236 #layout: #(#LayoutFrame 100 0 70 0 -5 1.0 92 0) |
234 #activeHelpKey: #argument |
237 #activeHelpKey: #argument |
235 #model: #editAgument |
238 #model: #editAgument |
|
239 #modifiedChannel: #modifiedChannel |
|
240 #acceptChannel: #acceptChannel |
|
241 #acceptOnLostFocus: true |
236 ) |
242 ) |
237 #(#LabelSpec |
243 #(#LabelSpec |
238 #name: 'ForegroundLabel' |
244 #name: 'ForegroundLabel' |
239 #layout: #(#AlignmentOrigin 98 0 115 0 1 0.5) |
245 #layout: #(#AlignmentOrigin 98 0 115 0 1 0.5) |
240 #label: 'Color:' |
246 #label: 'Color:' |
502 ) nil |
508 ) nil |
503 nil |
509 nil |
504 ) |
510 ) |
505 ) |
511 ) |
506 #(#MenuItem |
512 #(#MenuItem |
507 #label: 'Settings' |
|
508 #submenu: |
|
509 #(#Menu |
|
510 |
|
511 #( |
|
512 #(#MenuItem |
|
513 #label: 'Fonts' |
|
514 #submenuChannel: #menuFont |
|
515 ) |
|
516 ) nil |
|
517 nil |
|
518 ) |
|
519 ) |
|
520 #(#MenuItem |
|
521 #label: 'History' |
513 #label: 'History' |
522 #activeHelpKey: #history |
514 #activeHelpKey: #history |
523 #submenuChannel: #menuHistory |
515 #submenuChannel: #menuHistory |
524 ) |
516 ) |
525 #(#MenuItem |
517 #(#MenuItem |
943 |
935 |
944 self valueOfCanCut value: (anIndex ~~ 0). |
936 self valueOfCanCut value: (anIndex ~~ 0). |
945 self valueOfCanCopy value: (anIndex ~~ 0). |
937 self valueOfCanCopy value: (anIndex ~~ 0). |
946 self valueOfCanPaste. |
938 self valueOfCanPaste. |
947 |
939 |
948 self updateFonts |
|
949 ! ! |
940 ! ! |
950 |
941 |
951 !TabListEditor methodsFor:'startup / release'! |
942 !TabListEditor methodsFor:'startup / release'! |
952 |
943 |
953 initialize |
944 initialize |
983 |
974 |
984 accept |
975 accept |
985 "accept changes |
976 "accept changes |
986 " |
977 " |
987 |label| |
978 |label| |
|
979 |
|
980 self acceptChannel value:true. "/ toggle to force inputFields to accept |
|
981 self acceptChannel value:false. |
988 |
982 |
989 selectedIndex ~~ 0 ifTrue:[ |
983 selectedIndex ~~ 0 ifTrue:[ |
990 rebuildMode := true. |
984 rebuildMode := true. |
991 label := listOfTabs at:selectedIndex. |
985 label := listOfTabs at:selectedIndex. |
992 |
986 |
1282 ! ! |
1276 ! ! |
1283 |
1277 |
1284 !TabListEditor class methodsFor:'documentation'! |
1278 !TabListEditor class methodsFor:'documentation'! |
1285 |
1279 |
1286 version |
1280 version |
1287 ^ '$Header: /files/CVS/stx/libtool2/TabListEditor.st,v' |
1281 ^ '$Header$' |
1288 ! ! |
1282 ! ! |