--- a/TabItemEditor.st Wed Feb 04 16:12:58 1998 +0100
+++ b/TabItemEditor.st Wed Feb 04 16:37:25 1998 +0100
@@ -73,6 +73,18 @@
#addTabItem
'Adds a new tab item.'
+#argument
+''
+
+#canSelect
+'Turns on/off selection behavior of the tab list item.'
+
+#color
+'Color of the label.'
+
+#fileCreateAspectMethod
+'Creates the aspect method for the tab list.'
+
#fileNew
'Creates a new tab list.'
@@ -82,8 +94,14 @@
#fileSave
'Saves current tab list.'
+#label
+'Label of the tab list item.'
+
+#labelDerivesFromApplication
+''
+
#testPreview
-'Toggle on/off preview of the tab list.'
+'Turns on/off preview of the tab list.'
)
! !
@@ -182,11 +200,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Tab Basic'
- #'layout:' #(#LayoutFrame 411 0 572 0 773 0 797 0)
+ #'layout:' #(#LayoutFrame 123 0 255 0 485 0 480 0)
#'label:' 'Tab Basic'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1280 1024)
- #'bounds:' #(#Rectangle 411 572 774 798)
+ #'bounds:' #(#Rectangle 123 255 486 481)
#'usePreferredExtent:' false
)
#'component:'
@@ -208,14 +226,14 @@
#(#CheckBoxSpec
#'name:' 'TranslateLabel'
#'layout:' #(#LayoutOrigin 104 0 42 0)
- #'activeHelpKey:' #translateLabel
+ #'activeHelpKey:' #labelDerivesFromApplication
#'model:' #translateLabel
#'label:' 'Label derives from Application'
)
#(#ColorMenuSpec
#'name:' 'ForegroundColorMenu'
- #'layout:' #(#LayoutFrame 75 0 124 0 -5 1.0 146 0)
- #'activeHelpKey:' #foregroundColor
+ #'layout:' #(#LayoutFrame 75 0 124 0 -7 1.0 146 0)
+ #'activeHelpKey:' #color
#'model:' #labelForegroundColor
#'labelsAreColored:' false
)
@@ -229,6 +247,7 @@
#(#CheckBoxSpec
#'name:' 'CanSelect'
#'layout:' #(#LayoutFrame 107 0 176 0 226 0 198 0)
+ #'activeHelpKey:' #canSelect
#'model:' #enabled
#'label:' 'Can Select'
)
@@ -241,7 +260,7 @@
#(#InputFieldSpec
#'name:' 'ArgumentField'
#'layout:' #(#LayoutFrame 107 0 80 0 -5 1.0 102 0)
- #'activeHelpKey:' #label
+ #'activeHelpKey:' #argument
#'model:' #editAgument
)
)
@@ -399,11 +418,13 @@
#(
#(#MenuItem
#'label:' 'About'
+ #'activeHelpKey:' #about
#'labelImage:' #(#ResourceRetriever nil #menuIcon)
#'submenuChannel:' #menuAbout
)
#(#MenuItem
#'label:' 'File'
+ #'activeHelpKey:' #file
#'submenu:'
#(#Menu
@@ -442,6 +463,7 @@
#(#MenuItem
#'label:' 'Create Aspect Method'
#'value:' #doInstallAspect
+ #'activeHelpKey:' #fileCreateAspectMethod
#'enabled:' #hasClassAndSelector
)
#(#MenuItem
@@ -459,10 +481,12 @@
)
#(#MenuItem
#'label:' 'Edit'
+ #'activeHelpKey:' #edit
#'submenuChannel:' #menuEdit
)
#(#MenuItem
#'label:' 'Add'
+ #'activeHelpKey:' #add
#'submenu:'
#(#Menu
@@ -479,13 +503,14 @@
)
#(#MenuItem
#'label:' 'Test'
- #'activeHelpKey:' #testPreview
+ #'activeHelpKey:' #test
#'submenu:'
#(#Menu
#(
#(#MenuItem
#'label:' 'Preview'
+ #'activeHelpKey:' #testPreview
#'enabled:' #canShowTestMode
#'indication:' #testMode
)
@@ -495,11 +520,13 @@
)
#(#MenuItem
#'label:' 'History'
+ #'activeHelpKey:' #history
#'submenuChannel:' #menuHistory
)
#(#MenuItem
#'label:' 'Help'
#'startGroup:' #right
+ #'activeHelpKey:' #help
#'submenuChannel:' #menuHelp
)
) nil
@@ -882,7 +909,7 @@
list add:aTab label.
listOfTabs add:aTab.
].
- rebuildMode := false.
+ rebuildMode := false.
self addToHistory:(className name, ' ', selector) -> #loadFromMessage:
]
]
@@ -896,6 +923,8 @@
listOfTabs notEmpty ifTrue:[
self selectionHolder value:1
].
+
+ self updateInfoLabel
!
loadFromMessage:aMessage
@@ -934,9 +963,11 @@
defaultInfoLabel
- ^self testMode value
- ifTrue: ['Test mode']
- ifFalse: ['']
+ self testMode value
+ ifTrue: [^'Test mode']
+ ifFalse: [
+ className isNil ifTrue: [^'No tab list class defined'].
+ ^className name, ' >> ', selector printString]
! !
!TabItemEditor methodsFor:'selection'!