--- 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