--- a/TabListEditor.st Fri Jun 04 14:38:20 2004 +0200
+++ b/TabListEditor.st Fri Jun 04 16:54:05 2004 +0200
@@ -127,7 +127,7 @@
<resource: #help>
- ^super helpSpec addPairsFrom:#(
+ ^ super helpSpec addPairsFrom:#(
#addTabItem
'Adds a new tab item.'
@@ -135,14 +135,32 @@
#autoHideScrollBars
'ScrollBars should be made invisible dynamically, if there is nothing to scroll.'
+#basicTab
+'Define the basic attributes.'
+
#canSelect
'Turns on/off whether the tab item is selectable.'
+#canvasTab
+'Define an application, which is started if the tab is pressed the first time.'
+
+#color
+'Defines the foreground color of the label. The default color derives from the style sheet.'
+
#createNewBuilder
'Create a new builder for the application; the application use its own aspects.'
-#color
-'Defines the foreground color of the label. The default color derives from the style sheet.'
+#detailTab
+'Define the optional/specific attributes.'
+
+#detailsAccelerator
+'Key to be pressed to select the tab item from the keyboard (accelerator key).'
+
+#detailsAccessCharaterPosition
+'Index of the access character position of the textual label (optional).'
+
+#detailsArgument
+'An optional argument stored with the tab item.'
#fileCreateAspectMethod
'Creates the aspect method for the tab list.'
@@ -156,32 +174,11 @@
#fileSave
'Saves current tab list.'
-#horizontalScroller
-'Enable horizontal scrollability.'
-
#horizontalMiniScroller
'Use a mini-scroller as horizontal scrollbar.'
-#majorKey
-'Name of the class to be started; if empty, the application itself is used.'
-
-#minorKey
-'Message sent to the class which returns the window specification (default: #windowSpec).'
-
-#verticalScroller
-'Enable vertical scrollability.'
-
-#verticalMiniScroller
-'Use a mini-scroller as vertical scrollbar.'
-
-#canvasTab
-'Define an application, which is started if the tab is pressed the first time.'
-
-#basicTab
-'Define the basic attributes.'
-
-#detailTab
-'Define the optional/specific attributes.'
+#horizontalScroller
+'Enable horizontal scrollability.'
#label
'Label of the tab item.'
@@ -189,18 +186,21 @@
#labelDerivesFromApplication
'If turned on, the label''s string is a selector returning a string or bitmap image, which is used as logo in the tab item.'
-#detailsAccessCharaterPosition
-'Index of the access character position of the textual label (optional).'
+#majorKey
+'Name of the class to be started (application if empty); or app-selector returning application instance.'
-#detailsAccelerator
-'Key to be pressed to select the tab item from the keyboard (accelerator key).'
-
-#detailsArgument
-'An optional argument stored with the tab item.'
+#minorKey
+'Message sent to the class which returns the window specification (default: #windowSpec).'
#testPreview
'Turns on/off preview of the tab list.'
+#verticalMiniScroller
+'Use a mini-scroller as vertical scrollbar.'
+
+#verticalScroller
+'Enable vertical scrollability.'
+
)
! !
@@ -391,162 +391,168 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #canvasSpec
- #window:
- #(#WindowSpec
- #label: 'Canvas'
- #name: 'Canvas'
- #min: #(#Point 10 10)
- #max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 803 137 1186 357)
+ #(FullSpec
+ name: canvasSpec
+ window:
+ (WindowSpec
+ label: 'Canvas'
+ name: 'Canvas'
+ min: (Point 10 10)
+ max: (Point 1280 1024)
+ bounds: (Rectangle 0 0 383 220)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Class Name:'
- #name: 'majorKeyLabel'
- #layout: #(#AlignmentOrigin 98 0 26 0 1 0.5)
- #resizeForLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Class Name / Major Key:'
+ name: 'majorKeyLabel'
+ layout: (AlignmentOrigin 160 0 26 0 1 0.5)
+ activeHelpKey: majorKey
+ translateLabel: true
+ resizeForLabel: true
)
- #(#InputFieldSpec
- #name: 'majorKeyField'
- #layout: #(#LayoutFrame 100 0 15 0 -5 1.0 37 0)
- #activeHelpKey: #majorKey
- #tabable: true
- #model: #majorKey
- #group: #inputGroup
- #type: #symbolOrNil
- #immediateAccept: true
- #acceptOnReturn: false
- #acceptOnTab: false
- #acceptOnLostFocus: false
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
+ (InputFieldSpec
+ name: 'majorKeyField'
+ layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0)
+ activeHelpKey: majorKey
+ tabable: true
+ model: majorKey
+ group: inputGroup
+ type: symbolOrNil
+ immediateAccept: true
+ acceptOnReturn: false
+ acceptOnTab: false
+ acceptOnLostFocus: false
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
- #(#LabelSpec
- #label: 'Spec. Selector:'
- #name: 'minorKeyLabel'
- #layout: #(#AlignmentOrigin 98 0 55 0 1 0.5)
- #resizeForLabel: true
+ (LabelSpec
+ label: 'Selector / Minor Key:'
+ name: 'minorKeyLabel'
+ layout: (AlignmentOrigin 160 0 55 0 1 0.5)
+ translateLabel: true
+ resizeForLabel: true
)
- #(#InputFieldSpec
- #name: 'minorKeyField'
- #layout: #(#LayoutFrame 100 0 44 0 -5 1.0 66 0)
- #activeHelpKey: #minorKey
- #tabable: true
- #model: #minorKey
- #group: #inputGroup
- #type: #symbolOrNil
- #immediateAccept: true
- #acceptOnReturn: false
- #acceptOnTab: false
- #acceptOnLostFocus: false
- #modifiedChannel: #modifiedChannel
- #acceptOnPointerLeave: false
+ (InputFieldSpec
+ name: 'minorKeyField'
+ layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0)
+ activeHelpKey: majorKey
+ tabable: true
+ model: minorKey
+ group: inputGroup
+ type: symbolOrNil
+ immediateAccept: true
+ acceptOnReturn: false
+ acceptOnTab: false
+ acceptOnLostFocus: false
+ modifiedChannel: modifiedChannel
+ acceptOnPointerLeave: false
)
- #(#FramedBoxSpec
- #label: 'Scroll Bars'
- #name: 'FramedBox'
- #layout: #(#LayoutFrame 0 0.0 119 0.0 0 1.0 214 0)
- #labelPosition: #topLeft
- #component:
- #(#SpecCollection
- #collection: #(
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #horizontalLayout: #fitSpace
- #verticalLayout: #fitSpace
- #horizontalSpace: 3
- #verticalSpace: 3
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'Box1'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#CheckBoxSpec
- #label: 'Vertical'
- #name: 'verticalScrollBarCheckBox'
- #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 27 0)
- #activeHelpKey: #verticalScroller
- #tabable: true
- #model: #hasVerticalScrollBar
+ (FramedBoxSpec
+ label: 'Scroll Bars'
+ name: 'FramedBox'
+ layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 214 0)
+ labelPosition: topLeft
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ horizontalLayout: fitSpace
+ verticalLayout: fitSpace
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Vertical'
+ name: 'verticalScrollBarCheckBox'
+ layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
+ activeHelpKey: verticalScroller
+ tabable: true
+ model: hasVerticalScrollBar
+ translateLabel: true
)
- #(#CheckBoxSpec
- #label: 'Mini'
- #name: 'miniScrollerVerticalCheckBox'
- #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 56 0)
- #activeHelpKey: #verticalMiniScroller
- #tabable: true
- #model: #miniScrollerVertical
+ (CheckBoxSpec
+ label: 'Mini'
+ name: 'miniScrollerVerticalCheckBox'
+ layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
+ activeHelpKey: verticalMiniScroller
+ tabable: true
+ model: miniScrollerVertical
+ translateLabel: true
)
)
)
- #useDefaultExtent: true
+ useDefaultExtent: true
)
- #(#ViewSpec
- #name: 'Box2'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#CheckBoxSpec
- #label: 'Horizontal'
- #name: 'horizontalScrollBarCheckBox'
- #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 27 0)
- #activeHelpKey: #horizontalScroller
- #tabable: true
- #model: #hasHorizontalScrollBar
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Horizontal'
+ name: 'horizontalScrollBarCheckBox'
+ layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0)
+ activeHelpKey: horizontalScroller
+ tabable: true
+ model: hasHorizontalScrollBar
+ translateLabel: true
)
- #(#CheckBoxSpec
- #label: 'Mini'
- #name: 'miniScrollerHorizontalCheckBox'
- #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 56 0)
- #activeHelpKey: #horizontalMiniScroller
- #tabable: true
- #model: #miniScrollerHorizontal
+ (CheckBoxSpec
+ label: 'Mini'
+ name: 'miniScrollerHorizontalCheckBox'
+ layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0)
+ activeHelpKey: horizontalMiniScroller
+ tabable: true
+ model: miniScrollerHorizontal
+ translateLabel: true
)
)
)
- #extent: #(#Point 114 59)
+ extent: (Point 113 57)
)
- #(#ViewSpec
- #name: 'Box3'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Auto Hide:'
- #name: 'Label1'
- #layout: #(#LayoutFrame 0 0.0 6 0 0 1.0 23 0)
- #translateLabel: true
- #resizeForLabel: true
- #adjust: #left
+ (ViewSpec
+ name: 'Box3'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Auto Hide:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0)
+ translateLabel: true
+ resizeForLabel: true
+ adjust: left
)
- #(#PopUpListSpec
- #label: 'Default'
- #name: 'PopUpList1'
- #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0)
- #tabable: true
- #activeHelpKey: #autoHideScrollBars
- #model: #autoHideScrollBars
- #menu:
- #(#Default
- #On #Off
+ (PopUpListSpec
+ label: 'Default'
+ name: 'PopUpList1'
+ layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0)
+ activeHelpKey: autoHideScrollBars
+ tabable: true
+ model: autoHideScrollBars
+ menu:
+ (Default
+ On Off
)
- #useIndex: true
- #showHandle: true
+ useIndex: true
)
)
)
- #extent: #(#Point 114 59)
+ extent: (Point 113 57)
)
)
@@ -556,12 +562,13 @@
)
)
- #(#CheckBoxSpec
- #label: 'Create New Builder'
- #name: 'createNewBuilder'
- #layout: #(#Point 97 75)
- #model: #createNewBuilder
- #activeHelpKey: #createNewBuilder
+ (CheckBoxSpec
+ label: 'Create New Builder'
+ name: 'createNewBuilder'
+ layout: (Point 161 75)
+ activeHelpKey: createNewBuilder
+ model: createNewBuilder
+ translateLabel: true
)
)