# HG changeset patch # User ca # Date 1086360845 -7200 # Node ID d6d62913c2cced95b3cd3744fcb8a0cb5936feb0 # Parent 62f5b971145ea3752d48f0f5ca71780993a357fe translate label; major/minorKey mentioned diff -r 62f5b971145e -r d6d62913c2cc TabListEditor.st --- 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 @@ - ^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 @@ ^ - #(#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 ) )