--- a/ImageView.st	Fri Mar 22 13:58:49 2013 +0100
+++ b/ImageView.st	Sun Mar 24 12:02:29 2013 +0100
@@ -106,7 +106,23 @@
 
 !ImageView class methodsFor:'startup'!
 
-openOn:aFileName
+openOn:anImageOrFileName
+    "startup an image viewer on an image read from a file"
+
+    anImageOrFileName isImage ifTrue:[
+        ^ self openOnImage:anImageOrFileName
+    ].
+    ^ self openOnFile:anImageOrFileName
+
+    "
+     ImageView openOn:'bitmaps/gifImages/garfield.gif'
+     ImageView openOn:'bitmaps/xpmBitmaps/misc_icons/BOOK.xpm'
+    "
+
+    "Modified: / 31.10.1997 / 16:17:52 / cg"
+!
+
+openOnFile:aFileName
     "startup an image viewer on an image read from a file"
 
     |fn imageView img e|
@@ -124,9 +140,7 @@
         ^ nil
     ].
     imageView := self openOnImage:img.
-
     imageView topView label:(fn pathName) iconLabel:(fn baseName).
-
     ^ imageView
 
     "
@@ -632,11 +646,12 @@
 !ImageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.77 2012-05-06 10:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.78 2013-03-24 11:02:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.77 2012-05-06 10:23:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.78 2013-03-24 11:02:29 cg Exp $'
 ! !
 
+
 ImageView initialize!