--- 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 $'
! !