--- a/Launcher.st Thu Dec 07 11:18:13 1995 +0100
+++ b/Launcher.st Thu Dec 07 12:59:59 1995 +0100
@@ -301,43 +301,43 @@
moduleListUpdater := Plug new.
moduleListUpdater
- respondTo:#getModules
- with:[
- |l|
+ respondTo:#getModules
+ with:[
+ |l|
- l := Array new.
- (showModules value or:[showBuiltIn value]) ifTrue:[
- allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
- (showBuiltIn value and:[showModules value]) ifFalse:[
- allModules := allModules select:[:i |
- |wantToSee|
+ l := Array new.
+ (showModules value or:[showBuiltIn value]) ifTrue:[
+ allModules := ObjectMemory binaryModuleInfo asOrderedCollection.
+ (showBuiltIn value and:[showModules value]) ifFalse:[
+ allModules := allModules select:[:i |
+ |wantToSee|
- wantToSee := (i at:#dynamic).
- showBuiltIn value ifTrue:[
- wantToSee := wantToSee not
- ].
- wantToSee
- ]
- ].
- "/ sorting by reverse id brings newest ones to the top (a side effect)
- allModules sort:[:a :b | (a at:#id) > (b at:#id)].
- moduleNames := allModules collect:[:entry | (entry at:#name)].
- l := l , moduleNames.
- ].
- showMethods value ifTrue:[
- allObjects := ObjectFileLoader loadedObjectHandles.
- methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
- methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
- 'compiled method - removed' , ' (in ' , mH pathName , ')'
- ] ifFalse:[
- 'compiled method ' , mH method whoString , ' (in ' , mH pathName , ')'
- ].
- ].
- l := l , methodNames.
- ].
- list1 list:l.
- unloadButton disable.
- ].
+ wantToSee := (i at:#dynamic).
+ showBuiltIn value ifTrue:[
+ wantToSee := wantToSee not
+ ].
+ wantToSee
+ ]
+ ].
+ "/ sorting by reverse id brings newest ones to the top (a side effect)
+ allModules sort:[:a :b | (a at:#id) > (b at:#id)].
+ moduleNames := allModules collect:[:entry | (entry at:#name)].
+ l := l , moduleNames.
+ ].
+ showMethods value ifTrue:[
+ allObjects := ObjectFileLoader loadedObjectHandles.
+ methodObjects := (allObjects select:[:h | h isMethodHandle]) asArray.
+ methodNames := methodObjects collect:[:mH | mH method isNil ifTrue:[
+ 'compiled method - removed' , ' (in ' , mH pathName , ')'
+ ] ifFalse:[
+ 'compiled method ' , mH method whoString , ' (in ' , mH pathName , ')'
+ ].
+ ].
+ l := l , methodNames.
+ ].
+ list1 list:l.
+ unloadButton disable.
+ ].
list1 := SelectionInList new.
list2 := SelectionInList new.
@@ -353,56 +353,56 @@
listView1 model:list1.
listView1 origin:0.0@0.0 corner:1.0@0.4. "/ ; inset:2.
listView1 action:[:sel |
- |info classNames tabs|
+ |info classNames tabs|
- (showModules value or:[showBuiltIn value]) ifTrue:[
- info := allModules at:sel ifAbsent:nil.
- ].
- info isNil ifTrue:[
- "/ selected a method
- list2 list:#().
- unloadButton enable.
- ] ifFalse:[
- "/ selected a package
+ (showModules value or:[showBuiltIn value]) ifTrue:[
+ info := allModules at:sel ifAbsent:nil.
+ ].
+ info isNil ifTrue:[
+ "/ selected a method
+ list2 list:#().
+ unloadButton enable.
+ ] ifFalse:[
+ "/ selected a package
- tabs := TabulatorSpecification unit:#inch positions:#(0 3).
+ tabs := TabulatorSpecification unit:#inch positions:#(0 3).
- "/ fill bottom list with class-info
+ "/ fill bottom list with class-info
- classNames := (info at:#classNames) asSortedCollection.
- classNames := classNames collect:[:cName |
- |cls entry rev listEntry|
+ classNames := (info at:#classNames) asSortedCollection.
+ classNames := classNames collect:[:cName |
+ |cls entry rev listEntry|
- listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
- listEntry colAt:1 put:cName.
+ listEntry := MultiColListEntry new:2 tabulatorSpecification:tabs.
+ listEntry colAt:1 put:cName.
- cls := Smalltalk classNamed:cName.
- cls isNil ifTrue:[
- listEntry colAt:2 put:'(class removed)'.
- ] ifFalse:[
- rev := cls binaryRevision.
- rev notNil ifTrue:[
- entry :='(bin: ' , rev.
- cls revision ~= rev ifTrue:[
- entry := entry , ' / src: ' , cls revision
- ].
- listEntry colAt:2 put:entry , ')'
- ].
- ].
- listEntry
- ].
- list2 list:classNames.
- (info at:#dynamic) ifTrue:[
- unloadButton enable.
- ] ifFalse:[
- unloadButton disable.
- ].
- ]
+ cls := Smalltalk classNamed:cName.
+ cls isNil ifTrue:[
+ listEntry colAt:2 put:'(class removed)'.
+ ] ifFalse:[
+ rev := cls binaryRevision.
+ rev notNil ifTrue:[
+ entry :='(bin: ' , rev.
+ cls revision ~= rev ifTrue:[
+ entry := entry , ' / src: ' , cls revision
+ ].
+ listEntry colAt:2 put:entry , ')'
+ ].
+ ].
+ listEntry
+ ].
+ list2 list:classNames.
+ (info at:#dynamic) ifTrue:[
+ unloadButton enable.
+ ] ifFalse:[
+ unloadButton disable.
+ ].
+ ]
].
panel := HorizontalPanelView new.
- panel add:(l := Label label:'Objects:').
+ panel add:(l := Label label:'modules shown:').
l adjust:#left; borderWidth:0.
panel add:(CheckBox label:'builtin' model:showBuiltIn).
panel add:(check := CheckBox label:'modules' model:showModules).
@@ -432,27 +432,27 @@
unloadButton := Button label:(resources string:'unload').
unloadButton action:[
- self withWaitCursorDo:[
- box withWaitCursorDo:[
- |info idx pathName|
+ self withWaitCursorDo:[
+ box withWaitCursorDo:[
+ |info idx pathName|
- idx := list1 selectionIndex.
- info := allModules at:idx ifAbsent:nil.
+ idx := list1 selectionIndex.
+ info := allModules at:idx ifAbsent:nil.
- info isNil ifTrue:[
- "/ selected a method
- idx := idx - allModules size.
- pathName := (methodObjects at:idx) pathName.
+ info isNil ifTrue:[
+ "/ selected a method
+ idx := idx - allModules size.
+ pathName := (methodObjects at:idx) pathName.
- ] ifFalse:[
- "/ selected a package
- pathName := (info at:#pathName).
- ].
- ObjectFileLoader unloadObjectFile:pathName.
- moduleListUpdater getModules.
- unloadButton disable.
- ]
- ]
+ ] ifFalse:[
+ "/ selected a package
+ pathName := (info at:#pathName).
+ ].
+ ObjectFileLoader unloadObjectFile:pathName.
+ moduleListUpdater getModules.
+ unloadButton disable.
+ ]
+ ]
].
moduleListUpdater getModules.
@@ -464,13 +464,13 @@
listView2 bottomInset:(box preferredExtent y - y).
box width:(350 min:(box device width * 2 // 3));
- height:(450 min:(box device height - 50));
- sizeFixed:true.
+ height:(450 min:(box device height - 50));
+ sizeFixed:true.
box showAtPointer.
box destroy.
"Modified: 17.9.1995 / 16:47:50 / claus"
- "Modified: 7.12.1995 / 11:04:22 / cg"
+ "Modified: 7.12.1995 / 12:59:24 / cg"
!
snapshot
@@ -1925,5 +1925,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.62 1995-12-07 10:18:13 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.63 1995-12-07 11:59:59 cg Exp $'
! !