--- a/Tools__TagsBrowser.st Tue Apr 12 15:00:48 2016 +0200
+++ b/Tools__TagsBrowser.st Tue Apr 12 15:01:02 2016 +0200
@@ -1037,6 +1037,12 @@
isMenuSlice: true
)
(MenuItem
+ label: 'ObjC Menu Slice'
+ translateLabel: true
+ submenuChannel: objcMenuSlice
+ isMenuSlice: true
+ )
+ (MenuItem
label: 'OZ Menu Slice'
translateLabel: true
submenuChannel: ozMenuSlice
@@ -1070,6 +1076,49 @@
"Modified: / 21-08-2012 / 21:00:35 / cg"
!
+objcMenuSlice
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
+
+ "
+ MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#objcMenuSlice
+ (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser objcMenuSlice)) startUp
+ "
+
+ <resource: #menu>
+
+ ^
+ #(Menu
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasObjcSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasObjcSuffix
+ hideMenuOnActivated: false
+ indication: hideObjcClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasObjcSuffix
+ hideMenuOnActivated: false
+ indication: hideObjcMethods:
+ )
+ )
+ nil
+ nil
+ )
+!
+
ozMenuSlice
"This resource specification was automatically generated
by the MenuEditor of ST/X."
@@ -1205,38 +1254,38 @@
the MenuEditor may not be able to read the specification."
"
- MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#ozMenuSlice
- (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser ozMenuSlice)) startUp
+ MenuEditor new openOnClass:Tools::TagsBrowser andSelector:#smalltalkMenuSlice
+ (Menu new fromLiteralArrayEncoding:(Tools::TagsBrowser smalltalkMenuSlice)) startUp
"
<resource: #menu>
^
#(Menu
- (
- (MenuItem
- label: '-'
- isVisible: editedFileHasSmalltalkSuffix
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Classes'
- translateLabel: true
- isVisible: editedFileHasSmalltalkSuffix
- hideMenuOnActivated: false
- indication: hideClasses:
- )
- (MenuItem
- enabled: tagTypesPresentHolder
- label: 'Hide Methods'
- translateLabel: true
- isVisible: editedFileHasSmalltalkSuffix
- hideMenuOnActivated: false
- indication: hideMethods:
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: '-'
+ isVisible: editedFileHasSmalltalkSuffix
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Classes'
+ translateLabel: true
+ isVisible: editedFileHasSmalltalkSuffix
+ hideMenuOnActivated: false
+ indication: hideClasses:
+ )
+ (MenuItem
+ enabled: tagTypesPresentHolder
+ label: 'Hide Methods'
+ translateLabel: true
+ isVisible: editedFileHasSmalltalkSuffix
+ hideMenuOnActivated: false
+ indication: hideMethods:
+ )
+ )
+ nil
+ nil
)
"Created: / 21-08-2012 / 20:59:28 / cg"
@@ -1829,6 +1878,15 @@
"Created: / 21-08-2012 / 21:01:45 / cg"
!
+hideObjcClasses
+ ^ tagList hideObjcClasses
+!
+
+hideObjcClasses:aBool
+ tagList hideObjcClasses:aBool.
+ self updateTagList
+!
+
hideOzClasses
^ tagList hideOzClasses
!
@@ -2250,6 +2308,10 @@
^builder booleanValueAspectFor: #editedFileHasLuaSuffix
!
+editedFileHasObjcSuffix
+ ^builder booleanValueAspectFor: #editedFileHasObjcSuffix
+!
+
editedFileHasOzSuffix
^builder booleanValueAspectFor: #editedFileHasOzSuffix
!
@@ -2428,6 +2490,7 @@
(editedFileHasEiffelSuffix ('text/eiffel' 'application/x-eiffel-source'))
(editedFileHasFortranSuffix ('text/fortran' 'application/x-fortran-source'))
(editedFileHasPythonSuffix ('text/python' 'application/x-python-source'))
+ (editedFileHasObjcSuffix ('text/objcsrc' 'application/x-objcsrc'))
(editedFileHasOzSuffix ('text/oz' 'application/x-oz-source'))
(editedFileHasLuaSuffix ('text/lua' 'application/x-lua-source'))
(editedFileHasLispSuffix ('text/lisp' 'text/lisp-arc' 'text/scheme' 'application/x-lisp-source' 'application/x-scheme-source') )