Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
create a new updateProcess when restarted
authorClaus Gittinger <cg@exept.de>
Fri, 22 Dec 1995 22:53:46 +0100
changeset 315 8a86faf847d1
parent 314 728eab568865
child 316 7d529dfe8a99
create a new updateProcess when restarted
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Thu Dec 21 17:47:58 1995 +0100
+++ b/ProcMonitor.st	Fri Dec 22 22:53:46 1995 +0100
@@ -10,15 +10,13 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.8 on 24-nov-1995 at 21:40:29'                   !
-
 SimpleView subclass:#ProcessMonitor
-	 instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
-                listUpdateBlock updateProcess hideDead runColor suspendedColor
-                waitColor cpuUsages showDetail'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Tools'
+	instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
+		listUpdateBlock updateProcess hideDead runColor suspendedColor
+		waitColor cpuUsages showDetail'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Tools'
 !
 
 !ProcessMonitor class methodsFor:'documentation'!
@@ -355,24 +353,26 @@
     updateDelay := 0.5.
     listUpdateDelay := 5.
 
-    "/ true 
-    ProcessorScheduler isPureEventDriven
-    ifTrue:[
-	updateBlock := [self updateStatus].
-	listUpdateBlock := [self updateList].
+    "/ event mode is no longer used;
+    "/ this event support may vanish
+    ProcessorScheduler isPureEventDriven ifTrue:[
+        updateBlock := [self updateStatus].
+        listUpdateBlock := [self updateList].
     ].
 
     device hasColors ifTrue:[
-	runColor := Color green.
-	suspendedColor := Color yellow.
-	waitColor := Color red.
+        runColor := Color green.
+        suspendedColor := Color yellow.
+        waitColor := Color red.
     ] ifFalse:[
-	runColor := suspendedColor := waitColor := Color black
+        runColor := suspendedColor := waitColor := Color black
     ]
 
     "
      ProcessMonitor open
     "
+
+    "Modified: 22.12.1995 / 22:50:58 / cg"
 !
 
 mapped
@@ -390,6 +390,15 @@
     self startUpdateProcess.
 !
 
+reinitialize
+    updateProcess := nil.
+    super reinitialize.
+    self startUpdateProcess.
+
+    "Created: 22.12.1995 / 22:48:37 / cg"
+    "Modified: 22.12.1995 / 22:51:14 / cg"
+!
+
 startUpdateProcess
     updateBlock notNil ifTrue:[
 	Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
@@ -605,4 +614,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.27 1995-12-21 16:47:58 stefan Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.28 1995-12-22 21:53:46 cg Exp $'! !
--- a/ProcessMonitor.st	Thu Dec 21 17:47:58 1995 +0100
+++ b/ProcessMonitor.st	Fri Dec 22 22:53:46 1995 +0100
@@ -10,15 +10,13 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.8 on 24-nov-1995 at 21:40:29'                   !
-
 SimpleView subclass:#ProcessMonitor
-	 instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
-                listUpdateBlock updateProcess hideDead runColor suspendedColor
-                waitColor cpuUsages showDetail'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Interface-Tools'
+	instanceVariableNames:'listView processes listUpdateDelay updateDelay updateBlock
+		listUpdateBlock updateProcess hideDead runColor suspendedColor
+		waitColor cpuUsages showDetail'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Interface-Tools'
 !
 
 !ProcessMonitor class methodsFor:'documentation'!
@@ -355,24 +353,26 @@
     updateDelay := 0.5.
     listUpdateDelay := 5.
 
-    "/ true 
-    ProcessorScheduler isPureEventDriven
-    ifTrue:[
-	updateBlock := [self updateStatus].
-	listUpdateBlock := [self updateList].
+    "/ event mode is no longer used;
+    "/ this event support may vanish
+    ProcessorScheduler isPureEventDriven ifTrue:[
+        updateBlock := [self updateStatus].
+        listUpdateBlock := [self updateList].
     ].
 
     device hasColors ifTrue:[
-	runColor := Color green.
-	suspendedColor := Color yellow.
-	waitColor := Color red.
+        runColor := Color green.
+        suspendedColor := Color yellow.
+        waitColor := Color red.
     ] ifFalse:[
-	runColor := suspendedColor := waitColor := Color black
+        runColor := suspendedColor := waitColor := Color black
     ]
 
     "
      ProcessMonitor open
     "
+
+    "Modified: 22.12.1995 / 22:50:58 / cg"
 !
 
 mapped
@@ -390,6 +390,15 @@
     self startUpdateProcess.
 !
 
+reinitialize
+    updateProcess := nil.
+    super reinitialize.
+    self startUpdateProcess.
+
+    "Created: 22.12.1995 / 22:48:37 / cg"
+    "Modified: 22.12.1995 / 22:51:14 / cg"
+!
+
 startUpdateProcess
     updateBlock notNil ifTrue:[
 	Processor addTimedBlock:updateBlock afterSeconds:updateDelay.
@@ -605,4 +614,4 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.27 1995-12-21 16:47:58 stefan Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.28 1995-12-22 21:53:46 cg Exp $'! !
hg/stx-libtool