--- a/Launcher.st Thu Dec 07 17:03:22 1995 +0100
+++ b/Launcher.st Thu Dec 07 19:57: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,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 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.
@@ -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,8 +464,8 @@
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.
@@ -924,25 +924,32 @@
miscSettings
|box check logDoits shadows updChanges changeFileName
- loadBinaries compileLazy hostNameInLabel y component|
+ loadBinaries compileLazy hostNameInLabel useManager y component|
+ "/
+ "/ extract relevant system settings ...
+ "/
logDoits := Smalltalk logDoits asValue.
shadows := PopUpView shadows asValue.
hostNameInLabel := StandardSystemView includeHostNameInLabel asValue.
updChanges := Class updatingChanges asValue.
changeFileName := ObjectMemory nameForChanges asValue.
+ useManager := (Smalltalk at:#SourceCodeManager) notNil asValue.
loadBinaries := Smalltalk loadBinaries asValue.
compileLazy := Autoload compileLazy asValue.
+ "/
+ "/ create a box on those values ...
+ "/
box := DialogBox new.
box label:(resources string:'Other settings').
-"/ box extent:200@300.
box addCheckBox:(resources string:'log compiles in changes file') on:updChanges.
box addCheckBox:(resources string:'log doIts in changes file') on:logDoits.
+
y := box yPosition.
- component := box addTextLabel:(resources string:'change file:').
+ component := box addTextLabel:(resources string:'change file name:').
component width:0.5; adjust:#right; borderWidth:0.
box yPosition:y.
component := box addInputFieldOn:changeFileName tabable:true.
@@ -956,14 +963,28 @@
loadBinaries value:false.
check disable
].
+
+ check := box addCheckBox:(resources string:'enable sourcecode management') on:useManager.
+ (AbstractSourceCodeManager isNil
+ or:[AbstractSourceCodeManager defaultManager isNil]) ifTrue:[
+ useManager value:false.
+ check disable
+ ].
box addHorizontalLine.
box addCheckBox:(resources string:'shadows under popup views') on:shadows.
box addCheckBox:(resources string:'hostname in window labels') on:hostNameInLabel.
box addAbortButton; addOkButton.
+
+ "/
+ "/ show the box ...
+ "/
box showAtPointer.
+ "/
+ "/ update system settings
+ "/
box accepted ifTrue:[
Smalltalk logDoits:logDoits value.
PopUpView shadows:shadows value.
@@ -972,10 +993,15 @@
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)
+ ]
+ ]
].
box destroy
- "Modified: 4.12.1995 / 01:10:49 / cg"
+ "Modified: 7.12.1995 / 17:21:44 / cg"
!
viewStyleSetting
@@ -1925,5 +1951,5 @@
!NewLauncher class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.63 1995-12-07 11:59:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.64 1995-12-07 18:57:59 cg Exp $'
! !