Tools__BreakpointBrowser.st
branchjv
changeset 12292 ecc23f7c8dde
parent 12287 400a99059170
child 12308 5d9291c0fc27
--- 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!