--- 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 $'
! !