diff -r 6525741c998e -r e65674cad5e5 ImageEditor.st
--- a/ImageEditor.st	Wed Oct 17 18:09:16 2001 +0200
+++ b/ImageEditor.st	Thu Oct 18 18:50:46 2001 +0200
@@ -522,6 +522,7 @@
            #(#InputFieldSpec
               #name: 'GropLeftEntryField'
               #layout: #(#LayoutFrame 95 0 21 0 132 0 43 0)
+              #tabable: true
               #model: #left
               #type: #number
               #acceptChannel: #acceptChannel
@@ -532,6 +533,7 @@
               #name: 'GropLeftNowButton'
               #layout: #(#LayoutFrame 148 0 21 0 221 0 43 0)
               #translateLabel: true
+              #tabable: true
               #model: #gropLeftNow
             )
            #(#LabelSpec
@@ -544,6 +546,7 @@
            #(#InputFieldSpec
               #name: 'GropRightEntryField'
               #layout: #(#LayoutFrame 95 0 51 0 132 0 73 0)
+              #tabable: true
               #model: #right
               #type: #number
               #acceptChannel: #acceptChannel
@@ -554,6 +557,7 @@
               #name: 'GropRightButton'
               #layout: #(#LayoutFrame 148 0 51 0 221 0 73 0)
               #translateLabel: true
+              #tabable: true
               #model: #gropRightNow
             )
            #(#LabelSpec
@@ -566,6 +570,7 @@
            #(#InputFieldSpec
               #name: 'GropTopEntryField'
               #layout: #(#LayoutFrame 95 0 81 0 132 0 103 0)
+              #tabable: true
               #model: #top
               #type: #number
               #acceptChannel: #acceptChannel
@@ -576,6 +581,7 @@
               #name: 'GropTopButton'
               #layout: #(#LayoutFrame 148 0 81 0 221 0 103 0)
               #translateLabel: true
+              #tabable: true
               #model: #gropTopNow
             )
            #(#LabelSpec
@@ -588,6 +594,7 @@
            #(#InputFieldSpec
               #name: 'GropBottomEntryField'
               #layout: #(#LayoutFrame 95 0 111 0 132 0 133 0)
+              #tabable: true
               #model: #bottom
               #type: #number
               #acceptChannel: #acceptChannel
@@ -598,6 +605,7 @@
               #name: 'GropBottomButton'
               #layout: #(#LayoutFrame 148 0 111 0 221 0 133 0)
               #translateLabel: true
+              #tabable: true
               #model: #gropBottomNow
             )
            #(#HorizontalPanelViewSpec
@@ -615,6 +623,7 @@
                     #label: 'Cancel'
                     #name: 'Button1'
                     #translateLabel: true
+                    #tabable: true
                     #model: #cancel
                     #extent: #(#Point 77 22)
                   )
@@ -622,6 +631,7 @@
                     #label: 'Apply'
                     #name: 'Button3'
                     #translateLabel: true
+                    #tabable: true
                     #model: #applyAction
                     #extent: #(#Point 78 22)
                   )
@@ -629,6 +639,7 @@
                     #label: 'OK'
                     #name: 'Button2'
                     #translateLabel: true
+                    #tabable: true
                     #model: #accept
                     #extent: #(#Point 78 22)
                   )
@@ -2770,7 +2781,7 @@
 !
 
 makeSelectedColorDarker
-    |depth img cMap clr newColorMap newImage oldCListSize newMode|
+    |depth img cMap clr newImage|
 
     img := self image.
     cMap := img colorMap.
@@ -3025,10 +3036,10 @@
         ].
 
     bindings := IdentityDictionary new.
-    bindings at:#left put:(left := 0 asValue).
-    bindings at:#right put:(right := 0 asValue).
-    bindings at:#top put:(top := 0 asValue).
-    bindings at:#bottom put:(bottom := 0 asValue).
+    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:#acceptChannel put:acceptChannel.
 
     bindings at:#gropLeftNow   put:[ gropAction value:left value:0 value:0 value:0 ].
@@ -3039,7 +3050,11 @@
     bindings at:#applyAction   put:[ gropAction value:left value:right value:top value:bottom ].
 
     (self openDialogInterface:#gropDialogSpec withBindings:bindings) 
-        ifFalse:[ imageEditView undo ].
+    ifFalse:[ 
+        firstChange ~~ true ifTrue:[
+          imageEditView undo
+        ]
+    ].
 
     "Created: / 7.9.1998 / 18:16:07 / cg"
     "Modified: / 7.9.1998 / 18:20:42 / cg"