hg/stx-libtool: SystemStatusMonitor.st@65689c6d5bd6 (annotated)

981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	1	SimpleView subclass:#SystemStatusMonitor
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	2	instanceVariableNames:'listView listUpdateDelay updateDelay updateBlock listUpdateBlock
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	3	updateProcess'
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	4	classVariableNames:''
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	5	poolDictionaries:''
1053 9b1b15ef1e34 category change Claus Gittinger <cg@exept.de> parents: 1052 diff changeset	6	category:'Monitors-ST/X'
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	7	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	8
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	9
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	10	!SystemStatusMonitor class methodsFor:'defaults'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	11
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	12	defaultIcon
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	13	^ StandardSystemView defaultIcon
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	14
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	15	"Created: 23.1.1997 / 02:52:25 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	16	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	17
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	18	defaultLabel
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	19	^ 'Status Monitor'
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	20
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	21	"Created: 23.1.1997 / 02:52:43 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	22	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	23
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	24	!SystemStatusMonitor class methodsFor:'startup'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	25
1823 6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	26	isVisualStartable
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	27	^ self ~~ SystemStatusMonitor
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	28
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	29	"Created: / 10.8.1998 / 16:02:23 / cg"
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	30	"Modified: / 10.8.1998 / 16:02:41 / cg"
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	31	!
6ebeee55f0c4 * empty log message * Claus Gittinger <cg@exept.de> parents: 1806 diff changeset	32
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	33	open
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	34	\|top monitor\|
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	35
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	36	top := StandardSystemView new.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	37	monitor := self origin:0.0@0.0 corner:1.0@1.0 in:top.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	38	top extent:monitor preferredExtent.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	39	top label:self defaultLabel.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	40	top icon:self defaultIcon.
2410 292d61292ac8 Reurn the monitor in #open. Stefan Vogel <sv@exept.de> parents: 1897 diff changeset	41	top open.
292d61292ac8 Reurn the monitor in #open. Stefan Vogel <sv@exept.de> parents: 1897 diff changeset	42
292d61292ac8 Reurn the monitor in #open. Stefan Vogel <sv@exept.de> parents: 1897 diff changeset	43	^ monitor
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	44
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	45	"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	46	ProcessMonitor open
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	47	"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	48
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	49	"Created: 23.1.1997 / 02:53:42 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	50	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	51
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	52	!SystemStatusMonitor methodsFor:'destroying'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	53
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	54	destroy
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	55	updateBlock notNil ifTrue:[
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	56	Processor removeTimedBlock:updateBlock.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	57	Processor removeTimedBlock:listUpdateBlock.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	58	] ifFalse:[
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	59	updateProcess notNil ifTrue:[updateProcess terminate]
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	60	].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	61	super destroy
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	62
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	63	"Created: 23.1.1997 / 02:26:50 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	64	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	65
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	66	!SystemStatusMonitor methodsFor:'drawing'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	67
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	68	updateView
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	69	self updateList.
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	70	self updateStatus:nil
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	71
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	72	"Created: / 23.1.1997 / 02:27:05 / cg"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	73	"Modified: / 14.12.1999 / 20:47:37 / cg"
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	74	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	75
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	76	!SystemStatusMonitor methodsFor:'events'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	77
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	78	canHandle:key
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	79	^ key == #InspectIt
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	80
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	81	"Created: 23.1.1997 / 02:27:15 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	82	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	83
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	84	keyPress:key x:x y:y
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	85	<resource: #keyboard ( #InspectIt ) >
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	86
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	87	key == #InspectIt ifTrue:[
1897 76292e485360 disabled toggleSelect Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	88	^ self inspectSelection.
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	89	].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	90	^ super keyPress:key x:x y:y
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	91
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	92	"Modified: 23.1.1997 / 02:27:27 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	93	"Created: 23.1.1997 / 02:27:45 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	94	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	95
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	96	!SystemStatusMonitor methodsFor:'initialization'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	97
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	98	initialize
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	99	\|v\|
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	100
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	101	super initialize.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	102
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	103	v := HVScrollableView for:SelectionInListView miniScrollerH:true in:self.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	104	v origin:0.0@0.0 corner:1.0@1.0.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	105
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	106	listView := v scrolledView.
1273 3a8a91e6c5fa give my listView a fixed font. Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	107	listView font:(EditTextView defaultFont).
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	108	listView menuHolder:self; menuPerformer:self; menuMessage:#statusMenu.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	109
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	110	listView multipleSelectOk:true.
1897 76292e485360 disabled toggleSelect Claus Gittinger <cg@exept.de> parents: 1823 diff changeset	111	"/ listView toggleSelect:true.
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	112	listView delegate:(KeyboardForwarder toView:self).
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	113	listView doubleClickAction:[:line \| self doubleClicked].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	114
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	115	updateDelay := 0.5.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	116	listUpdateDelay := 5.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	117
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	118	"/ event mode is no longer used;
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	119	"/ this event support may vanish
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	120	Processor isPureEventDriven ifTrue:[
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	121	updateBlock := [self updateStatus:nil].
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	122	listUpdateBlock := [self updateList].
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	123	].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	124
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	125	"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	126	ProcessMonitor open
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	127	"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	128
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	129	"Modified: / 14.12.1999 / 20:47:57 / cg"
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	130	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	131
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	132	mapped
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	133	super mapped.
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	134	self updateStatus:nil.
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	135	self updateList.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	136
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	137	"Created: / 23.1.1997 / 02:30:05 / cg"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	138	"Modified: / 14.12.1999 / 20:47:54 / cg"
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	139	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	140
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	141	realize
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	142	super realize.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	143
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	144	self startUpdateProcess.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	145
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	146	"Created: 23.1.1997 / 02:30:28 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	147	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	148
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	149	reinitialize
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	150	updateProcess := nil.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	151	super reinitialize.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	152	self startUpdateProcess.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	153
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	154	"Modified: 22.12.1995 / 22:51:14 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	155	"Created: 23.1.1997 / 02:30:43 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	156	!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	157
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	158	startUpdateProcess
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	159	updateBlock notNil ifTrue:[
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	160	Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	161	Processor addTimedBlock:listUpdateBlock afterSeconds:listUpdateDelay.
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	162	] ifFalse:[
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	163	updateProcess := [
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	164	[
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	165	\|id cnt myDelay\|
992 311227ea4edb reuse delays Claus Gittinger <cg@exept.de> parents: 981 diff changeset	166
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	167	myDelay := Delay forSeconds:0.5.
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	168
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	169	"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	170	every 20ms, we look which process runs;
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	171	every half second, the status is updated.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	172	every 5 seconds, the list of processes is
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	173	built up again
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	174	"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	175	[true] whileTrue:[
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	176	1 to:9 do:[:i \|
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	177	"/ cpuUsages := IdentityDictionary new.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	178	"/ 1 to:25 do:[:i \|
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	179	"/ (Delay forSeconds:0.02) wait.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	180	"/ id := Processor interruptedProcess id.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	181	"/ cnt := cpuUsages at:id ifAbsent:[0].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	182	"/ cpuUsages at:id put:cnt + 1.
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	183	"/ ].
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	184	myDelay wait.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	185	self updateStatus:nil.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	186	].
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	187	myDelay wait.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	188	self updateList.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	189	]
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	190	] valueOnUnwindDo:[
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	191	updateProcess := nil
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	192	]
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	193	] forkAt:(Processor userSchedulingPriority + 1).
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	194	updateProcess name:'monitor [' ,
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	195	Processor activeProcess id printString ,
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	196	'] update'.
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	197	"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	198	raise my own priority
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	199	"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	200	Processor activeProcess priority:(Processor userSchedulingPriority + 2)
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	201	].
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	202
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	203	"Created: / 23.1.1997 / 02:30:58 / cg"
65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	204	"Modified: / 14.12.1999 / 20:47:50 / cg"
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	205	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	206
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	207	!SystemStatusMonitor methodsFor:'queries'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	208
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	209	preferredExtent
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	210	"return my preferred extent"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	211
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	212	^ (font widthOf:self titleLine) + 40 @ 100
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	213
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	214	"Modified: 23.1.1997 / 02:35:01 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	215	"Created: 23.1.1997 / 02:51:24 / cg"
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	216	! !
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	217
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	218	!SystemStatusMonitor class methodsFor:'documentation'!
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	219
82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	220	version
2488 65689c6d5bd6 changes to avoid loosing the selection when the list is updated Claus Gittinger <cg@exept.de> parents: 2410 diff changeset	221	^ '$Header: /cvs/stx/stx/libtool/SystemStatusMonitor.st,v 1.10 1999-12-14 20:15:32 cg Exp $'
981 82fa38667915 renamed Claus Gittinger <cg@exept.de> parents: diff changeset	222	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 14 Dec 1999 21:15:32 +0100
changeset 2488	65689c6d5bd6
parent 2410	292d61292ac8
child 2699	dcb83b594b14
permissions	-rw-r--r--