--- 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 $'
! !