# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1391687236 -3600
# Node ID fa0f2004dfd9883578664fd5a2475ce41783e67a
# Parent  4fdd33f4b23f1523edd5044f0786e9ed8e315fcd
class: DebugView
comment/format in:
        #postRealize
        #setLabelFor:in:
changed: #enter:withMessage:mayProceed:

diff -r 4fdd33f4b23f -r fa0f2004dfd9 DebugView.st
--- a/DebugView.st	Thu Feb 06 03:03:35 2014 +0100
+++ b/DebugView.st	Thu Feb 06 12:47:16 2014 +0100
@@ -450,8 +450,6 @@
 
     <context: #return>
 
-    |active|
-
     (NumberOfDebuggers ? 0) > self maxNumberOfDebuggers ifTrue:[
         NumberOfDebuggers := self allInstances count:[:d | d isOpen].
         NumberOfDebuggers > self maxNumberOfDebuggers ifTrue:[
@@ -479,7 +477,7 @@
         "
         (debugger := self openDebuggerForActiveProcess) notNil ifTrue:[
             debugger unstep.
-            debugger setLabelFor:aString in:active.
+            debugger setLabelFor:aString in:Processor activeProcess.
             debugger mayProceed:mayProceed.
             ^ debugger enter:aContext select:nil.
         ].
@@ -9068,15 +9066,15 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: DebugView.st,v 1.643 2014-02-05 18:59:05 cg Exp $'
+    ^ '$Id: DebugView.st,v 1.644 2014-02-06 11:47:16 cg Exp $'
 ! !