changed: #openFileBrowser
authorClaus Gittinger <cg@exept.de>
Thu, 28 Oct 2010 14:26:09 +0200
changeset 9615 6fc22155a4f6
parent 9614 1f2c844d482a
child 9616 77c1a65b95d4
changed: #openFileBrowser
InspectorView.st
--- a/InspectorView.st	Wed Oct 27 13:37:01 2010 +0200
+++ b/InspectorView.st	Thu Oct 28 14:26:09 2010 +0200
@@ -1170,10 +1170,13 @@
     |fn|
 
     fn := self selection.
+    fn isNil ifTrue:[ fn := inspectedObject ].
     fn isStream ifTrue:[
         fn := fn pathName asFilename
     ].
     (UserPreferences current fileBrowserClass) openOnFileNamed:fn.
+
+    "Modified: / 28-10-2010 / 12:49:50 / cg"
 !
 
 openWidgetHierarchy
@@ -2388,9 +2391,9 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.216 2010-10-07 12:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.217 2010-10-28 12:26:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.216 2010-10-07 12:34:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.217 2010-10-28 12:26:09 cg Exp $'
 ! !