DebugView.st
changeset 18791 d4648fa1cc9c
parent 18786 5730baa41e74
child 18861 4b9cfb623550
--- a/DebugView.st	Tue May 28 21:11:06 2019 +0200
+++ b/DebugView.st	Wed May 29 01:11:19 2019 +0200
@@ -3030,7 +3030,7 @@
     w := w max:(continueButton preferredWidth).
     continueButton preferredExtent:(w @ continueButton preferredHeight).
 
-    aProcess state == #run ifTrue:[
+    aProcess isRunning ifTrue:[
         device hasColors ifTrue:[
             continueButton foregroundColor:Color darkRed.
         ].
@@ -3110,7 +3110,7 @@
 
     "Modified: / 20-03-1997 / 16:53:56 / cg"
     "Modified: / 17-04-1997 / 13:01:57 / stefan"
-    "Modified: / 13-03-2019 / 21:16:40 / Claus Gittinger"
+    "Modified: / 29-05-2019 / 01:02:34 / Claus Gittinger"
 !
 
 redefinedEnableStepInterruptForReentry:aContext
@@ -7701,7 +7701,7 @@
 updateContext
     |oldContext idx|
 
-    inspectedProcess state == #dead ifTrue:[
+    inspectedProcess isDead ifTrue:[
         self showTerminated.
         ^ self
     ].
@@ -7722,7 +7722,8 @@
         ].
     ] valueUninterruptably.
 
-    "Modified: 20.10.1996 / 18:11:24 / cg"
+    "Modified: / 20-10-1996 / 18:11:24 / cg"
+    "Modified: / 29-05-2019 / 01:02:43 / Claus Gittinger"
 !
 
 withNodeValueAtInterval:interval do:aBlock