equal
deleted
inserted
replaced
83 (#debuggingCodeFor:is: #debugCode) |
83 (#debuggingCodeFor:is: #debugCode) |
84 (#halt #halt) |
84 (#halt #halt) |
85 (#halt: #halt) |
85 (#halt: #halt) |
86 (#assert: #assertion) |
86 (#assert: #assertion) |
87 (#assert:message: #assertion) |
87 (#assert:message: #assertion) |
88 (#todo #other) |
88 (#todo #todo) |
89 (#todo: #other) |
89 (#todo: #todo) |
90 ). |
90 ). |
91 ! |
91 ! |
92 |
92 |
93 initialize |
93 initialize |
94 MessagesAndTypes := self defaultListOfMessagesAndTypes |
94 MessagesAndTypes := self defaultListOfMessagesAndTypes |
1303 "/ used to be (mthd sends:bpSel); |
1303 "/ used to be (mthd sends:bpSel); |
1304 "/ however, the sends requires an expensive parse of the methods source |
1304 "/ however, the sends requires an expensive parse of the methods source |
1305 "/ to fetch all message selectors. This should be done only once, |
1305 "/ to fetch all message selectors. This should be done only once, |
1306 "/ and not for every selector we look for) |
1306 "/ and not for every selector we look for) |
1307 (messagesSent includesIdentical:bpSel) ifTrue:[ |
1307 (messagesSent includesIdentical:bpSel) ifTrue:[ |
|
1308 |
1308 tree := RBParser |
1309 tree := RBParser |
1309 parseMethod:mthd source |
1310 parseMethod:mthd source |
1310 onError:[:aString :pos | |
1311 onError:[:aString :pos | |
1311 ('BreakPointBrowser [info]: error while parsing "%1": %2' |
1312 ('BreakPointBrowser [info]: error while parsing "%1": %2' |
1312 bindWith:mthd whoString with:aString) infoPrintCR. |
1313 bindWith:mthd whoString with:aString) infoPrintCR. |
1432 |
1433 |
1433 entry := self breakpointListEntryAtIndex:self selectionIndexHolder value. |
1434 entry := self breakpointListEntryAtIndex:self selectionIndexHolder value. |
1434 Debugger |
1435 Debugger |
1435 ignoreHaltIn:(entry method) |
1436 ignoreHaltIn:(entry method) |
1436 at:(entry lineNumber) |
1437 at:(entry lineNumber) |
1437 forCount:nil orTimeDuration:nil orUntilShiftKey:false. |
1438 forCount:nil orTimeDuration:nil orUntilShiftKey:false |
|
1439 orReceiverClass:nil orProcess:nil. |
1438 self updateShownBreakpointList |
1440 self updateShownBreakpointList |
1439 |
1441 |
1440 "Modified: / 27-01-2012 / 11:34:11 / cg" |
1442 "Modified: / 27-01-2012 / 11:34:11 / cg" |
1441 ! |
1443 ! |
1442 |
1444 |
1943 ]. |
1945 ]. |
1944 |
1946 |
1945 selectorToSearch == #halt: ifTrue:[ |
1947 selectorToSearch == #halt: ifTrue:[ |
1946 infoMessage := arg1. |
1948 infoMessage := arg1. |
1947 ]. |
1949 ]. |
|
1950 selectorToSearch == #todo: ifTrue:[ |
|
1951 infoMessage := arg1. |
|
1952 ]. |
1948 selectorToSearch == #breakPoint: ifTrue:[ |
1953 selectorToSearch == #breakPoint: ifTrue:[ |
1949 argument := arg1. |
1954 argument := arg1. |
1950 ]. |
1955 ]. |
1951 selectorToSearch == #breakPoint:info: ifTrue:[ |
1956 selectorToSearch == #breakPoint:info: ifTrue:[ |
1952 argument := arg1. |
1957 argument := arg1. |
1970 ! ! |
1975 ! ! |
1971 |
1976 |
1972 !BreakpointBrowser class methodsFor:'documentation'! |
1977 !BreakpointBrowser class methodsFor:'documentation'! |
1973 |
1978 |
1974 version |
1979 version |
1975 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $' |
1980 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $' |
1976 ! |
1981 ! |
1977 |
1982 |
1978 version_CVS |
1983 version_CVS |
1979 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $' |
1984 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $' |
1980 ! ! |
1985 ! ! |
1981 |
1986 |
1982 |
1987 |
1983 BreakpointBrowser initialize! |
1988 BreakpointBrowser initialize! |