--- a/ImageEditor.st Thu Jul 25 11:49:10 2019 +0200
+++ b/ImageEditor.st Sat Jul 27 12:07:17 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1997-1998 by eXept Software AG
All Rights Reserved
@@ -5811,8 +5809,8 @@
resourceSelector notNil ifTrue:[
^ resources
string:(self modified
- ifTrue:['ImageEditor (modified): %1 » %2']
- ifFalse:['ImageEditor: %1 » %2'])
+ ifTrue:['ImageEditor (modified): %1 » %2']
+ ifFalse:['ImageEditor: %1 » %2'])
with:resourceClass name
with:resourceSelector
].
@@ -5845,8 +5843,8 @@
resourceSelector notNil ifTrue:[
^ resources
string:(self modified
- ifTrue:['Image (modified) from: %1 » %2']
- ifFalse:['Image from: %1 » %2'])
+ ifTrue:['Image (modified) from: %1 » %2']
+ ifFalse:['Image from: %1 » %2'])
with:resourceClass name
with:resourceSelector
].
@@ -6673,7 +6671,9 @@
[
|hShift lFactor sFactor|
- acceptChannel value:true.
+ "/ commented, because this leads to a recursion error
+ "/ (holders accept - send shiftAction again - ...)
+ "/ acceptChannel value:true.
firstChange ifTrue:[
imageEditView makeUndo.
@@ -6732,13 +6732,15 @@
bindings at:#resetHueShift put:[hueShiftHolder value:0].
bindings at:#resetLightFactor put:[lightFactorHolder value:1.0].
bindings at:#resetSaturationFactor put:[saturationFactorHolder value:1.0].
-
+
+ [
(self openDialogInterface:#changeHLSDialogSpec withBindings:bindings)
ifFalse:[
anyChange ifTrue:[
imageEditView undo
]
].
+ ] ensure:[self halt].
(p := shiftProcess) notNil ifTrue:[
p waitUntilTerminated.