--- a/DebugView.st	Tue Jul 24 10:13:08 2001 +0200
+++ b/DebugView.st	Tue Jul 24 16:14:11 2001 +0200
@@ -1668,9 +1668,9 @@
 !
 
 stepOrNext
-    |where here con s isWrap method lastWrappedConAddr wrappedMethod 
+    |where here con s isWrap method wrappedMethod 
      inBlock left ignore contextBelow lastWrappedContext
-     leftWrap enteredWrap anyStepBlocks belowSteppedContext
+     leftWrap enteredWrap anyStepBlocks 
      oneMore initiallyShown breakpointSignal|
 
     (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
@@ -1720,11 +1720,11 @@
     here := here sender.        "the interrupted context"  
 
     DebuggingDebugger == true ifTrue:[
-        '*******' printNL.
+        '*******' printCR.
         'here in ' print.
         inWrap ifTrue:['(wrap) ' print.].
         ((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
-        here selector printNL.
+        here selector printCR.
     ].
 
     "/ kludge an bug-workaround;
@@ -1816,7 +1816,7 @@
                                 'change stepCon from: ' print.
                                 steppedContext print.
                                 ' to lastWrapped: ' print.
-                                lastWrappedContext printNL.
+                                lastWrappedContext printCR.
                             ].
 
                             inWrap := false.
@@ -1833,7 +1833,7 @@
 
     isWrap ifTrue:[
         DebuggingDebugger == true ifTrue:[
-            'ignore wrap' printNL.
+            'ignore wrap' printCR.
         ].
 
         "/
@@ -1878,7 +1878,7 @@
             "/ in a block called by 'our' context ?
             "/
             where home == steppedContext ifTrue:[
-"/ '*block*' printNL.
+"/ '*block*' printCR.
                 inBlock := true
             ]
         ].
@@ -1888,13 +1888,13 @@
 
             where notNil ifTrue:[
                 where home == steppedContext ifTrue:[
-"/ '*block*' printNL.
+"/ '*block*' printCR.
                     inBlock := true.
                 ]
             ].
 
 "/ 'looking for ' print.
-"/  (steppedContextAddress printStringRadix:16)print. '' printNL.
+"/  (steppedContextAddress printStringRadix:16)print. '' printCR.
 
 "/where print. ' ' print. ((ObjectMemory addressOf:where)printStringRadix:16) printCR.
 "/steppedContext print. ' ' print. ((ObjectMemory addressOf:steppedContext)printStringRadix:16) printCR.
@@ -1932,11 +1932,11 @@
 
                         DebuggingDebugger == true ifTrue:[
                             ((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
-                            where selector printNL.
+                            where selector printCR.
                         ].
 
                         where == steppedContext ifTrue:[
-"/ 'found it - below; ignore' printNL.
+"/ 'found it - below; ignore' printCR.
                             "
                              found the interesting context somwehere up in the
                              chain. We seem to be still below the interesting one ...
@@ -1952,7 +1952,7 @@
                             "
 
                             contextBelow notNil ifTrue:[
-"/ 'prepare for unwind-catch' printNL.
+"/ 'prepare for unwind-catch' printCR.
 "/ 'con= ' print. contextBelow printCR.
 "/                                contextBelow selector notNil ifTrue:[
 "/                                    self label:'single stepping - please wait ...(' , contextBelow selector , ')'.
@@ -2004,15 +2004,15 @@
                     left := true.
                 ].
             ] ifTrue:[
-"/ 'found it right in sender' printNL.
+"/ 'found it right in sender' printCR.
                 s := 'after step'
             ].
         ] ifTrue:[
-"/ 'found it right away' printNL.
+"/ 'found it right away' printCR.
             s := 'after step'
         ].
     ] ifFalse:[
-"/ ' send' printNL.
+"/ ' send' printCR.
         "
          a send
         "
@@ -2065,7 +2065,7 @@
                                     'change stepCon fromWrapped: ' print.
                                     steppedContext print.
                                     ' to: ' print.
-                                    wrapperContext printNL.
+                                    wrapperContext printCR.
                                 ].
 
                                 inWrap := true.
@@ -2101,14 +2101,14 @@
     ].
 
     inBlock ifTrue:[
-"/ 'inBlock' printNL.
+"/ 'inBlock' printCR.
         s := 'in block'.
     ].
 
     DebuggingDebugger == true ifTrue:[
         where notNil ifTrue:[
             '(' print. steppedContextLineno print. ') ' print.
-            where printNL.
+            where printCR.
         ].
     ].
 
@@ -2121,14 +2121,14 @@
             and:[(here methodHome == steppedContext)
                  or:[here home == steppedContext]]) ifTrue:[
                 DebuggingDebugger == true ifTrue:[
-                    'same line but in block' printNL.
+                    'same line but in block' printCR.
                 ].
 
                 steppedContext := actualContext := here.
                 steppedContextLineno := here lineNumber.
             ] ifFalse:[    
                 DebuggingDebugger == true ifTrue:[
-                    'same line - ignored' printNL.
+                    'same line - ignored' printCR.
                 ].
                 ignore := true
             ].
@@ -2140,7 +2140,7 @@
         and:[where lineNumber notNil
         and:[where lineNumber < skipLineNr]]]]) ifTrue:[
             DebuggingDebugger == true ifTrue:[
-                'skip (' print. skipLineNr print. ' unreached - ignored' printNL.
+                'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
             ].
             ignore := true
         ].
@@ -2149,14 +2149,14 @@
         and:[skipLineNr isNil
         and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
             DebuggingDebugger == true ifTrue:[
-                'same line2 (after conIRQ) - ignored' printNL.
+                'same line2 (after conIRQ) - ignored' printCR.
             ].
             ignore := true
         ].
     ].
 
     ignore ifTrue:[
-"/' ' printNL.
+"/' ' printCR.
         where := nil. here := nil.
         "
          yes, a context below
@@ -2171,7 +2171,7 @@
         ^ nil
     ].
 
-"/ ' ' printNL.
+"/ ' ' printCR.
 
     name := Processor activeProcess nameOrId.
     self label:(s , ' (process: ' , name , ')').
@@ -4370,6 +4370,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.272 2001-06-22 15:51:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.273 2001-07-24 14:14:11 stefan Exp $'
 ! !
 DebugView initialize!