class: Tools::BreakpointBrowser
authorClaus Gittinger <cg@exept.de>
Thu, 28 Mar 2013 16:13:48 +0100
changeset 12563 a59337482755
parent 12562 e05279313989
child 12564 11b2d9fb6554
class: Tools::BreakpointBrowser changed: #mainMenu #selectedItemIsEnabledLineBreak #selectedItemIsIgnoredHalt
Tools__BreakpointBrowser.st
--- 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 $'
 ! !