--- a/SystemStatusMonitor.st Thu Sep 24 12:07:31 1998 +0200
+++ b/SystemStatusMonitor.st Thu Sep 24 12:08:08 1998 +0200
@@ -82,7 +82,7 @@
<resource: #keyboard ( #InspectIt ) >
key == #InspectIt ifTrue:[
- ^ self inspectSelection.
+ ^ self inspectSelection.
].
^ super keyPress:key x:x y:y
@@ -105,7 +105,7 @@
listView menuHolder:self; menuPerformer:self; menuMessage:#statusMenu.
listView multipleSelectOk:true.
- listView toggleSelect:true.
+ "/ listView toggleSelect:true.
listView delegate:(KeyboardForwarder toView:self).
listView doubleClickAction:[:line | self doubleClicked].
@@ -115,8 +115,8 @@
"/ event mode is no longer used;
"/ this event support may vanish
Processor isPureEventDriven ifTrue:[
- updateBlock := [self updateStatus].
- listUpdateBlock := [self updateList].
+ updateBlock := [self updateStatus].
+ listUpdateBlock := [self updateList].
].
"
@@ -153,23 +153,23 @@
startUpdateProcess
updateBlock notNil ifTrue:[
- Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
- Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
+ Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
+ Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
] ifFalse:[
- updateProcess := [
- [
- |id cnt myDelay|
+ updateProcess := [
+ [
+ |id cnt myDelay|
- myDelay := Delay forSeconds:0.5.
+ myDelay := Delay forSeconds:0.5.
- "
- every 20ms, we look which process runs;
- every half second, the status is updated.
- every 5 seconds, the list of processes is
- built up again
- "
- [true] whileTrue:[
- 1 to:9 do:[:i |
+ "
+ every 20ms, we look which process runs;
+ every half second, the status is updated.
+ every 5 seconds, the list of processes is
+ built up again
+ "
+ [true] whileTrue:[
+ 1 to:9 do:[:i |
"/ cpuUsages := IdentityDictionary new.
"/ 1 to:25 do:[:i |
"/ (Delay forSeconds:0.02) wait.
@@ -177,23 +177,23 @@
"/ cnt := cpuUsages at:id ifAbsent:[0].
"/ cpuUsages at:id put:cnt + 1.
"/ ].
- myDelay wait.
- self updateStatus.
- ].
- myDelay wait.
- self updateList.
- ]
- ] valueOnUnwindDo:[
- updateProcess := nil
- ]
- ] forkAt:(Processor userSchedulingPriority + 1).
- updateProcess name:'monitor [' ,
- Processor activeProcess id printString ,
- '] update'.
- "
- raise my own priority
- "
- Processor activeProcess priority:(Processor userSchedulingPriority + 2)
+ myDelay wait.
+ self updateStatus.
+ ].
+ myDelay wait.
+ self updateList.
+ ]
+ ] valueOnUnwindDo:[
+ updateProcess := nil
+ ]
+ ] forkAt:(Processor userSchedulingPriority + 1).
+ updateProcess name:'monitor [' ,
+ Processor activeProcess id printString ,
+ '] update'.
+ "
+ raise my own priority
+ "
+ Processor activeProcess priority:(Processor userSchedulingPriority + 2)
].
"Created: 23.1.1997 / 02:30:58 / cg"
@@ -214,5 +214,5 @@
!SystemStatusMonitor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.7 1998-08-10 14:03:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.8 1998-09-24 10:08:08 cg Exp $'
! !