--- a/UISelectionPanel.st Mon Sep 16 12:56:06 2013 +0200
+++ b/UISelectionPanel.st Thu Sep 19 13:54:44 2013 +0200
@@ -567,132 +567,132 @@
<resource: #canvas>
^
- #(FullSpec
- name: standardButtons
- window:
- (WindowSpec
- label: 'Buttons'
- name: 'Buttons'
- min: (Point 10 10)
- bounds: (Rectangle 0 0 440 196)
- )
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Button'
- name: 'Button'
- layout: (LayoutFrame 2 0 1 0 127 0 23 0)
- translateLabel: true
- )
- (ActionButtonSpec
- label: 'OK'
- name: 'Button - OK'
- layout: (LayoutFrame 2 0 33 0 127 0 55 0)
- translateLabel: true
- model: doAccept
- )
- (ActionButtonSpec
- label: 'Cancel'
- name: 'Button - Cancel'
- layout: (LayoutFrame 2 0 65 0 127 0 87 0)
- translateLabel: true
- model: doCancel
- )
- (ActionButtonSpec
- label: 'Help'
- name: 'Button - Help'
- layout: (LayoutFrame 2 0 97 0 127 0 119 0)
- translateLabel: true
- model: help
- )
- (ActionButtonSpec
- label: 'Close'
- name: 'Button - Close'
- layout: (LayoutFrame 2 0 129 0 127 0 151 0)
- translateLabel: true
- model: closeRequest
- )
- (ToggleSpec
- label: 'Toggle'
- name: 'Toggle'
- layout: (LayoutFrame 144 0 1 0 280 0 23 0)
- translateLabel: true
- isTriggerOnDown: true
- lampColor: (Color 100.0 100.0 0.0)
- )
- (RadioButtonSpec
- label: 'Radio Button'
- name: 'Radio Button'
- layout: (LayoutFrame 144 0.0 33 0 280 0 55 0)
- translateLabel: true
- isTriggerOnDown: true
- )
- (CheckBoxSpec
- label: 'Check Box'
- name: 'Check Box'
- layout: (LayoutFrame 144 0 65 0 280 0 87 0)
- translateLabel: true
- )
- (CheckToggleSpec
- name: 'Check Toggle'
- layout: (LayoutOrigin 144 0 99 0)
- isTriggerOnDown: true
- showLamp: false
- lampColor: (Color 100.0 100.0 0.0)
- )
- (LabelSpec
- label: 'Check Toggle'
- name: 'CheckToggleLabel'
- layout: (AlignmentOrigin 170 0 98 0 0 0)
- resizeForLabel: true
- adjust: left
- canUIDrag: false
- )
- (ButtonSpec
- label: 'Model Button'
- name: 'Model Button'
- layout: (LayoutFrame 296 0 1 0 432 0 23 0)
- translateLabel: true
- )
- (LabelSpec
- label: 'Spin Button'
- name: 'UpDownButtonLabel'
- layout: (AlignmentOrigin 348 0 35 0 0 0)
- resizeForLabel: true
- adjust: left
- canUIDrag: false
- )
- (UpDownButtonSpec
- name: 'UpDown Button'
- layout: (LayoutFrame 296 0 33 0 341 0 55 0)
- orientation: horizontal
- )
- (LabelSpec
- label: 'Arrow Button'
- name: 'ArrowButtonsLabel'
- layout: (AlignmentOrigin 348 0 69 0 0 0)
- resizeForLabel: true
- adjust: left
- canUIDrag: false
- )
- (ArrowButtonSpec
- name: 'Arrow Button'
- layout: (LayoutFrame 296 0 65 0 318 0 87 0)
- isTriggerOnDown: true
- direction: right
- )
- (ActionButtonSpec
- label: '...'
- name: 'Button1'
- layout: (LayoutFrame 0 0 160 0 20 0 182 0)
- translateLabel: true
- model: someAction
- )
+ #(FullSpec
+ name: standardButtons
+ window:
+ (WindowSpec
+ label: 'Buttons'
+ name: 'Buttons'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 440 196)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Button'
+ name: 'Button'
+ layout: (LayoutFrame 2 0 1 0 127 0 23 0)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button - OK'
+ layout: (LayoutFrame 2 0 33 0 127 0 55 0)
+ translateLabel: true
+ model: doAccept
+ )
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button - Cancel'
+ layout: (LayoutFrame 2 0 65 0 127 0 87 0)
+ translateLabel: true
+ model: doCancel
+ )
+ (ActionButtonSpec
+ label: 'Help'
+ name: 'Button - Help'
+ layout: (LayoutFrame 2 0 97 0 127 0 119 0)
+ translateLabel: true
+ model: help
+ )
+ (ActionButtonSpec
+ label: 'Close'
+ name: 'Button - Close'
+ layout: (LayoutFrame 2 0 129 0 127 0 151 0)
+ translateLabel: true
+ model: closeRequest
+ )
+ (ToggleSpec
+ label: 'Toggle'
+ name: 'Toggle'
+ layout: (LayoutFrame 144 0 1 0 280 0 23 0)
+ isTriggerOnDown: true
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ (RadioButtonSpec
+ label: 'Radio Button'
+ name: 'Radio Button'
+ layout: (LayoutFrame 144 0.0 33 0 280 0 55 0)
+ isTriggerOnDown: true
+ )
+ (CheckBoxSpec
+ label: 'Check Box'
+ name: 'Check Box'
+ layout: (LayoutFrame 142 0 65 0 278 0 87 0)
)
-
- )
- )
+ (CheckToggleSpec
+ name: 'Check Toggle'
+ layout: (LayoutOrigin 146 0 99 0)
+ isTriggerOnDown: true
+ showLamp: false
+ lampColor: (Color 100.0 100.0 0.0)
+ )
+ (LabelSpec
+ label: 'Check Toggle'
+ name: 'CheckToggleLabel'
+ layout: (AlignmentOrigin 166 0 98 0 0 0)
+ resizeForLabel: true
+ adjust: left
+ canUIDrag: false
+ )
+ (TriggerBoxSpec
+ label: 'Trigger Box'
+ name: 'TriggerBox1'
+ layout: (LayoutFrame 142 0 129 0 278 0 151 0)
+ )
+ (ButtonSpec
+ label: 'Model Button'
+ name: 'Model Button'
+ layout: (LayoutFrame 296 0 1 0 432 0 23 0)
+ )
+ (LabelSpec
+ label: 'Spin Button'
+ name: 'UpDownButtonLabel'
+ layout: (AlignmentOrigin 348 0 35 0 0 0)
+ resizeForLabel: true
+ adjust: left
+ canUIDrag: false
+ )
+ (UpDownButtonSpec
+ name: 'UpDown Button'
+ layout: (LayoutFrame 296 0 33 0 341 0 55 0)
+ orientation: horizontal
+ )
+ (LabelSpec
+ label: 'Arrow Button'
+ name: 'ArrowButtonsLabel'
+ layout: (AlignmentOrigin 348 0 69 0 0 0)
+ resizeForLabel: true
+ adjust: left
+ canUIDrag: false
+ )
+ (ArrowButtonSpec
+ name: 'Arrow Button'
+ layout: (LayoutFrame 296 0 65 0 318 0 87 0)
+ isTriggerOnDown: true
+ direction: right
+ )
+ (ActionButtonSpec
+ label: '...'
+ name: 'Button1'
+ layout: (LayoutFrame 2 0 160 0 22 0 182 0)
+ translateLabel: true
+ model: someAction
+ )
+ )
+
+ )
+ )
!
standardEmbed
@@ -2535,5 +2535,6 @@
^ '$Header$'
! !
+
UISelectionPanel initialize!
UISelectionPanel::UserDefinedGallery initialize!