AbstractLauncherApplication.st
branchjv
changeset 13170 c9b815af5777
parent 12807 ba8c5416aa28
parent 12842 eb2192e0fb0d
child 13173 e9da2324940d
equal deleted inserted replaced
12819:0ce340e972c4 13170:c9b815af5777
  2322 !
  2322 !
  2323 
  2323 
  2324 startWindowTreeViewForAll
  2324 startWindowTreeViewForAll
  2325     "open a windowTree on all views in the system"
  2325     "open a windowTree on all views in the system"
  2326 
  2326 
  2327     |v|
       
  2328 
       
  2329     WindowTreeView isNil ifTrue:[
  2327     WindowTreeView isNil ifTrue:[
  2330         ^ self warn:'The WindowTreeView is not available in this release.'
  2328         ^ self warn:'The WindowTreeView is not available in this release.'
  2331     ].
  2329     ].
  2332 
  2330 
  2333     WindowTreeView openOnAll
  2331     WindowTreeView openOnAll
  2334 
       
  2335 !
  2332 !
  2336 
  2333 
  2337 viewBrowse
  2334 viewBrowse
  2338     "let user pick a view and browse its Application class. Only smalltalk views are allowed"
  2335     "let user pick a view and browse its Application class. Only smalltalk views are allowed"
  2339 
  2336 
  5472                 handles := handles , cObjects.
  5469                 handles := handles , cObjects.
  5473             ].
  5470             ].
  5474 
  5471 
  5475             showOthers value ifTrue:[
  5472             showOthers value ifTrue:[
  5476                 allObjects := ObjectFileLoader loadedObjectHandles.
  5473                 allObjects := ObjectFileLoader loadedObjectHandles.
  5477                 otherObjects := (allObjects select:[:h | (h isFunctionObjectHandle
  5474                 otherObjects := (allObjects reject:[:h | (h isFunctionObjectHandle
  5478                                                          or:[h isMethodHandle
  5475                                                          or:[h isMethodHandle
  5479                                                          or:[h isClassLibHandle]]) not]) asArray.
  5476                                                          or:[h isClassLibHandle]])]) asArray.
  5480                 otherObjectNames := otherObjects collect:[:entry | entry pathName].
  5477                 otherObjectNames := otherObjects collect:[:entry | entry pathName].
  5481                 l := l , otherObjectNames.
  5478                 l := l , otherObjectNames.
  5482                 handles := handles , otherObjects.
  5479                 handles := handles , otherObjects.
  5483             ].
  5480             ].
  5484 
  5481 
  7020 ! !
  7017 ! !
  7021 
  7018 
  7022 !AbstractLauncherApplication class methodsFor:'documentation'!
  7019 !AbstractLauncherApplication class methodsFor:'documentation'!
  7023 
  7020 
  7024 version
  7021 version
  7025     ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $'
  7022     ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.431 2013-06-05 13:22:08 stefan Exp $'
  7026 !
  7023 !
  7027 
  7024 
  7028 version_CVS
  7025 version_CVS
  7029     ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $'
  7026     ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.431 2013-06-05 13:22:08 stefan Exp $'
  7030 !
  7027 !
  7031 
  7028 
  7032 version_HG
  7029 version_HG
  7033 
  7030 
  7034     ^ '$Changeset: <not expanded> $'
  7031     ^ '$Changeset: <not expanded> $'
  7035 !
  7032 !
  7036 
  7033 
  7037 version_SVN
  7034 version_SVN
  7038     ^ '$Id: AbstractLauncherApplication.st,v 1.429 2013-05-14 10:27:57 cg Exp $'
  7035     ^ '$Id: AbstractLauncherApplication.st,v 1.431 2013-06-05 13:22:08 stefan Exp $'
  7039 ! !
  7036 ! !
  7040 
  7037