equal
deleted
inserted
replaced
2125 ]. |
2125 ]. |
2126 |
2126 |
2127 steppedContext := actualContext := here. |
2127 steppedContext := actualContext := here. |
2128 steppedContextLineno := here lineNumber. |
2128 steppedContextLineno := here lineNumber. |
2129 ] ifFalse:[ |
2129 ] ifFalse:[ |
2130 DebuggingDebugger == true ifTrue:[ |
2130 "/ kludge - I only have the info for up to 255 lines |
2131 'same line - ignored' printCR. |
2131 steppedContextLineno ~~ 255 ifTrue:[ |
|
2132 DebuggingDebugger == true ifTrue:[ |
|
2133 'same line - ignored' printCR. |
|
2134 ]. |
|
2135 ignore := true |
2132 ]. |
2136 ]. |
2133 ignore := true |
|
2134 ]. |
2137 ]. |
2135 ]. |
2138 ]. |
2136 |
2139 |
2137 (left not |
2140 (left not |
2138 and:[skipLineNr notNil |
2141 and:[skipLineNr notNil |
4370 ! ! |
4373 ! ! |
4371 |
4374 |
4372 !DebugView class methodsFor:'documentation'! |
4375 !DebugView class methodsFor:'documentation'! |
4373 |
4376 |
4374 version |
4377 version |
4375 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.274 2001-07-28 12:22:20 martin Exp $' |
4378 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.275 2001-08-01 09:57:42 cg Exp $' |
4376 ! ! |
4379 ! ! |
4377 DebugView initialize! |
4380 DebugView initialize! |