#UI_ENHANCEMENT by cg
class: ToolApplicationModel class
changed:
#windowSpecForCommit
#windowSpecForCommitWithoutChannels
#windowSpecForInfoBar
added automationIDs
--- a/ToolApplicationModel.st Mon Oct 30 04:34:51 2017 +0000
+++ b/ToolApplicationModel.st Fri Nov 10 00:18:45 2017 +0100
@@ -499,60 +499,63 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpecForCommit
- #window:
- #(#WindowSpec
- #label: 'Commit Buttons'
- #name: 'Commit Buttons'
- #min: #(#Point 100 22)
- #max: #(#Point 1152 900)
- #bounds: #(#Rectangle 18 51 318 111)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #horizontalLayout: #fitSpace
- #verticalLayout: #centerMax
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'cancelButton'
- #activeHelpKey: #commitCancel
- #translateLabel: true
- "/ #resizeForLabel: true
- #tabable: true
- #model: #cancel
- #enableChannel: #enablingCommitButtonsHolder
- #useDefaultExtent: true
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'okButton'
- #activeHelpKey: #commitOK
- #translateLabel: true
- "/ #resizeForLabel: true
- #tabable: true
- #model: #accept
- #enableChannel: #enablingCommitButtonsHolder
- #useDefaultExtent: true
- )
+ #(FullSpec
+ name: windowSpecForCommit
+ uuid: '443e7e20-c5a3-11e7-82f7-c42c033b4871'
+ window:
+ (WindowSpec
+ label: 'Commit Buttons'
+ name: 'Commit Buttons'
+ uuid: '443e85f0-c5a3-11e7-82f7-c42c033b4871'
+ min: (Point 100 22)
+ max: (Point 1152 900)
+ bounds: (Rectangle 0 0 300 60)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ uuid: '443e8d2a-c5a3-11e7-82f7-c42c033b4871'
+ horizontalLayout: fitSpace
+ verticalLayout: centerMax
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'cancelButton'
+ activeHelpKey: commitCancel
+ uuid: '443e93e2-c5a3-11e7-82f7-c42c033b4871'
+ translateLabel: true
+ tabable: true
+ model: cancel
+ enableChannel: enablingCommitButtonsHolder
+ useDefaultExtent: true
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'okButton'
+ activeHelpKey: commitOK
+ uuid: '443e9bda-c5a3-11e7-82f7-c42c033b4871'
+ translateLabel: true
+ tabable: true
+ model: accept
+ enableChannel: enablingCommitButtonsHolder
+ useDefaultExtent: true
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
!
windowSpecForCommitWithoutChannels
@@ -570,57 +573,62 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpecForCommitWithoutChannels
- window:
- (WindowSpec
- label: 'Commit Buttons Without Channels'
- name: 'Commit Buttons Without Channels'
- min: (Point 100 22)
- max: (Point 1152 900)
- bounds: (Rectangle 0 0 300 46)
- )
- component:
- (SpecCollection
- collection: (
- (HorizontalPanelViewSpec
- name: 'HorizontalPanel1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- horizontalLayout: fitSpace
- verticalLayout: centerMax
- horizontalSpace: 3
- verticalSpace: 3
- reverseOrderIfOKAtLeft: true
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Cancel'
- name: 'cancelButton'
- activeHelpKey: commitCancel
- translateLabel: true
- tabable: true
- model: cancel
- useDefaultExtent: true
- )
- (ActionButtonSpec
- label: 'OK'
- name: 'okButton'
- activeHelpKey: commitOK
- translateLabel: true
- tabable: true
- model: accept
- isDefault: true
- useDefaultExtent: true
- )
+ #(FullSpec
+ name: windowSpecForCommitWithoutChannels
+ uuid: '46ec2a78-c5a3-11e7-82f7-c42c033b4871'
+ window:
+ (WindowSpec
+ label: 'Commit Buttons Without Channels'
+ name: 'Commit Buttons Without Channels'
+ uuid: '46ec2e6a-c5a3-11e7-82f7-c42c033b4871'
+ min: (Point 100 22)
+ max: (Point 1152 900)
+ bounds: (Rectangle 0 0 300 46)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ uuid: '46ec316c-c5a3-11e7-82f7-c42c033b4871'
+ horizontalLayout: fitSpace
+ verticalLayout: centerMax
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'cancelButton'
+ activeHelpKey: commitCancel
+ uuid: '46ec3450-c5a3-11e7-82f7-c42c033b4871'
+ translateLabel: true
+ tabable: true
+ model: cancel
+ useDefaultExtent: true
)
-
- )
- )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'okButton'
+ activeHelpKey: commitOK
+ uuid: '46ec3798-c5a3-11e7-82f7-c42c033b4871'
+ translateLabel: true
+ tabable: true
+ model: accept
+ isDefault: true
+ useDefaultExtent: true
+ )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
!
windowSpecForInfoBar
@@ -638,41 +646,46 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpecForInfoBar
- #window:
- #(#WindowSpec
- #label: 'Info Bar'
- #name: 'Info Bar'
- #min: #(#Point 400 320)
- #max: #(#Point 1152 900)
- #bounds: #(#Rectangle 13 23 513 369)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ViewSpec
- #name: 'infoView'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #name: 'InfoLabel'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #level: -1
- #labelChannel: #infoLabelHolder
- #resizeForLabel: false
- #adjust: #left
- )
+ #(FullSpec
+ name: windowSpecForInfoBar
+ uuid: '4969fb72-c5a3-11e7-82f7-c42c033b4871'
+ window:
+ (WindowSpec
+ label: 'Info Bar'
+ name: 'Info Bar'
+ uuid: '496a0108-c5a3-11e7-82f7-c42c033b4871'
+ min: (Point 400 320)
+ max: (Point 1152 900)
+ bounds: (Rectangle 0 0 500 346)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'infoView'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ uuid: '496a0568-c5a3-11e7-82f7-c42c033b4871'
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ name: 'InfoLabel'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ uuid: '496a084c-c5a3-11e7-82f7-c42c033b4871'
+ level: -1
+ translateLabel: true
+ labelChannel: infoLabelHolder
+ resizeForLabel: false
+ adjust: left
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
+ )
+
+ )
+ )
!
windowSpecForInfoBarWithClock