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.
show dynamicPrio-ranges
authorClaus Gittinger <cg@exept.de>
Mon, 03 Aug 1998 22:54:19 +0200
changeset 1791 023931383895
parent 1790 ec55be94e038
child 1792 0c15080a584a
show dynamicPrio-ranges
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Mon Aug 03 21:53:05 1998 +0200
+++ b/ProcMonitor.st	Mon Aug 03 22:54:19 1998 +0200
@@ -100,12 +100,12 @@
 
 titleLine
     showDetail ifTrue:[
-    ^ 'id   group  name                           state    prio usedStack    totalStack  current-segment      switch  where'.
+    ^ 'id   group  name                            state     prio        usedStack    totalStack  current-segment      switch  where'.
     ].
-    ^ 'id   group  name                           state    prio where                                           '.
+    ^ 'id   group  name                            state    prio where                                           '.
 
     "Modified: / 3.7.1996 / 13:57:38 / stefan"
-    "Modified: / 4.3.1998 / 17:14:06 / cg"
+    "Modified: / 3.8.1998 / 22:53:41 / cg"
 !
 
 updateList
@@ -152,7 +152,7 @@
     |oldList list line dIndex interrupted contextCount 
      aProcess nm st n found running sel space oldSelection
      newSelection numHeaderLines nameLength index
-     con c totalStack sender id gId|
+     con c totalStack sender id gId r|
 
     numHeaderLines := 2.
     space := Character space.
@@ -235,6 +235,19 @@
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
                         line nextPutAll:(aProcess priority printStringLeftPaddedTo:3).
 
+                        showDetail ifTrue:[
+                            (r := aProcess priorityRange) isNil ifTrue:[
+                                line nextPutAll:'        '.
+                            ] ifFalse:[
+                                line nextPutAll:((
+                                    ' ['  
+                                    , (r start printString)
+                                    , '..'
+                                    , (r stop printString)
+                                    , ']') paddedTo:8).
+                            ].
+                        ].
+
                         con := aProcess suspendedContext.
                         con isNil ifTrue:[
                             aProcess == Processor activeProcess ifTrue:[
@@ -362,7 +375,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 4.3.1998 / 18:15:38 / cg"
+    "Modified: / 3.8.1998 / 22:53:25 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -656,5 +669,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.60 1998-04-25 23:10:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.61 1998-08-03 20:54:19 cg Exp $'
 ! !
--- a/ProcessMonitor.st	Mon Aug 03 21:53:05 1998 +0200
+++ b/ProcessMonitor.st	Mon Aug 03 22:54:19 1998 +0200
@@ -100,12 +100,12 @@
 
 titleLine
     showDetail ifTrue:[
-    ^ 'id   group  name                           state    prio usedStack    totalStack  current-segment      switch  where'.
+    ^ 'id   group  name                            state     prio        usedStack    totalStack  current-segment      switch  where'.
     ].
-    ^ 'id   group  name                           state    prio where                                           '.
+    ^ 'id   group  name                            state    prio where                                           '.
 
     "Modified: / 3.7.1996 / 13:57:38 / stefan"
-    "Modified: / 4.3.1998 / 17:14:06 / cg"
+    "Modified: / 3.8.1998 / 22:53:41 / cg"
 !
 
 updateList
@@ -152,7 +152,7 @@
     |oldList list line dIndex interrupted contextCount 
      aProcess nm st n found running sel space oldSelection
      newSelection numHeaderLines nameLength index
-     con c totalStack sender id gId|
+     con c totalStack sender id gId r|
 
     numHeaderLines := 2.
     space := Character space.
@@ -235,6 +235,19 @@
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
                         line nextPutAll:(aProcess priority printStringLeftPaddedTo:3).
 
+                        showDetail ifTrue:[
+                            (r := aProcess priorityRange) isNil ifTrue:[
+                                line nextPutAll:'        '.
+                            ] ifFalse:[
+                                line nextPutAll:((
+                                    ' ['  
+                                    , (r start printString)
+                                    , '..'
+                                    , (r stop printString)
+                                    , ']') paddedTo:8).
+                            ].
+                        ].
+
                         con := aProcess suspendedContext.
                         con isNil ifTrue:[
                             aProcess == Processor activeProcess ifTrue:[
@@ -362,7 +375,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 4.3.1998 / 18:15:38 / cg"
+    "Modified: / 3.8.1998 / 22:53:25 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -656,5 +669,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.60 1998-04-25 23:10:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.61 1998-08-03 20:54:19 cg Exp $'
 ! !
hg/stx-libtool