--- a/SystemBrowser.st	Fri Oct 20 13:11:28 2000 +0200
+++ b/SystemBrowser.st	Tue Oct 24 13:15:35 2000 +0200
@@ -175,6 +175,21 @@
      d startDispatch.
      SystemBrowser openOnDevice:d
     "
+!
+
+openOnSnapShotImage:anImageFileName
+    |environment browser|
+
+    environment := SnapShotImage for:anImageFileName.
+    browser := self 
+                newWithLabel:(self classResources string:'Image Browser')
+                setupBlock:[:browser | browser environment:environment.
+                                       browser setupForAll]
+                onDevice:(Screen current).
+
+    "
+     SystemBrowser openOnSnapShotImage:('stmeas.img')
+    "
 ! !
 
 !SystemBrowser class methodsFor:'Compatibility - ST80'!
@@ -3166,6 +3181,6 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.117 2000-10-07 12:00:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.118 2000-10-24 11:15:35 cg Exp $'
 ! !
 SystemBrowser initialize!