# HG changeset patch # User Claus Gittinger # Date 1379591684 -7200 # Node ID cc9b8daf00bc48174fa55078de43645f12d35b82 # Parent d7792b7a50b78ce03ba2072c15f1879327d8b602 class: UISelectionPanel changed: #standardButtons diff -r d7792b7a50b7 -r cc9b8daf00bc UISelectionPanel.st --- 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 @@ ^ - #(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!