--- a/Tools__BreakpointBrowser.st Wed Sep 12 12:00:27 2012 +0100
+++ b/Tools__BreakpointBrowser.st Thu Sep 13 10:15:20 2012 +0100
@@ -1371,11 +1371,11 @@
label:'Toggle All';
translateLabel:true;
hideMenuOnActivated:false;
- value:[
- showCodeBreakpointsFor do:[:each |
- each value:(each value not)
- ]
- ]).
+ itemValue:[
+ showCodeBreakpointsFor do:[:each |
+ each value:(each value not)
+ ]
+ ]).
menu addSeparator.
breakpointArgs do:[:arg|
@@ -1386,16 +1386,17 @@
menuItem translateLabel:false.
menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]).
menuItem hideMenuOnActivated:false.
- menuItem value:[:onOff |
- (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff.
- self updateShownBreakpointList
- ].
+ menuItem
+ itemValue:[:onOff |
+ (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff.
+ self updateShownBreakpointList
+ ].
menu addItem:menuItem.
].
menu findGuiResourcesIn:self.
^ menu
- "Modified: / 27-03-2007 / 10:54:29 / cg"
+ "Modified (format): / 09-09-2012 / 13:11:14 / cg"
!
enabledCodeBreakpointMenu
@@ -1421,7 +1422,7 @@
label:'Toggle All';
translateLabel:true;
hideMenuOnActivated:false;
- value:[
+ itemValue:[
enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each |
each value:(each value not).
each value ifTrue:[
@@ -1441,7 +1442,7 @@
menuItem translateLabel:false.
menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]).
menuItem hideMenuOnActivated:false.
- menuItem value:[:onOff |
+ menuItem itemValue:[:onOff |
(enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff.
onOff ifFalse:[
Object disableBreakPoint:arg
@@ -1454,7 +1455,7 @@
menu findGuiResourcesIn:self.
^ menu
- "Modified: / 27-10-2010 / 13:36:28 / cg"
+ "Modified: / 09-09-2012 / 13:11:30 / cg"
! !
!BreakpointBrowser methodsFor:'tests'!
@@ -1766,15 +1767,15 @@
!BreakpointBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012/08/13 14:23:56 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.29 2012/09/09 18:49:45 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012/08/13 14:23:56 stefan Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.29 2012/09/09 18:49:45 cg Exp §'
!
version_SVN
- ^ '$Id: Tools__BreakpointBrowser.st 8048 2012-09-07 17:28:09Z vranyj1 $'
+ ^ '$Id: Tools__BreakpointBrowser.st 8054 2012-09-13 09:15:20Z vranyj1 $'
! !
BreakpointBrowser initialize!