# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1486996241 -3600
# Node ID 9f2865200e2f8a9c2af1e8ce0a904a8b69254144
# Parent  3cd67963333da353d41d60af94c8d5e680dfc01d
#UI_ENHANCEMENT by cg
class: ImageEditor
changed:
	#cropDialogSpec
	#doCropManual
	#doUnCropManual
	#uncropDialogSpec

diff -r 3cd67963333d -r 9f2865200e2f ImageEditor.st
--- a/ImageEditor.st	Mon Feb 13 14:49:52 2017 +0100
+++ b/ImageEditor.st	Mon Feb 13 15:30:41 2017 +0100
@@ -1625,7 +1625,7 @@
              layout: (LayoutFrame 95 0 24 0 132 0 46 0)
              activeHelpKey: gropLeft
              tabable: true
-             model: left
+             model: gropLeftAmount
              type: number
              acceptChannel: acceptChannel
              acceptOnPointerLeave: false
@@ -1655,7 +1655,7 @@
              layout: (LayoutFrame 95 0 55 0 132 0 77 0)
              activeHelpKey: gropRight
              tabable: true
-             model: right
+             model: gropRightAmount
              type: number
              acceptChannel: acceptChannel
              acceptOnPointerLeave: false
@@ -1685,7 +1685,7 @@
              layout: (LayoutFrame 95 0 85 0 132 0 107 0)
              activeHelpKey: gropTop
              tabable: true
-             model: top
+             model: gropTopAmount
              type: number
              acceptChannel: acceptChannel
              acceptOnPointerLeave: false
@@ -1715,7 +1715,7 @@
              layout: (LayoutFrame 95 0 115 0 132 0 137 0)
              activeHelpKey: gropBottom
              tabable: true
-             model: bottom
+             model: gropBottomAmount
              type: number
              acceptChannel: acceptChannel
              acceptOnPointerLeave: false
@@ -1782,6 +1782,8 @@
         
        )
      )
+
+    "Modified: / 13-02-2017 / 14:52:25 / cg"
 !
 
 dialogSpecForNewImage
@@ -2039,7 +2041,7 @@
            (InputFieldSpec
               name: 'EntryField1'
               layout: (LayoutFrame 95 0 21 0 132 0 43 0)
-              model: left
+              model: gropLeftAmount
               type: number
               acceptOnPointerLeave: false
             )
@@ -2053,7 +2055,7 @@
            (InputFieldSpec
               name: 'EntryField2'
               layout: (LayoutFrame 95 0 51 0 132 0 73 0)
-              model: right
+              model: gropRightAmount
               type: number
               acceptOnPointerLeave: false
             )
@@ -2067,7 +2069,7 @@
            (InputFieldSpec
               name: 'EntryField3'
               layout: (LayoutFrame 95 0 81 0 132 0 103 0)
-              model: top
+              model: gropTopAmount
               type: number
               acceptOnPointerLeave: false
             )
@@ -2081,7 +2083,7 @@
            (InputFieldSpec
               name: 'EntryField4'
               layout: (LayoutFrame 95 0 111 0 132 0 133 0)
-              model: bottom
+              model: gropBottomAmount
               type: number
               acceptOnPointerLeave: false
             )
@@ -2118,6 +2120,8 @@
          
         )
       )
+
+    "Modified: / 13-02-2017 / 14:53:08 / cg"
 !
 
 windowSpec
@@ -6841,10 +6845,10 @@
         ].
 
     bindings := IdentityDictionary new.
-    bindings at:#left put:(left := 1 asValue).
-    bindings at:#right put:(right := 1 asValue).
-    bindings at:#top put:(top := 1 asValue).
-    bindings at:#bottom put:(bottom := 1 asValue).
+    bindings at:#gropLeftAmount put:(left := 1 asValue).
+    bindings at:#gropRightAmount put:(right := 1 asValue).
+    bindings at:#gropTop put:(top := 1 asValue).
+    bindings at:#gropBottomAmount put:(bottom := 1 asValue).
     bindings at:#acceptChannel put:acceptChannel.
 
     bindings at:#gropLeftNow   put:[ gropAction value:left value:0 value:0 value:0 ].
@@ -6862,8 +6866,8 @@
         ]
     ].
 
-    "Created: / 7.9.1998 / 18:16:07 / cg"
-    "Modified: / 7.9.1998 / 18:20:42 / cg"
+    "Created: / 07-09-1998 / 18:16:07 / cg"
+    "Modified: / 13-02-2017 / 14:51:10 / cg"
 !
 
 doCropRight
@@ -7171,10 +7175,10 @@
     |bindings left top right bottom img|
 
     bindings := IdentityDictionary new.
-    bindings at:#left put:(left := 1 asValue).
-    bindings at:#right put:(right := 1 asValue).
-    bindings at:#top put:(top := 1 asValue).
-    bindings at:#bottom put:(bottom := 1 asValue).
+    bindings at:#gropLeftAmount put:(left := 1 asValue).
+    bindings at:#gropRightAmount put:(right := 1 asValue).
+    bindings at:#gropTopAmount put:(top := 1 asValue).
+    bindings at:#gropBottomAmount put:(bottom := 1 asValue).
     (self openDialogInterface:#uncropDialogSpec withBindings:bindings)
     ifTrue:[
         left := left value.
@@ -7190,8 +7194,8 @@
         self updateInfoLabel
     ].
 
-    "Created: / 7.9.1998 / 18:16:07 / cg"
-    "Modified: / 7.9.1998 / 18:20:42 / cg"
+    "Created: / 07-09-1998 / 18:16:07 / cg"
+    "Modified: / 13-02-2017 / 14:51:35 / cg"
 !
 
 doUndo