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.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 03 Aug 1998 23:21:04 +0200
changeset 1792 0c15080a584a
parent 1791 023931383895
child 1793 77a1d990485e
checkin from browser
ProcMonitor.st file | annotate | diff | comparison | revisions
ProcessMonitor.st file | annotate | diff | comparison | revisions 
--- a/ProcMonitor.st	Mon Aug 03 22:54:19 1998 +0200
+++ b/ProcMonitor.st	Mon Aug 03 23:21:04 1998 +0200
@@ -100,12 +100,15 @@
 
 titleLine
     showDetail ifTrue:[
-    ^ 'id   group  name                            state     prio        usedStack    totalStack  current-segment      switch  where'.
+        Processor supportDynamicPriorities 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                                           '.
 
     "Modified: / 3.7.1996 / 13:57:38 / stefan"
-    "Modified: / 3.8.1998 / 22:53:41 / cg"
+    "Modified: / 3.8.1998 / 23:20:24 / cg"
 !
 
 updateList
@@ -235,16 +238,17 @@
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
                         line nextPutAll:(aProcess priority printStringLeftPaddedTo:3).
 
-                        showDetail ifTrue:[
+                        (showDetail 
+                        and:[Processor supportDynamicPriorities]) ifTrue:[
                             (r := aProcess priorityRange) isNil ifTrue:[
-                                line nextPutAll:'        '.
+                                line nextPutAll:'       '.
                             ] ifFalse:[
                                 line nextPutAll:((
                                     ' ['  
                                     , (r start printString)
                                     , '..'
                                     , (r stop printString)
-                                    , ']') paddedTo:8).
+                                    , ']') paddedTo:7).
                             ].
                         ].
 
@@ -375,7 +379,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 3.8.1998 / 22:53:25 / cg"
+    "Modified: / 3.8.1998 / 23:20:34 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -669,5 +673,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.61 1998-08-03 20:54:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/ProcMonitor.st,v 1.62 1998-08-03 21:21:04 cg Exp $'
 ! !
--- a/ProcessMonitor.st	Mon Aug 03 22:54:19 1998 +0200
+++ b/ProcessMonitor.st	Mon Aug 03 23:21:04 1998 +0200
@@ -100,12 +100,15 @@
 
 titleLine
     showDetail ifTrue:[
-    ^ 'id   group  name                            state     prio        usedStack    totalStack  current-segment      switch  where'.
+        Processor supportDynamicPriorities 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                                           '.
 
     "Modified: / 3.7.1996 / 13:57:38 / stefan"
-    "Modified: / 3.8.1998 / 22:53:41 / cg"
+    "Modified: / 3.8.1998 / 23:20:24 / cg"
 !
 
 updateList
@@ -235,16 +238,17 @@
                         line nextPutAll:c; nextPutAll:(st printStringPaddedTo:9).
                         line nextPutAll:(aProcess priority printStringLeftPaddedTo:3).
 
-                        showDetail ifTrue:[
+                        (showDetail 
+                        and:[Processor supportDynamicPriorities]) ifTrue:[
                             (r := aProcess priorityRange) isNil ifTrue:[
-                                line nextPutAll:'        '.
+                                line nextPutAll:'       '.
                             ] ifFalse:[
                                 line nextPutAll:((
                                     ' ['  
                                     , (r start printString)
                                     , '..'
                                     , (r stop printString)
-                                    , ']') paddedTo:8).
+                                    , ']') paddedTo:7).
                             ].
                         ].
 
@@ -375,7 +379,7 @@
     ]
 
     "Modified: / 3.7.1996 / 13:56:01 / stefan"
-    "Modified: / 3.8.1998 / 22:53:25 / cg"
+    "Modified: / 3.8.1998 / 23:20:34 / cg"
 ! !
 
 !ProcessMonitor methodsFor:'initialization'!
@@ -669,5 +673,5 @@
 !ProcessMonitor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.61 1998-08-03 20:54:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitor.st,v 1.62 1998-08-03 21:21:04 cg Exp $'
 ! !
hg/stx-libtool