InspectorView.st
changeset 9615 6fc22155a4f6
parent 9574 d2a1b8074d35
child 9624 defa4a2d2a10
equal deleted inserted replaced
9614:1f2c844d482a 9615:6fc22155a4f6
  1168 
  1168 
  1169 openFileBrowser
  1169 openFileBrowser
  1170     |fn|
  1170     |fn|
  1171 
  1171 
  1172     fn := self selection.
  1172     fn := self selection.
       
  1173     fn isNil ifTrue:[ fn := inspectedObject ].
  1173     fn isStream ifTrue:[
  1174     fn isStream ifTrue:[
  1174         fn := fn pathName asFilename
  1175         fn := fn pathName asFilename
  1175     ].
  1176     ].
  1176     (UserPreferences current fileBrowserClass) openOnFileNamed:fn.
  1177     (UserPreferences current fileBrowserClass) openOnFileNamed:fn.
       
  1178 
       
  1179     "Modified: / 28-10-2010 / 12:49:50 / cg"
  1177 !
  1180 !
  1178 
  1181 
  1179 openWidgetHierarchy
  1182 openWidgetHierarchy
  1180     |view|
  1183     |view|
  1181 
  1184 
  2386 ! !
  2389 ! !
  2387 
  2390 
  2388 !InspectorView class methodsFor:'documentation'!
  2391 !InspectorView class methodsFor:'documentation'!
  2389 
  2392 
  2390 version
  2393 version
  2391     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.216 2010-10-07 12:34:43 cg Exp $'
  2394     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.217 2010-10-28 12:26:09 cg Exp $'
  2392 !
  2395 !
  2393 
  2396 
  2394 version_CVS
  2397 version_CVS
  2395     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.216 2010-10-07 12:34:43 cg Exp $'
  2398     ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.217 2010-10-28 12:26:09 cg Exp $'
  2396 ! !
  2399 ! !