class: Tools::BreakpointBrowser
changed:
#mainMenu
#selectedItemIsEnabledLineBreak
#selectedItemIsIgnoredHalt
--- a/Tools__BreakpointBrowser.st Thu Mar 28 16:04:49 2013 +0100
+++ b/Tools__BreakpointBrowser.st Thu Mar 28 16:13:48 2013 +0100
@@ -289,6 +289,19 @@
label: 'Browse'
itemValue: browseSelectedItem
)
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: selectedItemIsIgnoredHalt
+ label: 'Stop Ignoring this Halt'
+ itemValue: reenableHalt
+ )
+ (MenuItem
+ enabled: selectedItemIsEnabledLineBreak
+ label: 'Disable this Breakpoint'
+ itemValue: disableLineBreak
+ )
)
nil
nil
@@ -872,16 +885,18 @@
!
selectedItemIsEnabledLineBreak
- |entry|
+ |selIndex entry|
- entry := (self breakpointListEntryAtIndex:self selectionIndexHolder value).
+ (selIndex := self selectionIndexHolder value) isNil ifTrue:[^ false].
+ entry := self breakpointListEntryAtIndex:selIndex.
^ entry isLineBreakpoint and:[entry breakPoint isEnabled]
!
selectedItemIsIgnoredHalt
- |entry info|
+ |selIndex entry info|
- entry := (self breakpointListEntryAtIndex:self selectionIndexHolder value).
+ (selIndex := self selectionIndexHolder value) isNil ifTrue:[^ false].
+ entry := self breakpointListEntryAtIndex:selIndex.
info := Debugger haltIgnoreInformationFor:(entry method) atLineNr:(entry lineNumber).
^ info notNil and:[ info isHaltIgnored ].
!
@@ -1941,11 +1956,11 @@
!BreakpointBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.41 2013-03-28 15:00:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.42 2013-03-28 15:13:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.41 2013-03-28 15:00:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.42 2013-03-28 15:13:48 cg Exp $'
! !