class: AbstractSettingsApplication
preps for keyboard mapping modification (unfinished)
--- a/AbstractSettingsApplication.st Wed Dec 17 16:32:42 2014 +0100
+++ b/AbstractSettingsApplication.st Wed Dec 17 18:32:11 2014 +0100
@@ -5605,97 +5605,163 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
name: windowSpec
- window:
+ window:
(WindowSpec
- label: 'Keyboard Mapping Settings'
- name: 'Keyboard Mapping Settings'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 491 653)
- )
- component:
+ label: 'Keyboard Mapping Settings'
+ name: 'Keyboard Mapping Settings'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 491 653)
+ )
+ component:
(SpecCollection
- collection: (
- (TextEditorSpec
- name: 'Text'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 100 0)
- enableChannel: false
- model: labelTextHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- miniScrollerVertical: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- viewClassName: 'TextView'
- postBuildCallback: postBuildHelpLabel:
- )
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel1'
- layout: (LayoutFrame 0 0.0 100 0 0 1.0 0 1.0)
- component:
- (SpecCollection
- collection: (
- (VariableHorizontalPanelSpec
- name: 'VariableHorizontalPanel1'
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'RawKeyList'
- model: selectedRawKey
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- useIndex: false
- sequenceList: rawKeyList
- )
- (SequenceViewSpec
- name: 'FunctionKeyList'
- model: selectedFunctionKey
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- useIndex: false
- sequenceList: functionKeyList
- )
- )
-
- )
- handles: (Any 0.5 1.0)
- )
- (ViewSpec
- name: 'Box1'
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Macro text (if any):'
- name: 'MacroTextLabel'
- layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
- translateLabel: true
- adjust: left
- )
- (TextEditorSpec
- name: 'MacroText'
- layout: (LayoutFrame 0 0.0 30 0 0 1.0 0 1.0)
- model: macroTextHolder
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- isReadOnly: true
- hasKeyboardFocusInitially: false
- )
- )
-
- )
- )
- )
-
- )
- handles: (Any 0.5 1.0)
- )
- )
-
+ collection: (
+ (TextEditorSpec
+ name: 'Text'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 100 0)
+ enableChannel: false
+ model: labelTextHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ postBuildCallback: postBuildHelpLabel:
+ viewClassName: 'TextView'
+ )
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ layout: (LayoutFrame 0 0.0 100 0 0 1.0 0 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel1'
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Key'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ translateLabel: true
+ )
+ (SequenceViewSpec
+ name: 'RawKeyList'
+ layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
+ model: selectedRawKey
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ useIndex: false
+ sequenceList: rawKeyList
+ )
+ (ViewSpec
+ name: 'Box4'
+ layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Change'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 0 0 7 0 136 0 29 0)
+ model: changeMapHolder
+ translateLabel: true
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ (ViewSpec
+ name: 'Box3'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Function'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0 0 0 0 1 30 0)
+ translateLabel: true
+ )
+ (SequenceViewSpec
+ name: 'FunctionKeyList'
+ layout: (LayoutFrame 0 0 30 0 0 1 -30 1)
+ model: selectedFunctionKey
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ useIndex: false
+ sequenceList: functionKeyList
+ )
+ (ViewSpec
+ name: 'Box5'
+ layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Apply'
+ name: 'Button1'
+ layout: (LayoutFrame 0 0 8 0 125 0 30 0)
+ translateLabel: true
+ model: applyMapChange
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
+ )
+ (ViewSpec
+ name: 'Box1'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Macro text (if any):'
+ name: 'MacroTextLabel'
+ layout: (LayoutFrame 0 0.0 0 0 0 1.0 30 0)
+ translateLabel: true
+ adjust: left
+ )
+ (TextEditorSpec
+ name: 'MacroText'
+ layout: (LayoutFrame 0 0.0 30 0 0 1.0 0 1.0)
+ model: macroTextHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ isReadOnly: true
+ hasKeyboardFocusInitially: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
+ )
+ )
+
)
)
! !
@@ -18817,10 +18883,10 @@
!AbstractSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.577 2014-12-11 23:11:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.578 2014-12-17 17:32:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.577 2014-12-11 23:11:49 cg Exp $'
-! !
-
+ ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.578 2014-12-17 17:32:11 cg Exp $'
+! !
+