doUngropManual -> default, border 1
authortm
Tue, 15 Apr 2003 09:51:10 +0200
changeset 1704 3e0e31541f2e
parent 1703 7cf51b5b6ac5
child 1705 121213b3d4c9
doUngropManual -> default, border 1
ImageEditor.st
--- a/ImageEditor.st	Wed Apr 09 12:48:51 2003 +0200
+++ b/ImageEditor.st	Tue Apr 15 09:51:10 2003 +0200
@@ -4336,10 +4336,10 @@
     |bindings left top right bottom img|
 
     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).
     (self openDialogInterface:#ungropDialogSpec withBindings:bindings)
     ifTrue:[
         left := left value.