--- a/Launcher.st Thu Dec 07 19:57:59 1995 +0100
+++ b/Launcher.st Thu Dec 07 20:09:20 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,51 +353,51 @@
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 2.6).
- "/ 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.
@@ -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 / 12:59:24 / cg"
+ "Modified: 7.12.1995 / 20:08:09 / cg"
!
snapshot
@@ -960,15 +960,15 @@
box addCheckBox:(resources string:'lazy compilation when autoloading') on:compileLazy.
check := box addCheckBox:(resources string:'if present, load binary objects when autoloading') on:loadBinaries.
ObjectFileLoader isNil ifTrue:[
- loadBinaries value:false.
- check disable
+ loadBinaries value:false.
+ check disable
].
- check := box addCheckBox:(resources string:'enable sourcecode management') on:useManager.
+ check := box addCheckBox:(resources string:'sourcecode from sourcecode management') on:useManager.
(AbstractSourceCodeManager isNil
or:[AbstractSourceCodeManager defaultManager isNil]) ifTrue:[
- useManager value:false.
- check disable
+ useManager value:false.
+ check disable
].
box addHorizontalLine.
@@ -986,22 +986,24 @@
"/ update system settings
"/
box accepted ifTrue:[
- Smalltalk logDoits:logDoits value.
- PopUpView shadows:shadows value.
- Class updateChanges:updChanges value.
- Autoload compileLazy:compileLazy value.
- Smalltalk loadBinaries:loadBinaries value.
- StandardSystemView includeHostNameInLabel:hostNameInLabel value.
- ObjectMemory nameForChanges:changeFileName value.
- useManager value ifTrue:[
- (Smalltalk at:#SourceCodeManager) isNil ifTrue:[
- Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager)
- ]
- ]
+ Smalltalk logDoits:logDoits value.
+ PopUpView shadows:shadows value.
+ Class updateChanges:updChanges value.
+ Autoload compileLazy:compileLazy value.
+ Smalltalk loadBinaries:loadBinaries value.
+ StandardSystemView includeHostNameInLabel:hostNameInLabel value.
+ ObjectMemory nameForChanges:changeFileName value.
+ useManager value ifTrue:[
+ (Smalltalk at:#SourceCodeManager) isNil ifTrue:[
+ Smalltalk at:#SourceCodeManager put:(AbstractSourceCodeManager defaultManager)
+ ]
+ ] ifFalse:[
+ Smalltalk at:#SourceCodeManager put:nil
+ ]
].
box destroy
- "Modified: 7.12.1995 / 17:21:44 / cg"
+ "Modified: 7.12.1995 / 20:05:23 / cg"
!
viewStyleSetting
@@ -1951,5 +1953,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.64 1995-12-07 18:57:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.65 1995-12-07 19:09:20 cg Exp $'
! !