--- a/ImageEditor.st Thu Sep 04 21:13:51 2003 +0200
+++ b/ImageEditor.st Thu Sep 04 22:15:55 2003 +0200
@@ -662,129 +662,300 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #changeHLSDialogSpec
- #window:
- #(#WindowSpec
- #label: 'HLS Edit Dialog'
- #name: 'HLS Edit Dialog'
- #min: #(#Point 10 10)
- #max: #(#Point 800 478)
- #bounds: #(#Rectangle 16 46 328 229)
+ #(FullSpec
+ name: changeHLSDialogSpec
+ window:
+ (WindowSpec
+ label: 'HLS Edit Dialog'
+ name: 'HLS Edit Dialog'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 326 229)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Hue-Shift:'
- #name: 'HueLabel'
- #layout: #(#LayoutFrame 20 0 21 0 120 0 43 0)
- #translateLabel: true
- #adjust: #right
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Hue-Shift:'
+ name: 'HueLabel'
+ layout: (LayoutFrame 20 0 21 0 120 0 43 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'HueShiftEntryField'
+ layout: (LayoutFrame 123 0 21 0 166 0 43 0)
+ tabable: true
+ model: hueShiftAmount
+ type: numberInRange
+ minValue: 0
+ maxValue: 360
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
+ )
+ (ThumbWheelSpec
+ name: 'HueWheel'
+ layout: (LayoutFrame 180 0 22 0 297 0 42 0)
+ model: hueShiftAmount
+ orientation: horizontal
+ step: 1
+ endlessRotation: true
+ )
+ (LabelSpec
+ label: 'Light Factor:'
+ name: 'LightLabel'
+ layout: (LayoutFrame 18 0 50 0 120 0 72 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'LightEntryField'
+ layout: (LayoutFrame 123 0 50 0 166 0 72 0)
+ tabable: true
+ model: lightAmount
+ type: numberInRange
+ minValue: 0
+ maxValue: 1000
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
)
- #(#InputFieldSpec
- #name: 'HueShiftEntryField'
- #layout: #(#LayoutFrame 123 0 21 0 166 0 43 0)
- #tabable: true
- #model: #hueShiftAmount
- #type: #numberInRange
- #minValue: 0
- #maxValue: 360
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ (ThumbWheelSpec
+ name: 'LightWheel'
+ layout: (LayoutFrame 180 0 51 0 297 0 71 0)
+ model: lightAmount
+ orientation: horizontal
+ stop: 1000
+ step: 1
+ )
+ (LabelSpec
+ label: 'Saturation Factor:'
+ name: 'SaturationLabel'
+ layout: (LayoutFrame 9 0 79 0 120 0 101 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'SaturationEntryField'
+ layout: (LayoutFrame 123 0 79 0 166 0 101 0)
+ tabable: true
+ model: saturationAmount
+ type: numberInRange
+ minValue: 0
+ maxValue: 1000
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
+ )
+ (ThumbWheelSpec
+ name: 'SaturationWheel'
+ layout: (LayoutFrame 180 0 80 0 297 0 100 0)
+ model: saturationAmount
+ orientation: horizontal
+ stop: 1000
+ step: 1
)
- #(#ThumbWheelSpec
- #name: 'HueWheel'
- #layout: #(#LayoutFrame 180 0 22 0 297 0 42 0)
- #model: #hueShiftAmount
- #orientation: #horizontal
- #step: 1
- #endlessRotation: true
+ (LabelSpec
+ name: 'HueColorLabel'
+ layout: (LayoutFrame 10 0.0 109 0 -10 1.0 148 0)
+ translateLabel: true
+ backgroundChannel: hlsColor
)
- #(#LabelSpec
- #label: 'Light Factor:'
- #name: 'LightLabel'
- #layout: #(#LayoutFrame 18 0 50 0 120 0 72 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'LightEntryField'
- #layout: #(#LayoutFrame 123 0 50 0 166 0 72 0)
- #tabable: true
- #model: #lightAmount
- #type: #numberInRange
- #minValue: 0
- #maxValue: 1000
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button1'
+ translateLabel: true
+ tabable: true
+ model: cancel
+ extent: (Point 151 22)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button2'
+ translateLabel: true
+ tabable: true
+ model: accept
+ extent: (Point 152 22)
+ )
+ )
+
+ )
)
- #(#ThumbWheelSpec
- #name: 'LightWheel'
- #layout: #(#LayoutFrame 180 0 51 0 297 0 71 0)
- #model: #lightAmount
- #orientation: #horizontal
- #stop: 1000
- #step: 1
+ )
+
+ )
+ )
+!
+
+cropDialogSpec
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:ImageEditor andSelector:#cropDialogSpec
+ ImageEditor new openInterface:#cropDialogSpec
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: cropDialogSpec
+ window:
+ (WindowSpec
+ label: 'Crop Border(s)'
+ name: 'Crop Border(s)'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 259 229)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Left:'
+ name: 'GropLeftLabel'
+ layout: (LayoutFrame 14 0 21 0 90 0 43 0)
+ translateLabel: true
+ adjust: right
)
- #(#LabelSpec
- #label: 'Saturation Factor:'
- #name: 'SaturationLabel'
- #layout: #(#LayoutFrame 9 0 79 0 120 0 101 0)
- #translateLabel: true
- #adjust: #right
+ (InputFieldSpec
+ name: 'GropLeftEntryField'
+ layout: (LayoutFrame 95 0 21 0 132 0 43 0)
+ tabable: true
+ model: left
+ type: number
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
+ )
+ (ActionButtonSpec
+ label: 'Now'
+ name: 'GropLeftNowButton'
+ layout: (LayoutFrame 148 0 21 0 221 0 43 0)
+ translateLabel: true
+ tabable: true
+ model: gropLeftNow
+ autoRepeat: true
)
- #(#InputFieldSpec
- #name: 'SaturationEntryField'
- #layout: #(#LayoutFrame 123 0 79 0 166 0 101 0)
- #tabable: true
- #model: #saturationAmount
- #type: #numberInRange
- #minValue: 0
- #maxValue: 1000
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ (LabelSpec
+ label: 'Right:'
+ name: 'GropRightLabel'
+ layout: (LayoutFrame 14 0 51 0 90 0 73 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'GropRightEntryField'
+ layout: (LayoutFrame 95 0 51 0 132 0 73 0)
+ tabable: true
+ model: right
+ type: number
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
+ )
+ (ActionButtonSpec
+ label: 'Now'
+ name: 'GropRightButton'
+ layout: (LayoutFrame 148 0 51 0 221 0 73 0)
+ translateLabel: true
+ tabable: true
+ model: gropRightNow
+ autoRepeat: true
)
- #(#ThumbWheelSpec
- #name: 'SaturationWheel'
- #layout: #(#LayoutFrame 180 0 80 0 297 0 100 0)
- #model: #saturationAmount
- #orientation: #horizontal
- #stop: 1000
- #step: 1
+ (LabelSpec
+ label: 'Top:'
+ name: 'GropTopLabel'
+ layout: (LayoutFrame 14 0 81 0 90 0 103 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'GropTopEntryField'
+ layout: (LayoutFrame 95 0 81 0 132 0 103 0)
+ tabable: true
+ model: top
+ type: number
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
)
- #(#LabelSpec
- #name: 'HueColorLabel'
- #layout: #(#LayoutFrame 10 0.0 109 0 -10 1.0 148 0)
- #translateLabel: true
- #backgroundChannel: #hlsColor
+ (ActionButtonSpec
+ label: 'Now'
+ name: 'GropTopButton'
+ layout: (LayoutFrame 148 0 81 0 221 0 103 0)
+ translateLabel: true
+ tabable: true
+ model: gropTopNow
+ autoRepeat: true
+ )
+ (LabelSpec
+ label: 'Bottom:'
+ name: 'GropBottomLabel'
+ layout: (LayoutFrame 14 0 111 0 90 0 133 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'GropBottomEntryField'
+ layout: (LayoutFrame 95 0 111 0 132 0 133 0)
+ tabable: true
+ model: bottom
+ type: number
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
)
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #extent: #(#Point 151 22)
+ (ActionButtonSpec
+ label: 'Now'
+ name: 'GropBottomButton'
+ layout: (LayoutFrame 148 0 111 0 221 0 133 0)
+ translateLabel: true
+ tabable: true
+ model: gropBottomNow
+ autoRepeat: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button1'
+ translateLabel: true
+ tabable: true
+ model: cancel
+ extent: (Point 77 22)
)
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #extent: #(#Point 152 22)
+ (ActionButtonSpec
+ label: 'Apply'
+ name: 'Button3'
+ translateLabel: true
+ tabable: true
+ model: applyAction
+ extent: (Point 78 22)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button2'
+ translateLabel: true
+ tabable: true
+ model: accept
+ extent: (Point 78 22)
)
)
@@ -810,251 +981,77 @@
<resource: #canvas>
- ^
-
- #(#FullSpec
- #window:
- #(#WindowSpec
- #name: 'New Image'
- #layout: #(#LayoutFrame 81 0 288 0 381 0 406 0)
- #label: 'New Image'
- #min: #(#Point 10 10)
- #max: #(#Point 1152 900)
- #bounds: #(#Rectangle 81 288 382 407)
- #usePreferredExtent: false
- )
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ViewSpec
- #name: 'View'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -35 1.0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#FramedBoxSpec
- #name: 'framedBox1'
- #layout: #(#LayoutFrame 1 0.0 7 0.0 0 0.4 76 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ComboBoxSpec
- #name: 'defaultSizesComboBox'
- #layout: #(#LayoutFrame 0 0.0 10 0.0 0 1 35 0.0)
- #model: #selectionOfSize
- #type: #string
- #comboList: #listOfDefaultSizes
- )
- )
- )
- #label: 'Size'
- #labelPosition: #topLeft
- #style: #(#FontDescription #helvetica #medium #roman 12)
- )
- #(#FramedBoxSpec
- #name: 'framedBox2'
- #layout: #(#LayoutFrame 0 0.4 7 0.0 -1 1.0 76 0)
- #component:
- #(#SpecCollection
- #collection:
- #(
- #(#ComboListSpec
- #name: 'colorMapComboBox'
- #layout: #(#LayoutFrame 0 0.0 10 0.0 0 1 35 0.0)
- #model: #selectionOfColorMap
- #comboList: #listOfColorMaps
- #useIndex: false
- )
- )
- )
- #label: 'Color Map'
- #labelPosition: #topLeft
- #style: #(#FontDescription #helvetica #medium #roman 12)
- )
- )
- )
- #level: 1
- )
- #(#UISubSpecification
- #name: 'windowSpecForCommitWithoutChannels'
- #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
- #minorKey: #windowSpecForCommitWithoutChannels
- )
- )
- )
- )
-!
-
-gropDialogSpec
- "This resource specification was automatically generated
- by the UIPainter of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIPainter may not be able to read the specification."
-
- "
- UIPainter new openOnClass:ImageEditor andSelector:#gropDialogSpec
- ImageEditor new openInterface:#gropDialogSpec
- "
-
- <resource: #canvas>
-
^
- #(#FullSpec
- #name: #gropDialogSpec
- #window:
- #(#WindowSpec
- #label: 'Crop Border(s)'
- #name: 'Crop Border(s)'
- #min: #(#Point 10 10)
- #max: #(#Point 800 478)
- #bounds: #(#Rectangle 16 52 261 235)
+ #(FullSpec
+ name: dialogSpecForNewImage
+ window:
+ (WindowSpec
+ label: 'New Image'
+ name: 'New Image'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 315 165)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Left:'
- #name: 'GropLeftLabel'
- #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'GropLeftEntryField'
- #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
- #tabable: true
- #model: #left
- #type: #number
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
- )
- #(#ActionButtonSpec
- #label: 'Now'
- #name: 'GropLeftNowButton'
- #layout: #(#LayoutFrame 148 0 21 0 221 0 43 0)
- #translateLabel: true
- #tabable: true
- #model: #gropLeftNow
- #autoRepeat: true
- )
- #(#LabelSpec
- #label: 'Right:'
- #name: 'GropRightLabel'
- #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'GropRightEntryField'
- #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
- #tabable: true
- #model: #right
- #type: #number
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
- )
- #(#ActionButtonSpec
- #label: 'Now'
- #name: 'GropRightButton'
- #layout: #(#LayoutFrame 148 0 51 0 221 0 73 0)
- #translateLabel: true
- #tabable: true
- #model: #gropRightNow
- #autoRepeat: true
- )
- #(#LabelSpec
- #label: 'Top:'
- #name: 'GropTopLabel'
- #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'GropTopEntryField'
- #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
- #tabable: true
- #model: #top
- #type: #number
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
- )
- #(#ActionButtonSpec
- #label: 'Now'
- #name: 'GropTopButton'
- #layout: #(#LayoutFrame 148 0 81 0 221 0 103 0)
- #translateLabel: true
- #tabable: true
- #model: #gropTopNow
- #autoRepeat: true
- )
- #(#LabelSpec
- #label: 'Bottom:'
- #name: 'GropBottomLabel'
- #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'GropBottomEntryField'
- #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
- #tabable: true
- #model: #bottom
- #type: #number
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
- )
- #(#ActionButtonSpec
- #label: 'Now'
- #name: 'GropBottomButton'
- #layout: #(#LayoutFrame 148 0 111 0 221 0 133 0)
- #translateLabel: true
- #tabable: true
- #model: #gropBottomNow
- #autoRepeat: true
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #extent: #(#Point 77 22)
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'View'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -35 1.0)
+ level: 1
+ component:
+ (SpecCollection
+ collection: (
+ (FramedBoxSpec
+ label: 'Size'
+ name: 'framedBox1'
+ layout: (LayoutFrame 1 0.0 7 0.0 0 0.4 76 0)
+ labelPosition: topLeft
+ style: (FontDescription helvetica medium roman 12)
+ component:
+ (SpecCollection
+ collection: (
+ (ComboBoxSpec
+ name: 'defaultSizesComboBox'
+ layout: (LayoutFrame 0 0.0 10 0.0 0 1 35 0.0)
+ model: selectionOfSize
+ type: string
+ acceptOnPointerLeave: false
+ comboList: listOfDefaultSizes
+ isFilenameBox: false
+ )
+ )
+
+ )
)
- #(#ActionButtonSpec
- #label: 'Apply'
- #name: 'Button3'
- #translateLabel: true
- #tabable: true
- #model: #applyAction
- #extent: #(#Point 78 22)
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #extent: #(#Point 78 22)
+ (FramedBoxSpec
+ label: 'Color Map'
+ name: 'framedBox2'
+ layout: (LayoutFrame 0 0.4 7 0.0 -1 1.0 76 0)
+ labelPosition: topLeft
+ style: (FontDescription helvetica medium roman 12)
+ component:
+ (SpecCollection
+ collection: (
+ (ComboListSpec
+ name: 'colorMapComboBox'
+ layout: (LayoutFrame 0 0.0 10 0.0 0 1 35 0.0)
+ model: selectionOfColorMap
+ comboList: listOfColorMaps
+ useIndex: false
+ )
+ )
+
+ )
)
)
)
)
+ (UISubSpecification
+ name: 'windowSpecForCommitWithoutChannels'
+ layout: (LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
+ minorKey: windowSpecForCommitWithoutChannels
+ )
)
)
@@ -1076,108 +1073,107 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #shiftDialogSpec
- #window:
- #(#WindowSpec
- #label: 'Shift'
- #name: 'Shift'
- #min: #(#Point 10 10)
- #max: #(#Point 800 478)
- #bounds: #(#Rectangle 16 46 261 229)
+ #(FullSpec
+ name: shiftDialogSpec
+ window:
+ (WindowSpec
+ label: 'Shift'
+ name: 'Shift'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 259 229)
)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Amount:'
- #name: 'AmountLabel'
- #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
- #translateLabel: true
- #adjust: #right
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Amount:'
+ name: 'AmountLabel'
+ layout: (LayoutFrame 14 0 21 0 90 0 43 0)
+ translateLabel: true
+ adjust: right
)
- #(#InputFieldSpec
- #name: 'AmountEntryField'
- #layout: #(#LayoutFrame 95 0 21 0 139 0 43 0)
- #tabable: true
- #model: #shiftAmount
- #type: #number
- #acceptChannel: #acceptChannel
- #acceptOnPointerLeave: false
+ (InputFieldSpec
+ name: 'AmountEntryField'
+ layout: (LayoutFrame 95 0 21 0 139 0 43 0)
+ tabable: true
+ model: shiftAmount
+ type: number
+ acceptChannel: acceptChannel
+ acceptOnPointerLeave: false
)
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #tabable: true
- #model: #cancel
- #extent: #(#Point 118 22)
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button1'
+ translateLabel: true
+ tabable: true
+ model: cancel
+ extent: (Point 118 22)
)
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #tabable: true
- #model: #accept
- #extent: #(#Point 118 22)
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button2'
+ translateLabel: true
+ tabable: true
+ model: accept
+ extent: (Point 118 22)
)
)
)
)
- #(#ArrowButtonSpec
- #name: 'upArrowButton'
- #layout: #(#LayoutFrame 105 0 63 0 127 0 85 0)
- #model: #shiftUpNow
- #isTriggerOnDown: true
- #autoRepeat: true
- #actionValue: ''
- #direction: #up
+ (ArrowButtonSpec
+ name: 'upArrowButton'
+ layout: (LayoutFrame 105 0 63 0 127 0 85 0)
+ model: shiftUpNow
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: up
)
- #(#ArrowButtonSpec
- #name: 'leftArrowButton'
- #layout: #(#LayoutFrame 84 0 86 0 106 0 108 0)
- #model: #shiftLeftNow
- #isTriggerOnDown: true
- #autoRepeat: true
- #actionValue: ''
- #direction: #left
+ (ArrowButtonSpec
+ name: 'leftArrowButton'
+ layout: (LayoutFrame 84 0 86 0 106 0 108 0)
+ model: shiftLeftNow
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: left
)
- #(#ArrowButtonSpec
- #name: 'rightArrowButton'
- #layout: #(#LayoutFrame 126 0 86 0 148 0 108 0)
- #model: #shiftRightNow
- #isTriggerOnDown: true
- #autoRepeat: true
- #actionValue: ''
- #direction: #right
+ (ArrowButtonSpec
+ name: 'rightArrowButton'
+ layout: (LayoutFrame 126 0 86 0 148 0 108 0)
+ model: shiftRightNow
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: right
)
- #(#ArrowButtonSpec
- #name: 'downArrowButton'
- #layout: #(#LayoutFrame 105 0 107 0 127 0 129 0)
- #model: #shiftDownNow
- #isTriggerOnDown: true
- #autoRepeat: true
- #actionValue: ''
- #direction: #down
+ (ArrowButtonSpec
+ name: 'downArrowButton'
+ layout: (LayoutFrame 105 0 107 0 127 0 129 0)
+ model: shiftDownNow
+ isTriggerOnDown: true
+ autoRepeat: true
+ actionValue: ''
+ direction: down
)
- #(#CheckBoxSpec
- #label: 'Wrap'
- #name: 'CheckBox1'
- #layout: #(#LayoutFrame 153 0 22 0 289 0 44 0)
- #model: #wrap
- #translateLabel: true
+ (CheckBoxSpec
+ label: 'Wrap'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 153 0 22 0 289 0 44 0)
+ model: wrap
+ translateLabel: true
)
)
@@ -1185,123 +1181,18 @@
)
!
-ungropDialogSpec
+uncropDialogSpec
+ <resource: #canvas>
"This resource specification was automatically generated
by the UIPainter of ST/X."
-
"Do not manually edit this!! If it is corrupted,
the UIPainter may not be able to read the specification."
-
"
UIPainter new openOnClass:ImageEditor andSelector:#ungropDialogSpec
ImageEditor new openInterface:#ungropDialogSpec
"
-
- <resource: #canvas>
-
- ^
- #(#FullSpec
- #name: #ungropDialogSpec
- #window:
- #(#WindowSpec
- #label: 'Add Border(s)'
- #name: 'Add Borders'
- #min: #(#Point 10 10)
- #max: #(#Point 800 478)
- #bounds: #(#Rectangle 16 46 261 229)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#LabelSpec
- #label: 'Left:'
- #name: 'Label1'
- #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField1'
- #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
- #model: #left
- #type: #number
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'Right:'
- #name: 'Label2'
- #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField2'
- #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
- #model: #right
- #type: #number
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'Top:'
- #name: 'Label3'
- #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField3'
- #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
- #model: #top
- #type: #number
- #acceptOnPointerLeave: false
- )
- #(#LabelSpec
- #label: 'Bottom:'
- #name: 'Label4'
- #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0)
- #translateLabel: true
- #adjust: #right
- )
- #(#InputFieldSpec
- #name: 'EntryField4'
- #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
- #model: #bottom
- #type: #number
- #acceptOnPointerLeave: false
- )
- #(#HorizontalPanelViewSpec
- #name: 'HorizontalPanel1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
- #horizontalLayout: #fitSpace
- #verticalLayout: #center
- #horizontalSpace: 3
- #verticalSpace: 3
- #reverseOrderIfOKAtLeft: true
- #component:
- #(#SpecCollection
- #collection: #(
- #(#ActionButtonSpec
- #label: 'Cancel'
- #name: 'Button1'
- #translateLabel: true
- #model: #cancel
- #extent: #(#Point 118 22)
- )
- #(#ActionButtonSpec
- #label: 'OK'
- #name: 'Button2'
- #translateLabel: true
- #model: #accept
- #extent: #(#Point 118 22)
- )
- )
-
- )
- )
- )
-
- )
- )
+
+ ^ #(#FullSpec #name: #ungropDialogSpec #window: #(#WindowSpec #label: 'Add Border(s)' #name: 'Add Borders' #min: #(#Point 10 10) #max: #(#Point 800 478) #bounds: #(#Rectangle 16 46 261 229)) #component: #(#SpecCollection #collection: #(#(#LabelSpec #label: 'Left:' #name: 'Label1' #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField1' #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0) #model: #left #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Right:' #name: 'Label2' #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField2' #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0) #model: #right #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Top:' #name: 'Label3' #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField3' #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0) #model: #top #type: #number #acceptOnPointerLeave: false) #(#LabelSpec #label: 'Bottom:' #name: 'Label4' #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0) #translateLabel: true #adjust: #right) #(#InputFieldSpec #name: 'EntryField4' #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0) #model: #bottom #type: #number #acceptOnPointerLeave: false) #(#HorizontalPanelViewSpec #name: 'HorizontalPanel1' #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1) #horizontalLayout: #fitSpace #verticalLayout: #center #horizontalSpace: 3 #verticalSpace: 3 #reverseOrderIfOKAtLeft: true #component: #(#SpecCollection #collection: #(#(#ActionButtonSpec #label: 'Cancel' #name: 'Button1' #translateLabel: true #model: #cancel #extent: #(#Point 118 22)) #(#ActionButtonSpec #label: 'OK' #name: 'Button2' #translateLabel: true #model: #accept #extent: #(#Point 118 22))))))))
!
windowSpec
@@ -2762,7 +2653,7 @@
].
something == #subImageIn ifTrue:[
self imagePreView image ~~ img ifTrue:[
- self halt:'should not happen'.
+ self error:'internal error' mayProceed:true.
].
self tileModeHolder value ifTrue:[
self imagePreView invalidate.
@@ -2836,7 +2727,7 @@
index ~~ 0 ifTrue:[
list at:index put:aNewColor
] ifFalse:[
- self halt:'should not happen'.
+ self error:'internal error' mayProceed:true.
list add:aNewColor
].
!
@@ -4126,7 +4017,7 @@
bindings at:#applyAction put:[ gropAction value:left value:right value:top value:bottom ].
- (self openDialogInterface:#gropDialogSpec withBindings:bindings)
+ (self openDialogInterface:#cropDialogSpec withBindings:bindings)
ifFalse:[
firstChange ~~ true ifTrue:[
imageEditView undo.
@@ -4362,7 +4253,7 @@
bindings at:#right put:(right := 1 asValue).
bindings at:#top put:(top := 1 asValue).
bindings at:#bottom put:(bottom := 1 asValue).
- (self openDialogInterface:#ungropDialogSpec withBindings:bindings)
+ (self openDialogInterface:#uncropDialogSpec withBindings:bindings)
ifTrue:[
left := left value.
right := right value.