--- 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 $'
! !