compare for lineNr >= when skipping
authorClaus Gittinger <cg@exept.de>
Mon, 17 Jun 1996 10:22:29 +0200
changeset 628 72e330dce4ce
parent 627 60c38701d4a2
child 629 754a858231f9
compare for lineNr >= when skipping
DebugView.st
--- a/DebugView.st	Sat Jun 15 15:27:04 1996 +0200
+++ b/DebugView.st	Mon Jun 17 10:22:29 1996 +0200
@@ -1237,7 +1237,7 @@
 
     (left not 
     and:[skipLineNr notNil 
-    and:[where lineNumber ~~ skipLineNr]]) ifTrue:[
+    and:[where lineNumber < skipLineNr]]) ifTrue:[
 "/ 'skip (' print. skipLineNr print. ' unreached - ignored' printNL.
         ignore := true
     ].
@@ -1270,7 +1270,7 @@
     where := nil. here := nil.
     self enter:thisContext sender
 
-    "Modified: 20.5.1996 / 10:27:24 / cg"
+    "Modified: 17.6.1996 / 10:21:23 / cg"
 ! !
 
 !DebugView methodsFor:'menu / button actions'!
@@ -2541,5 +2541,5 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.88 1996-06-05 15:02:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.89 1996-06-17 08:22:29 cg Exp $'
 ! !