stepOut enhanced / fixed
authorClaus Gittinger <cg@exept.de>
Mon, 14 Oct 1996 16:01:13 +0200
changeset 755 94705dbabfe0
parent 754 1848d4e89bc4
child 756 357db0b88e1b
stepOut enhanced / fixed
DebugView.st
--- a/DebugView.st	Mon Oct 14 15:41:21 1996 +0200
+++ b/DebugView.st	Mon Oct 14 16:01:13 1996 +0200
@@ -1102,9 +1102,9 @@
         name := Processor activeProcess nameOrId.
         self label:('context returned ' , ' (process: ' , name , ')').
         here := thisContext sender sender.
-        here lineNumber printCR.
+        here setLineNumber:nil.
         here := nil.
-        self enter:thisContext sender sender.
+        self enter:thisContext sender sender sender.
         ^ self
     ].
 
@@ -1365,7 +1365,7 @@
     self enter:thisContext sender sender
 
     "Created: 14.10.1996 / 12:53:39 / cg"
-    "Modified: 14.10.1996 / 13:50:53 / cg"
+    "Modified: 14.10.1996 / 14:57:41 / cg"
 ! !
 
 !DebugView methodsFor:'menu / button actions'!
@@ -2740,5 +2740,5 @@
 !DebugView  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.101 1996-10-14 13:41:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.102 1996-10-14 14:01:13 cg Exp $'
 ! !