ImageEditor.st
changeset 1457 8c15098c3469
parent 1449 49ad9f552d64
child 1459 1edc1052fa77
--- a/ImageEditor.st	Wed Apr 11 13:49:57 2001 +0200
+++ b/ImageEditor.st	Wed Apr 11 15:56:59 2001 +0200
@@ -492,114 +492,115 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:ImageEditor andSelector:#grobDialogSpec
-     ImageEditor new openInterface:#grobDialogSpec
+     UIPainter new openOnClass:ImageEditor andSelector:#gropDialogSpec
+     ImageEditor new openInterface:#gropDialogSpec
     "
 
     <resource: #canvas>
 
-    ^
-     
-       #(#FullSpec
-          #window: 
-           #(#WindowSpec
-              #name: 'Crop Borders'
-              #layout: #(#LayoutFrame 22 0 233 0 266 0 415 0)
-              #label: 'Crop Borders'
-              #min: #(#Point 10 10)
-              #max: #(#Point 800 478)
-              #bounds: #(#Rectangle 22 233 267 416)
-              #usePreferredExtent: false
-          )
-          #component: 
-           #(#SpecCollection
-              #collection: 
-               #(
-                 #(#LabelSpec
-                    #name: 'Label1'
-                    #layout: #(#LayoutFrame 14 0 21 0 90 0 43 0)
-                    #label: 'Left:'
-                    #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField1'
-                    #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
-                    #model: #left
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label2'
-                    #layout: #(#LayoutFrame 14 0 51 0 90 0 73 0)
-                    #label: 'Right:'
-                    #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField2'
-                    #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
-                    #model: #right
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label3'
-                    #layout: #(#LayoutFrame 14 0 81 0 90 0 103 0)
-                    #label: 'Top:'
+    ^ 
+     #(#FullSpec
+        #name: #gropDialogSpec
+        #window: 
+       #(#WindowSpec
+          #label: 'Crop Borders'
+          #name: 'Crop 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
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField3'
-                    #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
-                    #model: #top
-                    #type: #number
-                )
-                 #(#LabelSpec
-                    #name: 'Label4'
-                    #layout: #(#LayoutFrame 14 0 111 0 90 0 133 0)
-                    #label: 'Bottom:'
+                    #model: #cancel
+                    #extent: #(#Point 118 22)
+                  )
+                 #(#ActionButtonSpec
+                    #label: 'OK'
+                    #name: 'Button2'
                     #translateLabel: true
-                    #adjust: #right
-                )
-                 #(#InputFieldSpec
-                    #name: 'EntryField4'
-                    #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
-                    #model: #bottom
-                    #type: #number
-                )
-                 #(#HorizontalPanelViewSpec
-                    #name: 'HorizontalPanel1'
-                    #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1)
-                    #component: 
-                     #(#SpecCollection
-                        #collection: 
-                         #(
-                           #(#ActionButtonSpec
-                              #name: 'Button1'
-                              #label: 'Cancel'
-                              #translateLabel: true
-                              #model: #cancel
-                              #extent: #(#Point 118 22)
-                          )
-                           #(#ActionButtonSpec
-                              #name: 'Button2'
-                              #label: 'OK'
-                              #translateLabel: true
-                              #model: #accept
-                              #extent: #(#Point 118 22)
-                          )
-                        )
-                    )
-                    #horizontalLayout: #fitSpace
-                    #verticalLayout: #center
-                    #horizontalSpace: 3
-                    #verticalSpace: 3
-                )
+                    #model: #accept
+                    #extent: #(#Point 118 22)
+                  )
+                 )
+               
               )
-          )
+            )
+           )
+         
+        )
       )
-
-    "Modified: / 7.9.1998 / 18:29:34 / cg"
 !
 
 windowSpec