ImageEditView.st
changeset 4203 a257aa6878ac
parent 4149 758a4573b5e4
child 4212 4b84444912b5
--- a/ImageEditView.st	Thu Apr 18 11:10:45 2013 +0200
+++ b/ImageEditView.st	Fri Apr 19 11:40:53 2013 +0200
@@ -1286,8 +1286,8 @@
     |answer anyColorMissing choosenBox imagePoint imgX imgY copiedImage imageBox newColorMap
      existingColors newColors allColors currentColorMap newColormap anyColorAdded oldColorMap|
 
-    Object errorSignal handle:[:ex|
-        ex signal == Image unrepresentableColorSignal ifFalse:[
+    Error handle:[:ex|
+        ex creator == Image unrepresentableColorSignal ifFalse:[
             ex reject
         ].
         self undo.
@@ -2412,10 +2412,10 @@
     fileName := fileNameArg asFilename.
     LastSaveDirectory := fileName directoryName.
 
-    Object errorSignal handle:[:ex|
+    Error handle:[:ex|
         |msg|
 
-        ex signal == Image fileCreationErrorSignal ifTrue:[
+        ex creator == Image fileCreationErrorSignal ifTrue:[
             msg := resources string:'Cannot create file: ''%1''' with:fileName asFilename pathName allBold
         ] ifFalse:[
             msg := ex errorString.
@@ -2777,11 +2777,12 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.251 2012-10-29 11:41:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.252 2013-04-19 09:40:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.251 2012-10-29 11:41:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.252 2013-04-19 09:40:53 cg Exp $'
 ! !
 
+
 ImageEditView initialize!