ImageEditView.st
changeset 4212 4b84444912b5
parent 4203 a257aa6878ac
child 4231 6aec2775cc1e
--- a/ImageEditView.st	Thu Apr 25 15:12:17 2013 +0200
+++ b/ImageEditView.st	Sat Apr 27 14:26:58 2013 +0200
@@ -588,7 +588,7 @@
     image isNil ifTrue:[^self].
 
     magnification = (1@1) ifTrue: [
-        Object errorSignal handle:[:ex |
+        Error handle:[:ex |
             Transcript showCR:'cannot convert image: ', ex description.
         ] do:[
             devImage := image onDevice:device.
@@ -2030,7 +2030,7 @@
 rotateImageBy:rotation
     "rotate by (degrees)"
 
-    Object errorSignal handle:[:ex|
+    Error handle:[:ex|
         self warn: 'Image rotation failed!!\' withCRs, 'Increasing the image depth could help.'
     ] do:[   
         self makeUndo.
@@ -2044,7 +2044,7 @@
 threeDProjection:dx1 and:dx2
     "3D projection"
 
-    Object errorSignal handle:[:ex|
+    Error handle:[:ex|
         self warn: 'Image projection failed!!\' withCRs, 'Increasing the image depth could help.'
     ] do:[   
         self makeUndo.
@@ -2357,7 +2357,7 @@
 
     aFileName isNil ifTrue: [^nil].
 
-    Object errorSignal handle:[:exeption|
+    Error handle:[:exeption|
         self warn: exeption errorString.
         ^nil
     ] do:[ 
@@ -2777,11 +2777,11 @@
 !ImageEditView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.252 2013-04-19 09:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.253 2013-04-27 12:26:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.252 2013-04-19 09:40:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageEditView.st,v 1.253 2013-04-27 12:26:58 cg Exp $'
 ! !