ProcessMonitorV2.st
changeset 4568 9576c0894332
parent 4565 7162b6a896e6
child 4570 3dc36c259ca1
--- a/ProcessMonitorV2.st	Tue Feb 18 14:46:27 2003 +0100
+++ b/ProcessMonitorV2.st	Tue Feb 18 15:34:02 2003 +0100
@@ -2137,8 +2137,8 @@
     sortBlock := [:a :b | 
             |entry1 entry2|
 
-            entry1 := (a perform:aSymbol).
-            entry2 := (b perform:aSymbol).
+            entry1 := (a perform:aSymbol) ? 0.
+            entry2 := (b perform:aSymbol) ? 0.
             entry1 = entry2 ifTrue:[
                 a idVal < 0 ifTrue:[
                     "/ two dead ones (take anything which remains constant)
@@ -2151,7 +2151,7 @@
                     a idVal < b idVal
                 ]
             ] ifFalse:[
-                entry1 perform:cmpOp with:entry2 
+                entry1 perform:cmpOp with:entry2
             ]
         ].
    self viewedColumnsChanged.
@@ -2628,5 +2628,5 @@
 !ProcessMonitorV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.9 2003-02-18 08:08:56 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.10 2003-02-18 14:34:02 stefan Exp $'
 ! !