--- a/Tools__BreakpointBrowser.st Thu Oct 22 15:25:07 2009 +0200
+++ b/Tools__BreakpointBrowser.st Thu Oct 22 15:58:02 2009 +0200
@@ -209,13 +209,13 @@
<resource: #menu>
- ^
+ ^
#(Menu
(
(MenuItem
label: 'File'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -228,10 +228,10 @@
nil
)
)
- (MenuItem
+ (MenuItem
label: 'Selection'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -247,7 +247,7 @@
(MenuItem
label: 'View'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -306,19 +306,21 @@
(MenuItem
label: 'Enable'
translateLabel: true
- submenu:
+ submenu:
(Menu
(
(MenuItem
label: 'Assertions'
itemValue: enableAssertions:
translateLabel: true
+ hideMenuOnActivated: false
indication: enableAssertions
)
(MenuItem
label: 'Halts'
itemValue: enableHalts:
translateLabel: true
+ hideMenuOnActivated: false
indication: enableHalts
)
(MenuItem
@@ -338,7 +340,7 @@
label: 'Help'
translateLabel: true
startGroup: right
- submenu:
+ submenu:
(Menu
(
(MenuItem
@@ -1509,9 +1511,9 @@
!BreakpointBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.14 2009-10-03 10:42:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.15 2009-10-22 13:58:02 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.14 2009-10-03 10:42:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.15 2009-10-22 13:58:02 cg Exp $'
! !