Tools__BreakpointBrowser.st
changeset 11788 063a9c415a06
parent 11744 e450cce01e34
child 12008 a2ca11e42ad2
--- a/Tools__BreakpointBrowser.st	Sun Sep 09 20:47:48 2012 +0200
+++ b/Tools__BreakpointBrowser.st	Sun Sep 09 20:49:45 2012 +0200
@@ -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,11 +1767,11 @@
 !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 $'
 ! !
 
 BreakpointBrowser initialize!