--- a/TabItemEditor.st Tue Feb 03 23:38:42 1998 +0100
+++ b/TabItemEditor.st Tue Feb 03 23:41:20 1998 +0100
@@ -182,11 +182,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Tab Basic'
- #'layout:' #(#LayoutFrame 171 0 551 0 477 0 751 0)
+ #'layout:' #(#LayoutFrame 411 0 572 0 773 0 797 0)
#'label:' 'Tab Basic'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1280 1024)
- #'bounds:' #(#Rectangle 171 551 478 752)
+ #'bounds:' #(#Rectangle 411 572 774 798)
#'usePreferredExtent:' false
)
#'component:'
@@ -207,14 +207,14 @@
)
#(#CheckBoxSpec
#'name:' 'TranslateLabel'
- #'layout:' #(#LayoutOrigin 107 0 47 0)
+ #'layout:' #(#LayoutOrigin 104 0 42 0)
#'activeHelpKey:' #translateLabel
#'model:' #translateLabel
#'label:' 'Label derives from Application'
)
#(#ColorMenuSpec
#'name:' 'ForegroundColorMenu'
- #'layout:' #(#LayoutFrame 75 0 124 0 -4 1.0 146 0)
+ #'layout:' #(#LayoutFrame 75 0 124 0 -5 1.0 146 0)
#'activeHelpKey:' #foregroundColor
#'model:' #labelForegroundColor
#'labelsAreColored:' false
@@ -926,7 +926,7 @@
ifTrue: [self doTest]
ifFalse:[testView lower. self selectionHolder value:1].
- self valueOfInfoLabel value: self defaultInfoLabel.
+ self updateInfoLabel
]
! !
@@ -949,6 +949,7 @@
|s oldSel|
self listOfLabels notEmpty ifTrue: [self canShowTestMode value: true].
+ anIndex notNil ifTrue: [self testMode value: false].
oldSel := selectedIndex.
selectedIndex := anIndex ? 0.
@@ -968,9 +969,6 @@
testView lower.
].
-
- "self testMode value not & anIndex notNil ifTrue: [self testMode value: false].
- "
! !
!TabItemEditor methodsFor:'startup / release'!
@@ -1076,6 +1074,7 @@
|list index|
(index := selectedIndex) ~~ 0 ifTrue:[
+ self testMode value: false.
list := self listOfLabels.
self clipboard:(listOfTabs at:index) deepCopy.
self selectionHolder value:0.
@@ -1264,6 +1263,8 @@
doNew
+ self testMode value: false.
+
self modified:false.
rebuildMode := true.
@@ -1287,6 +1288,7 @@
"
|tab|
+ self testMode value: false.
tab := self class clipboard deepCopy.
listOfTabs add:tab afterIndex:selectedIndex.
self listOfLabels add:(tab label) afterIndex:selectedIndex.