.
--- a/FBrowser.st Thu Sep 28 21:27:16 1995 +0100
+++ b/FBrowser.st Mon Oct 23 21:08:26 1995 +0100
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.52 1995-09-21 12:26:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.53 1995-10-23 20:08:11 cg Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.52 1995-09-21 12:26:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.53 1995-10-23 20:08:11 cg Exp $
"
!
@@ -2161,7 +2161,24 @@
or:[(fileName endsWith:'.so')
or:[fileName endsWith:'.obj']]) ifTrue:[
Object abortSignal catch:[
- ObjectFileLoader loadObjectFile:(here , '/' ,fileName)
+ |p|
+
+ p := (here , '/' ,fileName).
+ "/
+ "/ look if already loaded ... then unload first
+ "/
+ (ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
+ (Dialog confirm:(resources
+ string:'%1 is already loaded; load anyway ?'
+ with:p)) ifFalse:[
+ ^ self
+ ].
+ Transcript showCr:'unloading old ' , p , ' ...'.
+ ObjectFileLoader unloadObjectFile:p.
+ ].
+
+ Transcript showCr:'loading ' , p , ' ...'.
+ ObjectFileLoader loadObjectFile:p
]
] ifFalse:[
aStream := FileStream readonlyFileNamed:fileName in:currentDirectory.
--- a/FileBrowser.st Thu Sep 28 21:27:16 1995 +0100
+++ b/FileBrowser.st Mon Oct 23 21:08:26 1995 +0100
@@ -28,7 +28,7 @@
COPYRIGHT (c) 1991 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.52 1995-09-21 12:26:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.53 1995-10-23 20:08:11 cg Exp $
'!
!FileBrowser class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.52 1995-09-21 12:26:30 claus Exp $
+$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.53 1995-10-23 20:08:11 cg Exp $
"
!
@@ -2161,7 +2161,24 @@
or:[(fileName endsWith:'.so')
or:[fileName endsWith:'.obj']]) ifTrue:[
Object abortSignal catch:[
- ObjectFileLoader loadObjectFile:(here , '/' ,fileName)
+ |p|
+
+ p := (here , '/' ,fileName).
+ "/
+ "/ look if already loaded ... then unload first
+ "/
+ (ObjectFileLoader loadedObjectFiles includes:p) ifTrue:[
+ (Dialog confirm:(resources
+ string:'%1 is already loaded; load anyway ?'
+ with:p)) ifFalse:[
+ ^ self
+ ].
+ Transcript showCr:'unloading old ' , p , ' ...'.
+ ObjectFileLoader unloadObjectFile:p.
+ ].
+
+ Transcript showCr:'loading ' , p , ' ...'.
+ ObjectFileLoader loadObjectFile:p
]
] ifFalse:[
aStream := FileStream readonlyFileNamed:fileName in:currentDirectory.
--- a/Launcher.st Thu Sep 28 21:27:16 1995 +0100
+++ b/Launcher.st Mon Oct 23 21:08:26 1995 +0100
@@ -37,7 +37,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.41 1995-09-21 12:26:43 claus Exp $
+$Header: /cvs/stx/stx/libtool/Launcher.st,v 1.42 1995-10-23 20:08:18 cg Exp $
"
!
@@ -131,9 +131,9 @@
image photometric:#blackIs0.
].
image colorMap:(Array with:dark with:green).
- Display depth > 2 ifTrue:[
- image := (Image implementorForDepth:Display depth) fromImage:image.
- ]
+"/ Display depth > 2 ifTrue:[
+"/ image := (Image implementorForDepth:Display depth) fromImage:image.
+"/ ]
].
CachedAboutIcon := image.
^ image
@@ -142,6 +142,8 @@
CachedAboutIcon := nil.
NewLauncher aboutIcon
"
+
+ "Modified: 20.10.1995 / 21:54:58 / cg"
! !
!NewLauncher methodsFor:'queries'!
@@ -1312,7 +1314,7 @@
"
XtHTML isLoaded ifFalse:[
(OperatingSystem getSystemType = 'iris') ifTrue:[
- XtHTML autoload
+ ErrorSignal catch:[XtHTML autoload]
]
].
XtHTML isLoaded ifTrue:[
@@ -1549,11 +1551,11 @@
allObjects methodObjects methodNames
box registered l unloadButton
moduleList list1 list2 listView1 listView2 frame infoView
- y panel showBuiltIn showModules showMethods moduleListUpdater|
+ y panel showBuiltIn showModules showMethods moduleListUpdater check|
showBuiltIn := true asValue.
- showModules := true asValue.
- showMethods := true asValue.
+ showModules := ObjectFileLoader notNil asValue.
+ showMethods := ObjectFileLoader notNil asValue.
moduleListUpdater := Plug new.
moduleListUpdater
@@ -1655,8 +1657,11 @@
panel add:(l := Label label:'Objects:').
l adjust:#left; borderWidth:0.
panel add:(CheckBox label:'builtin' model:showBuiltIn).
- panel add:(CheckBox label:'modules' model:showModules).
- panel add:(CheckBox label:'methods' model:showMethods).
+ panel add:(check := CheckBox label:'modules' model:showModules).
+ ObjectFileLoader isNil ifTrue:[check disable].
+ panel add:(check := CheckBox label:'methods' model:showMethods).
+ ObjectFileLoader isNil ifTrue:[check disable].
+
panel horizontalLayout:#fitSpace.
box addComponent:panel tabable:true.
--- a/Make.proto Thu Sep 28 21:27:16 1995 +0100
+++ b/Make.proto Mon Oct 23 21:08:26 1995 +0100
@@ -48,16 +48,9 @@
clean::
-rm -f [A-Z]*.o *.c *.H classList.stc abbrev.stc
- -rm SBrowser_1.st SBrowser_2.st
clobber::
-rm -f *.c *.H classList.stc abbrev.stc
- -rm SBrowser_1.st SBrowser_2.st
-
-SPLIT: SBrowser_1.st SBrowser_2.st
-
-CLEAN:
- @-rm SBrowser_1.st SBrowser_2.st
AIX:
$(MAKE) OPT= BrwsrView.o
@@ -98,34 +91,6 @@
#
# next thing I'll build into stc is a makedepend feature for this ...
#
-I=$(INCLUDE)
-OBJECT=$(I)/Object.H $(I)/stc.h $(I)/stcIntern.h $(CPUINTERN_H)
-VIEW=$(I)/View.H $(I)/SimpleView.H $(OBJECT)
-STDSYSVIEW=$(I)/StdSysV.H $(I)/TopView.H $(VIEW)
-INFOBOX=$(I)/InfoBox.H $(I)/DialogBox.H $(I)/ModalBox.H $(STDSYSVIEW)
-
-MODEL=$(I)/Model.H $(OBJECT)
-APPMODEL=$(I)/AppModel.H $(MODEL)
-
-InspView.$(O): InspView.st $(VIEW)
-DictInspV.$(O): DictInspV.st $(I)/InspView.H $(VIEW)
-ConInspV.$(O): ConInspV.st $(I)/InspView.H $(VIEW)
-OCInspView.$(O): OCInspView.st $(I)/InspView.H $(VIEW)
-
-DebugView.$(O): DebugView.st $(STDSYSVIEW)
-Launcher.$(O): Launcher.st $(STDSYSVIEW)
-NewLauncher.$(O): NewLauncher.st $(APPMODEL)
-ProjectV.$(O): ProjectV.st $(STDSYSVIEW)
-SBrowser.$(O): SBrowser.st $(APPMODEL)
-BrwsrView.$(O): BrwsrView.st $(STDSYSVIEW)
-CBrowser.$(O): CBrowser.st $(STDSYSVIEW)
-FBrowser.$(O): FBrowser.st $(STDSYSVIEW)
-DirBrwsr.$(O): DirBrwsr.st $(STDSYSVIEW)
-
-SBrowser_1.$(O): SBrowser_1.st $(STDSYSVIEW)
-SBrowser_2.$(O): SBrowser_2.st $(STDSYSVIEW)
-
-AboutBox.$(O): AboutBox.st $(INFOBOX)
# BEGINMAKEDEPEND --- do not remove this line; make depend needs it
AboutBox.o: AboutBox.st $(STCHDR) ../include/InfoBox.H ../include/DialogBox.H ../include/ModalBox.H ../include/StdSysV.H ../include/TopView.H ../include/View.H ../include/SimpleView.H ../include/PseudoV.H ../include/DevDraw.H ../include/DMedium.H ../include/GC.H ../include/Object.H
--- a/ProcMonitor.st Thu Sep 28 21:27:16 1995 +0100
+++ b/ProcMonitor.st Mon Oct 23 21:08:26 1995 +0100
@@ -14,8 +14,8 @@
SimpleView subclass:#ProcessMonitor
instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
- listUpdateBlock updateProcess hideDead runColor suspendedColor
- waitColor cpuUsages showDetail'
+ listUpdateBlock updateProcess hideDead runColor suspendedColor
+ waitColor cpuUsages showDetail'
classVariableNames:''
poolDictionaries:''
category:'Interface-Tools'
@@ -39,7 +39,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.22 1995-09-28 20:27:16 cg Exp $
+$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.23 1995-10-23 20:08:21 cg Exp $
"
!
@@ -165,146 +165,148 @@
|oldList list line dIndex con interrupted plist|
shown ifTrue:[
- oldList := listView list.
- processes notNil ifTrue:[
- list := OrderedCollection new.
- list add:self titleLine.
- list add:(String new:self titleLine size withAll:$-).
+ oldList := listView list.
+ processes notNil ifTrue:[
+ list := OrderedCollection new.
+ list add:self titleLine.
+ list add:(String new:self titleLine size withAll:$-).
- interrupted := Processor interruptedProcess.
+ interrupted := Processor interruptedProcess.
- dIndex := 1.
- 1 to:processes size do:[:index |
- |aProcess nm st c c0 n found|
+ dIndex := 1.
+ 1 to:processes size do:[:index |
+ |aProcess nm st c c0 n found|
- aProcess := processes at:index.
- aProcess notNil ifTrue:[
- (aProcess id notNil or:[hideDead not]) ifTrue:[
- line := aProcess id printStringPaddedTo:5.
- (nm := aProcess name) isNil ifFalse:[
- nm := nm printString
- ] ifTrue:[
- nm := ' '
- ].
- nm size >= 29 ifTrue:[
- nm := (nm contractTo:28) , ' '
- ] ifFalse:[
- nm := (nm printStringPaddedTo:29).
- ].
- line := line , nm.
+ aProcess := processes at:index.
+ aProcess notNil ifTrue:[
+ (aProcess id notNil or:[hideDead not]) ifTrue:[
+ line := aProcess id printStringPaddedTo:5.
+ (nm := aProcess name) isNil ifFalse:[
+ nm := nm printString
+ ] ifTrue:[
+ nm := ' '
+ ].
+ nm size >= 29 ifTrue:[
+ nm := (nm contractTo:28) , ' '
+ ] ifFalse:[
+ nm := (nm printStringPaddedTo:29).
+ ].
+ line := line , nm.
"/ n := cpuUsages at:(aProcess id) ifAbsent:[0].
"/ n ~~ 0 ifTrue:[
"/ line := line , ((n * 4) printStringLeftPaddedTo:3)
"/ ] ifFalse:[
"/ line := line , ' '
"/ ].
- st := aProcess state.
- (st == #run
- and:[aProcess == interrupted]) ifTrue:[
- c := ' *'.
- ] ifFalse:[
- c := ' '.
- ].
- line := line , c , (st printStringPaddedTo:9).
- line := line , (aProcess priority printStringLeftPaddedTo:3).
- line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
+ st := aProcess state.
+ (st == #run
+ and:[aProcess == interrupted]) ifTrue:[
+ c := ' *'.
+ ] ifFalse:[
+ c := ' '.
+ ].
+ line := line , c , (st printStringPaddedTo:9).
+ line := line , (aProcess priority printStringLeftPaddedTo:3).
+ line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
- n := aProcess numberOfStackSegments.
- n == 0 ifTrue:[
- con := nil
- ] ifFalse:[
- con := aProcess suspendedContext.
- con isNil ifTrue:[
- aProcess == Processor activeProcess ifTrue:[
- con := thisContext
- ]
- ]
- ].
- showDetail ifTrue:[
- line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
- line := line , '(' , n printString , ')'.
- con notNil ifTrue:[
- line := line , ' '.
- line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
- line := line , ' .. '.
- c := con.
- [c sender notNil] whileTrue:[
- c := c sender
- ].
- line := line , ((ObjectMemory addressOf:c) printStringRadix:16).
- ] ifFalse:[
- line := line , (String new:20)
- ].
- line := line , ' '.
- line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
- ].
+ n := aProcess numberOfStackSegments.
+ n == 0 ifTrue:[
+ con := nil
+ ] ifFalse:[
+ con := aProcess suspendedContext.
+ con isNil ifTrue:[
+ aProcess == Processor activeProcess ifTrue:[
+ con := thisContext
+ ]
+ ]
+ ].
+ showDetail ifTrue:[
+ line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
+ line := line , '(' , n printString , ')'.
+ con notNil ifTrue:[
+ line := line , ' '.
+ line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
+ line := line , ' .. '.
+ c := con.
+ [c sender notNil] whileTrue:[
+ c := c sender
+ ].
+ line := line , ((ObjectMemory addressOf:c) printStringRadix:16).
+ ] ifFalse:[
+ line := line , (String new:20)
+ ].
+ line := line , ' '.
+ line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
+ ].
- con notNil ifTrue:[
- "/ search for a semaphore-wait in the top 10 contexts
- found := false.
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver isMemberOf:Semaphore) ifTrue:[
- c selector == #wait ifTrue:[
- found := true.
- ]
- ].
- c := c sender.
- ]
- ]
- ].
- found ifFalse:[
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver ~~ Processor) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
- ]
- ]
- ]
- ].
- found ifFalse:[
- c := con
- ].
- [c isBlockContext] whileTrue:[
- c := c home
- ].
- n := c receiver class name , '>>' , c selector.
- line := line , ' ' , n
- ].
- list add:line.
- processes at:dIndex put:aProcess.
- dIndex := dIndex + 1
- ]
- ].
- ].
- dIndex to:processes size do:[:index |
- processes at:index put:nil
- ]
- ].
- "avoid flicker"
- (oldList notNil and:[oldList size == list size]) ifTrue:[
- list keysAndValuesDo:[:idx :entry |
- (oldList at:idx) ~= entry ifTrue:[
- listView at:idx put:entry
- ]
- ]
- ] ifFalse:[
- listView setList:list.
- "the first two entries cannot be selected"
- listView attributeAt:1 put:#disabled.
- listView attributeAt:2 put:#disabled.
- ]
+ con notNil ifTrue:[
+ "/ search for a semaphore-wait in the top 10 contexts
+ found := false.
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver isMemberOf:Semaphore) ifTrue:[
+ c selector == #wait ifTrue:[
+ found := true.
+ ]
+ ].
+ c := c sender.
+ ]
+ ]
+ ].
+ found ifFalse:[
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver ~~ Processor) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
+ ]
+ ]
+ ]
+ ]
+ ].
+ found ifFalse:[
+ c := con
+ ].
+ [c notNil and:[c isBlockContext]] whileTrue:[
+ c := c home
+ ].
+ c notNil ifTrue:[
+ n := c receiver class name , '>>' , c selector.
+ line := line , ' ' , n
+ ]
+ ].
+ list add:line.
+ processes at:dIndex put:aProcess.
+ dIndex := dIndex + 1
+ ]
+ ].
+ ].
+ dIndex to:processes size do:[:index |
+ processes at:index put:nil
+ ]
+ ].
+ "avoid flicker"
+ (oldList notNil and:[oldList size == list size]) ifTrue:[
+ list keysAndValuesDo:[:idx :entry |
+ (oldList at:idx) ~= entry ifTrue:[
+ listView at:idx put:entry
+ ]
+ ]
+ ] ifFalse:[
+ listView setList:list.
+ "the first two entries cannot be selected"
+ listView attributeAt:1 put:#disabled.
+ listView attributeAt:2 put:#disabled.
+ ]
].
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:updateBlock.
- Processor addTimedBlock:updateBlock afterSeconds:updateDelay
+ Processor removeTimedBlock:updateBlock.
+ Processor addTimedBlock:updateBlock afterSeconds:updateDelay
]
!
@@ -599,4 +601,3 @@
preferredExtent
^ (font widthOf:self titleLine) + 40 @ 100
! !
-
--- a/ProcessMonitor.st Thu Sep 28 21:27:16 1995 +0100
+++ b/ProcessMonitor.st Mon Oct 23 21:08:26 1995 +0100
@@ -14,8 +14,8 @@
SimpleView subclass:#ProcessMonitor
instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
- listUpdateBlock updateProcess hideDead runColor suspendedColor
- waitColor cpuUsages showDetail'
+ listUpdateBlock updateProcess hideDead runColor suspendedColor
+ waitColor cpuUsages showDetail'
classVariableNames:''
poolDictionaries:''
category:'Interface-Tools'
@@ -39,7 +39,7 @@
version
"
-$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.22 1995-09-28 20:27:16 cg Exp $
+$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.23 1995-10-23 20:08:21 cg Exp $
"
!
@@ -165,146 +165,148 @@
|oldList list line dIndex con interrupted plist|
shown ifTrue:[
- oldList := listView list.
- processes notNil ifTrue:[
- list := OrderedCollection new.
- list add:self titleLine.
- list add:(String new:self titleLine size withAll:$-).
+ oldList := listView list.
+ processes notNil ifTrue:[
+ list := OrderedCollection new.
+ list add:self titleLine.
+ list add:(String new:self titleLine size withAll:$-).
- interrupted := Processor interruptedProcess.
+ interrupted := Processor interruptedProcess.
- dIndex := 1.
- 1 to:processes size do:[:index |
- |aProcess nm st c c0 n found|
+ dIndex := 1.
+ 1 to:processes size do:[:index |
+ |aProcess nm st c c0 n found|
- aProcess := processes at:index.
- aProcess notNil ifTrue:[
- (aProcess id notNil or:[hideDead not]) ifTrue:[
- line := aProcess id printStringPaddedTo:5.
- (nm := aProcess name) isNil ifFalse:[
- nm := nm printString
- ] ifTrue:[
- nm := ' '
- ].
- nm size >= 29 ifTrue:[
- nm := (nm contractTo:28) , ' '
- ] ifFalse:[
- nm := (nm printStringPaddedTo:29).
- ].
- line := line , nm.
+ aProcess := processes at:index.
+ aProcess notNil ifTrue:[
+ (aProcess id notNil or:[hideDead not]) ifTrue:[
+ line := aProcess id printStringPaddedTo:5.
+ (nm := aProcess name) isNil ifFalse:[
+ nm := nm printString
+ ] ifTrue:[
+ nm := ' '
+ ].
+ nm size >= 29 ifTrue:[
+ nm := (nm contractTo:28) , ' '
+ ] ifFalse:[
+ nm := (nm printStringPaddedTo:29).
+ ].
+ line := line , nm.
"/ n := cpuUsages at:(aProcess id) ifAbsent:[0].
"/ n ~~ 0 ifTrue:[
"/ line := line , ((n * 4) printStringLeftPaddedTo:3)
"/ ] ifFalse:[
"/ line := line , ' '
"/ ].
- st := aProcess state.
- (st == #run
- and:[aProcess == interrupted]) ifTrue:[
- c := ' *'.
- ] ifFalse:[
- c := ' '.
- ].
- line := line , c , (st printStringPaddedTo:9).
- line := line , (aProcess priority printStringLeftPaddedTo:3).
- line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
+ st := aProcess state.
+ (st == #run
+ and:[aProcess == interrupted]) ifTrue:[
+ c := ' *'.
+ ] ifFalse:[
+ c := ' '.
+ ].
+ line := line , c , (st printStringPaddedTo:9).
+ line := line , (aProcess priority printStringLeftPaddedTo:3).
+ line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
- n := aProcess numberOfStackSegments.
- n == 0 ifTrue:[
- con := nil
- ] ifFalse:[
- con := aProcess suspendedContext.
- con isNil ifTrue:[
- aProcess == Processor activeProcess ifTrue:[
- con := thisContext
- ]
- ]
- ].
- showDetail ifTrue:[
- line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
- line := line , '(' , n printString , ')'.
- con notNil ifTrue:[
- line := line , ' '.
- line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
- line := line , ' .. '.
- c := con.
- [c sender notNil] whileTrue:[
- c := c sender
- ].
- line := line , ((ObjectMemory addressOf:c) printStringRadix:16).
- ] ifFalse:[
- line := line , (String new:20)
- ].
- line := line , ' '.
- line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
- ].
+ n := aProcess numberOfStackSegments.
+ n == 0 ifTrue:[
+ con := nil
+ ] ifFalse:[
+ con := aProcess suspendedContext.
+ con isNil ifTrue:[
+ aProcess == Processor activeProcess ifTrue:[
+ con := thisContext
+ ]
+ ]
+ ].
+ showDetail ifTrue:[
+ line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
+ line := line , '(' , n printString , ')'.
+ con notNil ifTrue:[
+ line := line , ' '.
+ line := line , ((ObjectMemory addressOf:con) printStringRadix:16).
+ line := line , ' .. '.
+ c := con.
+ [c sender notNil] whileTrue:[
+ c := c sender
+ ].
+ line := line , ((ObjectMemory addressOf:c) printStringRadix:16).
+ ] ifFalse:[
+ line := line , (String new:20)
+ ].
+ line := line , ' '.
+ line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
+ ].
- con notNil ifTrue:[
- "/ search for a semaphore-wait in the top 10 contexts
- found := false.
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver isMemberOf:Semaphore) ifTrue:[
- c selector == #wait ifTrue:[
- found := true.
- ]
- ].
- c := c sender.
- ]
- ]
- ].
- found ifFalse:[
- c := con.
- 1 to:10 do:[:n |
- found ifFalse:[
- c notNil ifTrue:[
- (c receiver ~~ Processor) ifTrue:[
- found := true.
- ] ifFalse:[
- c := c sender.
- ]
- ]
- ]
- ]
- ].
- found ifFalse:[
- c := con
- ].
- [c isBlockContext] whileTrue:[
- c := c home
- ].
- n := c receiver class name , '>>' , c selector.
- line := line , ' ' , n
- ].
- list add:line.
- processes at:dIndex put:aProcess.
- dIndex := dIndex + 1
- ]
- ].
- ].
- dIndex to:processes size do:[:index |
- processes at:index put:nil
- ]
- ].
- "avoid flicker"
- (oldList notNil and:[oldList size == list size]) ifTrue:[
- list keysAndValuesDo:[:idx :entry |
- (oldList at:idx) ~= entry ifTrue:[
- listView at:idx put:entry
- ]
- ]
- ] ifFalse:[
- listView setList:list.
- "the first two entries cannot be selected"
- listView attributeAt:1 put:#disabled.
- listView attributeAt:2 put:#disabled.
- ]
+ con notNil ifTrue:[
+ "/ search for a semaphore-wait in the top 10 contexts
+ found := false.
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver isMemberOf:Semaphore) ifTrue:[
+ c selector == #wait ifTrue:[
+ found := true.
+ ]
+ ].
+ c := c sender.
+ ]
+ ]
+ ].
+ found ifFalse:[
+ c := con.
+ 1 to:10 do:[:n |
+ found ifFalse:[
+ c notNil ifTrue:[
+ (c receiver ~~ Processor) ifTrue:[
+ found := true.
+ ] ifFalse:[
+ c := c sender.
+ ]
+ ]
+ ]
+ ]
+ ].
+ found ifFalse:[
+ c := con
+ ].
+ [c notNil and:[c isBlockContext]] whileTrue:[
+ c := c home
+ ].
+ c notNil ifTrue:[
+ n := c receiver class name , '>>' , c selector.
+ line := line , ' ' , n
+ ]
+ ].
+ list add:line.
+ processes at:dIndex put:aProcess.
+ dIndex := dIndex + 1
+ ]
+ ].
+ ].
+ dIndex to:processes size do:[:index |
+ processes at:index put:nil
+ ]
+ ].
+ "avoid flicker"
+ (oldList notNil and:[oldList size == list size]) ifTrue:[
+ list keysAndValuesDo:[:idx :entry |
+ (oldList at:idx) ~= entry ifTrue:[
+ listView at:idx put:entry
+ ]
+ ]
+ ] ifFalse:[
+ listView setList:list.
+ "the first two entries cannot be selected"
+ listView attributeAt:1 put:#disabled.
+ listView attributeAt:2 put:#disabled.
+ ]
].
updateBlock notNil ifTrue:[
- Processor removeTimedBlock:updateBlock.
- Processor addTimedBlock:updateBlock afterSeconds:updateDelay
+ Processor removeTimedBlock:updateBlock.
+ Processor addTimedBlock:updateBlock afterSeconds:updateDelay
]
!
@@ -599,4 +601,3 @@
preferredExtent
^ (font widthOf:self titleLine) + 40 @ 100
! !
-