hg/stx-libtool: comparison ProcessMonitor.st

equal deleted inserted replaced

-:c9a1de4e627a
+:3a625e4aa73f
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Tools'
 !
-!ProcessMonitor class methodsFor:'documentation'!
+!ProcessMonitor  class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 	usedStack  - the current stack use
 	totalStack - the stack currently allocated (i.e. the maximum ever needed)
 "
 ! !
-!ProcessMonitor class methodsFor:'defaults'!
+!ProcessMonitor  class methodsFor:'defaults'!
 defaultIcon
 |i|
 i := Image fromFile:'ProcMon.xbm'.
 defaultLabel
 ^ 'Process Monitor'
 ! !
-!ProcessMonitor class methodsFor:'startup'!
+!ProcessMonitor  class methodsFor:'startup'!
 open
 |top monitor|
 top := StandardSystemView new.
 !ProcessMonitor methodsFor:'drawing'!
 titleLine
 showDetail ifTrue:[
-^ 'id   name                           state    prio   usedStack  totalStack   current-segment   switches   where'.
+^ 'id   name                           state    prio usedStack    totalStack   current-segment    switches  where'.
 ].
-^ 'id   name                           state    prio   usedStack  where'.
+^ 'id   name                           state    prio usedStack  where'.
+"Modified: 3.7.1996 / 13:57:38 / stefan"
 !
 updateList
 "update list of processes"
 showDetail ifTrue:[
 newList := Process allInstances asOrderedCollection.
 ] ifFalse:[
 newList := ProcessorScheduler knownProcesses asOrderedCollection.
 ].
-newList := newList  select:[:p | p id notNil].
 "sort by id - take care of nil ids of dead processes"
 newList sort:[:p1 :p2 |
 |id1 id2|
 ].
 updateBlock notNil ifTrue:[
 Processor removeTimedBlock:listUpdateBlock.
 Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay
 ].
+"Modified: 3.7.1996 / 13:37:29 / stefan"
 !
 updateStatus
 "update status display of processes"
-|oldList list line dIndex con interrupted plist
+|oldList list line dIndex interrupted
-aProcess nm st c c0 n found sender running sel|
+aProcess nm st n found running sel space|
+space := Character space.
 shown ifTrue:[
 oldList := listView list.
 processes notNil ifTrue:[
-list := OrderedCollection new.
+list := OrderedCollection new:(processes size + 2).
 list add:self titleLine.
 list add:(String new:self titleLine size withAll:$-).
 interrupted := Processor interruptedProcess.
 dIndex := 1.
 1 to:processes size do:[:index |
-|totalStack|
+|con c totalStack sender|
 aProcess := processes at:index.
 aProcess notNil ifTrue:[
 (aProcess id notNil or:[hideDead not]) ifTrue:[
-line := aProcess id printStringPaddedTo:5.
+line := WriteStream on:(String new:200).
+aProcess id printOn:line paddedTo:5.
 (nm := aProcess name) isNil ifFalse:[
-nm := nm printString
+nm := nm printStringPaddedTo:28.
+nm size >= 29 ifTrue:[
+nm := (nm contractTo:28).
+].
+line nextPutAll:nm; nextPut:space.
 ] ifTrue:[
-nm := ' '
+line next:29 put:space.
 ].
-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 , '   '
 running := true.
 ] ifFalse:[
 c := '  '.
 running := false.
 ].
-line := line , c , (st printStringPaddedTo:9).
+line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
-line := line , (aProcess priority printStringLeftPaddedTo:3).
+line nextPutAll:(aProcess priority printStringLeftPaddedTo:3).
-line := line , (aProcess usedStackSize printStringLeftPaddedTo:11).
+line nextPutAll:(aProcess usedStackSize printStringLeftPaddedTo:11).
-n := aProcess numberOfStackSegments.
+con := aProcess suspendedContext.
-true "showDetail" ifTrue:[
+con isNil ifTrue:[
-con := aProcess suspendedContext.
+aProcess == Processor activeProcess ifTrue:[
-con isNil ifTrue:[
+con := thisContext
-aProcess == Processor activeProcess ifTrue:[
+]
-con := thisContext
-]
-].
 ].
 showDetail ifTrue:[
 aProcess id == 0 ifTrue:[
-line := line , ('unlimited' leftPaddedTo:13).
+line nextPutAll:('unlimited' leftPaddedTo:13).
 ] ifFalse:[
-line := line , (aProcess totalStackSize printStringLeftPaddedTo:10).
+n := aProcess numberOfStackSegments.
-line := line , '(' , n printString , ')'.
+line nextPutAll:(aProcess totalStackSize printStringLeftPaddedTo:10).
+line nextPut:$( ; nextPutAll:n printString; nextPut:$).
 ].
 con notNil ifTrue:[
-line := line , '    '.
+line nextPutAll:'    '.
-line := line , (((ObjectMemory addressOf:con) printStringRadix:16) leftPaddedTo:8 with:$0).
+line nextPutAll:(((ObjectMemory addressOf:con) printStringRadix:16) leftPaddedTo:8 with:$0).
-line := line , ' .. '.
+line nextPutAll:' .. '.
 c := con.
 [(sender := c sender) notNil] whileTrue:[
 c := sender
 ].
-line := line , (((ObjectMemory addressOf:c) printStringRadix:16) leftPaddedTo:8 with:$0).
+line nextPutAll:(((ObjectMemory addressOf:c) printStringRadix:16) leftPaddedTo:8 with:$0).
 ] ifFalse:[
-line := line , (String new:20)
+line next:20 put:space.
 ].
-line := line , ' '.
+line nextPut:space.
-line := line , (aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:5).
+line nextPutAll:(aProcess numberOfStackBoundaryHits printStringLeftPaddedTo:6).
 ].
 con notNil ifTrue:[
 c := con.
 found := false.
 c notNil ifTrue:[
 sel := c selector.
 sel isNil ifTrue:[
 sel := '* unknown *'
 ].
-n := c receiver class name , '>>' , sel.
+line nextPutAll:'  '.
-line := line , '   ' , n
+line nextPutAll:c receiver class name.
+line nextPutAll:'>>'; nextPutAll:sel.
 ]
 ].
-list add:line.
+list add:line contents.
 processes at:dIndex put:aProcess.
 dIndex := dIndex + 1
 ]
 ].
 ].
 Processor removeTimedBlock:updateBlock.
 Processor addTimedBlock:updateBlock afterSeconds:updateDelay
 ]
 "Modified: 27.4.1996 / 14:17:15 / cg"
+"Modified: 3.7.1996 / 13:56:01 / stefan"
 !
 updateView
 self updateList.
 self updateStatus
 preferredExtent
 ^ (font widthOf:self titleLine) + 40 @ 100
 ! !
-!ProcessMonitor class methodsFor:'documentation'!
+!ProcessMonitor  class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.36 1996-06-12 18:28:14 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.37 1996-07-03 12:59:46 stefan Exp $'! !

changeset 656	3a625e4aa73f
parent 619	62db60834422
child 663	befe6a1d886f