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