diff -r 2c41188c820d -r e2c8c895443a ImageEditor.st
--- a/ImageEditor.st	Mon Feb 16 15:25:21 2004 +0100
+++ b/ImageEditor.st	Tue Feb 17 13:08:25 2004 +0100
@@ -1182,17 +1182,122 @@
 !
 
 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
+     UIPainter new openOnClass:ImageEditor andSelector:#uncropDialogSpec
+     ImageEditor new openInterface:#uncropDialogSpec
     "
-    
-    ^ #(#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))))))))
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: uncropDialogSpec
+        window: 
+       (WindowSpec
+          label: 'Add Border(s)'
+          name: 'Add Border(s)'
+          min: (Point 10 10)
+          max: (Point 800 478)
+          bounds: (Rectangle 0 0 261 228)
+        )
+        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