class: Tools::BreakpointBrowser
comment/format in: #withBreakpointListEntriesFor:class:selector:messages:messageSelectors:rememberingCodeBreakpointTypesIn:do:
changed:
#defaultListOfMessagesAndTypes
#reenableHalt
handle todo and new breakpoint API in debugview
--- a/Tools__BreakpointBrowser.st Thu Jun 20 17:56:42 2013 +0200
+++ b/Tools__BreakpointBrowser.st Thu Jun 20 17:57:13 2013 +0200
@@ -85,8 +85,8 @@
(#halt: #halt)
(#assert: #assertion)
(#assert:message: #assertion)
- (#todo #other)
- (#todo: #other)
+ (#todo #todo)
+ (#todo: #todo)
).
!
@@ -1305,6 +1305,7 @@
"/ to fetch all message selectors. This should be done only once,
"/ and not for every selector we look for)
(messagesSent includesIdentical:bpSel) ifTrue:[
+
tree := RBParser
parseMethod:mthd source
onError:[:aString :pos |
@@ -1434,7 +1435,8 @@
Debugger
ignoreHaltIn:(entry method)
at:(entry lineNumber)
- forCount:nil orTimeDuration:nil orUntilShiftKey:false.
+ forCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orReceiverClass:nil orProcess:nil.
self updateShownBreakpointList
"Modified: / 27-01-2012 / 11:34:11 / cg"
@@ -1945,6 +1947,9 @@
selectorToSearch == #halt: ifTrue:[
infoMessage := arg1.
].
+ selectorToSearch == #todo: ifTrue:[
+ infoMessage := arg1.
+ ].
selectorToSearch == #breakPoint: ifTrue:[
argument := arg1.
].
@@ -1972,11 +1977,11 @@
!BreakpointBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.44 2013-03-30 15:57:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.45 2013-06-20 15:57:13 cg Exp $'
! !