sort
authorpenk
Tue, 28 Jan 2003 15:25:01 +0100
changeset 4501 fe34b74d09ff
parent 4500 9f0b8d6ae2be
child 4502 7d40e78aa5b4
sort
ProcessMonitorV2.st
--- a/ProcessMonitorV2.st	Tue Jan 28 14:00:30 2003 +0100
+++ b/ProcessMonitorV2.st	Tue Jan 28 15:25:01 2003 +0100
@@ -62,25 +62,6 @@
     "Created: / 14.1.2003 / 11:16:10 / penk"
 ! !
 
-!ProcessMonitorV2 class methodsFor:'instance creation'!
-
-open
-
-    |title answer|
-
-    title := ('ProcessMonitorV2 is in develop right now', Character cr,
-               'to use the old one uncheck [Use new Process Monitor] in', Character cr,
-               'Settings Dialog Tools').
-    answer := Dialog
-                confirm:title
-                title:'Warning' 
-                yesLabel:'Start anyway' noLabel:'Cancel' 
-                initialAnswer:true.
-    answer ifTrue:[
-        ^ super open
-    ].
-! !
-
 !ProcessMonitorV2 class methodsFor:'defaults'!
 
 defaultIcon
@@ -2124,7 +2105,16 @@
             entry1 := (a perform:aSymbol).
             entry2 := (b perform:aSymbol).
             entry1 = entry2 ifTrue:[
-                a idVal < b idVal
+                a idVal < 0 ifTrue:[
+                    "/ two dead ones (take anything which remains constant)
+                    a processName ~= b processName ifTrue:[
+                        a processName < b processName 
+                    ] ifFalse:[
+                        a processInstance identityHash < b processInstance identityHash 
+                    ]
+                ] ifFalse:[
+                    a idVal < b idVal
+                ]
             ] ifFalse:[
                 entry1 perform:cmpOp with:entry2 
             ]
@@ -2599,5 +2589,5 @@
 !ProcessMonitorV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.3 2003-01-28 11:16:46 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ProcessMonitorV2.st,v 1.4 2003-01-28 14:25:01 penk Exp $'
 ! !