equal
deleted
inserted
replaced
1109 ]. |
1109 ]. |
1110 c notNil ifTrue:[ |
1110 c notNil ifTrue:[ |
1111 c := c sender. |
1111 c := c sender. |
1112 haltingMethod := c method. |
1112 haltingMethod := c method. |
1113 lineNrInHaltingMethod := c lineNumber. |
1113 lineNrInHaltingMethod := c lineNumber. |
1114 Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString. |
1114 "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString. |
1115 IgnoredHalts do:[:ign | |
1115 IgnoredHalts do:[:ign | |
1116 (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[ |
1116 (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[ |
1117 Transcript showCR:'ignored halt in ', haltingMethod printString. |
1117 Transcript showCR:'Debugger: ignored halt in ', haltingMethod printString. |
1118 ign decrementIgnoreCount. |
1118 ign decrementIgnoreCount. |
1119 ign isHaltIgnored ifFalse:[ |
1119 ign isHaltIgnored ifFalse:[ |
1120 Transcript showCR:'no longer ignore halt in ', haltingMethod printString. |
1120 Transcript showCR:'Debugger: no longer ignore halt in ', haltingMethod printString. |
1121 IgnoredHalts remove:ign ifAbsent:[]. |
1121 IgnoredHalts remove:ign ifAbsent:[]. |
1122 ]. |
1122 ]. |
1123 ^ self. |
1123 ^ self. |
1124 ]. |
1124 ]. |
1125 ]. |
1125 ]. |
6329 |
6329 |
6330 ^ true |
6330 ^ true |
6331 ! |
6331 ! |
6332 |
6332 |
6333 isHaltIgnoredInMethod:aMethod line:line |
6333 isHaltIgnoredInMethod:aMethod line:line |
6334 Transcript showCR:'ign ',aMethod printString,' at ',lineNumber printString. |
6334 "/ Transcript showCR:'ign ',aMethod printString,' at ',lineNumber printString. |
6335 line = lineNumber ifFalse:[^ false]. |
6335 line = lineNumber ifFalse:[^ false]. |
6336 (methodHolder at:1) == aMethod ifFalse:[^ false]. |
6336 (methodHolder at:1) == aMethod ifFalse:[^ false]. |
6337 |
6337 |
6338 ^ self isHaltIgnored |
6338 ^ self isHaltIgnored |
6339 ! ! |
6339 ! ! |
6340 |
6340 |
6341 !DebugView class methodsFor:'documentation'! |
6341 !DebugView class methodsFor:'documentation'! |
6342 |
6342 |
6343 version |
6343 version |
6344 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.437 2008-06-05 10:38:00 cg Exp $' |
6344 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.438 2008-06-05 11:25:30 cg Exp $' |
6345 ! ! |
6345 ! ! |
6346 |
6346 |
6347 DebugView initialize! |
6347 DebugView initialize! |