diff -r f7baa10ebb1c -r 5c0b60e76676 ImageEditor.st
--- 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.