--- a/AbstractFileBrowser.st	Tue May 03 15:48:51 2005 +0200
+++ b/AbstractFileBrowser.st	Wed May 04 10:23:25 2005 +0200
@@ -5066,8 +5066,7 @@
     self notify:nil.
 !
 
-loadImageAndPerform:aSelectorOrBlock
-
+loadImageThenDo:aBlock
     |img path files|
 
     files := self currentSelectedFiles.
@@ -5077,13 +5076,9 @@
         path isDirectory ifFalse:[
             img := Image fromFile:(path pathName).
             img notNil ifTrue:[
-                aSelectorOrBlock isSymbol ifTrue:[
-                    img perform:aSelectorOrBlock
-                ] ifFalse:[
-                    aSelectorOrBlock value:img
-                ]
+                aBlock value:img
             ] ifFalse:[
-                Dialog warn:'unknown format: ' , fileName asString
+                Dialog warn:'Unknown format: ' , fileName asString
             ]
         ]
     ].
@@ -5264,19 +5259,21 @@
 !
 
 openImageEditor
-
-    [self loadImageAndPerform:#edit] fork
+    [
+        self loadImageThenDo:[:img | img edit]
+    ] fork
 !
 
 openImageInspector
-    [self loadImageAndPerform:#inspect] fork
+    [
+        self loadImageThenDo:[:img | img inspect]
+    ] fork
 !
 
 openImagePreview
-
     [
         self 
-            loadImageAndPerform:
+            loadImageThenDo:
                 [:img |
                     |i top viewer|
 
@@ -6717,5 +6714,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.291 2005-04-27 10:21:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.292 2005-05-04 08:23:25 cg Exp $'
 ! !