Tools__TagsBrowser.st
branchjv
changeset 12254 b1237f76f501
parent 12229 5c129972b1fd
child 12287 400a99059170
--- a/Tools__TagsBrowser.st	Wed May 30 21:46:55 2012 +0100
+++ b/Tools__TagsBrowser.st	Tue Jun 05 15:49:00 2012 +0100
@@ -177,6 +177,14 @@
           )
          (MenuItem
             enabled: tagTypesPresentHolder
+            label: 'Hide local labels3 ("L[0-9]+")'
+            translateLabel: true
+            isVisible: editedFileHasAssemblerSuffix
+            hideMenuOnActivated: false
+            indication: hideLocalLabels3:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
             label: 'Hide data labels'
             translateLabel: true
             isVisible: editedFileHasAssemblerSuffix
@@ -196,7 +204,7 @@
         nil
       )
 
-    "Modified: / 24-03-2012 / 23:22:45 / cg"
+    "Modified: / 13-05-2012 / 11:26:28 / cg"
 !
 
 cMenuSlice
@@ -1310,6 +1318,19 @@
     "Created: / 24-03-2012 / 23:23:26 / cg"
 !
 
+hideLocalLabels3
+    ^ tagList hideLocalLabels3
+
+    "Created: / 13-05-2012 / 11:09:54 / cg"
+!
+
+hideLocalLabels3:aBool
+    tagList hideLocalLabels3:aBool.
+    self updateTagList
+
+    "Created: / 13-05-2012 / 11:10:01 / cg"
+!
+
 hideLocalLabels:aBool
     tagList hideLocalLabels:aBool.
     self updateTagList
@@ -2205,7 +2226,7 @@
                 ].
                 aBlock value.
             ]
-        ] valueNowOrOnUnwindDo:[
+        ] ensure:[
             process := nil.
             self enabled:true.
         ].
@@ -2272,13 +2293,13 @@
 !TagsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.24 2012/03/24 22:25:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.26 2012/05/13 09:30:16 cg Exp $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.24 2012/03/24 22:25:38 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__TagsBrowser.st,v 1.26 2012/05/13 09:30:16 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__TagsBrowser.st 7978 2012-04-13 13:15:47Z vranyj1 $'
+    ^ '$Id: Tools__TagsBrowser.st 8007 2012-06-05 14:49:00Z vranyj1 $'
 ! !