Tools__TagsBrowser.st
changeset 17553 d265f39fa2a2
parent 17537 f85a96e09ab6
child 17812 bb5ec83cf869
--- a/Tools__TagsBrowser.st	Thu Jun 22 11:30:55 2017 +0200
+++ b/Tools__TagsBrowser.st	Thu Jun 22 11:30:59 2017 +0200
@@ -456,82 +456,82 @@
 
     ^
      #(Menu
-	(
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasDartSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Classes Only'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    indication: dartClassesOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Methods Only'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    indication: dartMethodsOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Classes && Methods Only'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    indication: dartClassesAndMethodsOnly:
-	  )
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasDartSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Packages'
-	    translateLabel: true
-	    isVisible: false "editedFileHasDartSuffix"
-	    hideMenuOnActivated: false
-	    indication: hideJavaPackages:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Classes'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    hideMenuOnActivated: false
-	    indication: hideDartClasses:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Interfaces'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    hideMenuOnActivated: false
-	    indication: hideDartInterfaces:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Methods'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    hideMenuOnActivated: false
-	    indication: hideDartMethods:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Fields'
-	    translateLabel: true
-	    isVisible: editedFileHasDartSuffix
-	    hideMenuOnActivated: false
-	    indication: hideDartFields:
-	  )
-	 )
-	nil
-	nil
+        (
+         (MenuItem
+            label: '-'
+            isVisible: editedFileHasDartSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Classes Only'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            indication: classesOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Methods Only'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            indication: methodsOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Classes && Methods Only'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            indication: classesAndMethodsOnly:
+          )
+         (MenuItem
+            label: '-'
+            isVisible: editedFileHasDartSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Packages'
+            translateLabel: true
+            isVisible: false "editedFileHasDartSuffix"
+            hideMenuOnActivated: false
+            indication: hidePackages:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Classes'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            hideMenuOnActivated: false
+            indication: hideClasses:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Interfaces'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            hideMenuOnActivated: false
+            indication: hideInterfaces:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Methods'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            hideMenuOnActivated: false
+            indication: hideMethods:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Fields'
+            translateLabel: true
+            isVisible: editedFileHasDartSuffix
+            hideMenuOnActivated: false
+            indication: hideFields:
+          )
+         )
+        nil
+        nil
       )
 
-    "Modified: / 21-08-2012 / 20:49:32 / cg"
+    "Modified: / 22-06-2017 / 10:52:06 / cg"
 !
 
 htmlMenuSlice
@@ -591,72 +591,74 @@
 
     ^
      #(Menu
-	(
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasJavaSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Classes Only'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    indication: javaClassesOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Methods OnLy'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    indication: javaMethodsOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Classes && Methods Only'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    indication: javaClassesAndMethodsOnly:
-	  )
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasJavaSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Packages'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    hideMenuOnActivated: false
-	    indication: hideJavaPackages:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Classes'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    hideMenuOnActivated: false
-	    indication: hideJavaClasses:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Methods'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    hideMenuOnActivated: false
-	    indication: hideJavaMethods:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Fields'
-	    translateLabel: true
-	    isVisible: editedFileHasJavaSuffix
-	    hideMenuOnActivated: false
-	    indication: hideJavaFields:
-	  )
-	 )
-	nil
-	nil
+        (
+         (MenuItem
+            label: '-'
+            isVisible: editedFileHasJavaSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Classes Only'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            indication: classesOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Methods OnLy'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            indication: methodsOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Classes && Methods Only'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            indication: classesAndMethodsOnly:
+          )
+         (MenuItem
+            label: '-'
+            isVisible: editedFileHasJavaSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Packages'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            hideMenuOnActivated: false
+            indication: hidePackages:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Classes'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            hideMenuOnActivated: false
+            indication: hideClasses:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Methods'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            hideMenuOnActivated: false
+            indication: hideMethods:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Fields'
+            translateLabel: true
+            isVisible: editedFileHasJavaSuffix
+            hideMenuOnActivated: false
+            indication: hideFields:
+          )
+         )
+        nil
+        nil
       )
+
+    "Modified: / 22-06-2017 / 10:52:30 / cg"
 !
 
 javaScriptMenuSlice
@@ -1035,6 +1037,7 @@
             translateLabel: true
             submenuChannel: pythonMenuSlice
             isMenuSlice: true
+            isVisible: editedFileHasPythonSuffix
           )
          (MenuItem
             label: 'ObjC Menu Slice'
@@ -1073,7 +1076,7 @@
         nil
       )
 
-    "Modified: / 21-08-2012 / 21:00:35 / cg"
+    "Modified: / 22-06-2017 / 11:25:17 / cg"
 !
 
 objcMenuSlice
@@ -1186,64 +1189,66 @@
 
     ^
      #(Menu
-	(
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasPythonSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Classes Only'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    indication: pythonClassesOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Methods Only'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    indication: pythonMethodsOnly:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Functions Only'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    indication: pythonFunctionsOnly:
-	  )
-	 (MenuItem
-	    label: '-'
-	    isVisible: editedFileHasPythonSuffix
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Classes'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    hideMenuOnActivated: false
-	    indication: hidePythonClasses:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Methods'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    hideMenuOnActivated: false
-	    indication: hidePythonMethods:
-	  )
-	 (MenuItem
-	    enabled: tagTypesPresentHolder
-	    label: 'Hide Functions'
-	    translateLabel: true
-	    isVisible: editedFileHasPythonSuffix
-	    hideMenuOnActivated: false
-	    indication: hidePythonFunctions:
-	  )
-	 )
-	nil
-	nil
+        (
+         (MenuItem
+            label: '-'
+            "/ isVisible: editedFileHasPythonSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Classes Only'
+            translateLabel: true
+            "/ isVisible: editedFileHasPythonSuffix
+            indication: classesOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Methods Only'
+            translateLabel: true
+            "/ isVisible: editedFileHasPythonSuffix
+            indication: methodsOnly:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Functions Only'
+            translateLabel: true
+            "/ isVisible: editedFileHasPythonSuffix
+            indication: functionsOnly:
+          )
+         (MenuItem
+            label: '-'
+            "/ isVisible: editedFileHasPythonSuffix
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Classes'
+            translateLabel: true
+            isVisible: editedFileHasPythonSuffix
+            hideMenuOnActivated: false
+            indication: hideClasses:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Methods'
+            translateLabel: true
+            isVisible: editedFileHasPythonSuffix
+            hideMenuOnActivated: false
+            indication: hideMethods:
+          )
+         (MenuItem
+            enabled: tagTypesPresentHolder
+            label: 'Hide Functions'
+            translateLabel: true
+            isVisible: editedFileHasPythonSuffix
+            hideMenuOnActivated: false
+            indication: hideFunctions:
+          )
+         )
+        nil
+        nil
       )
+
+    "Modified: / 22-06-2017 / 11:26:02 / cg"
 !
 
 smalltalkMenuSlice
@@ -1483,6 +1488,40 @@
     "Created: / 08-05-2011 / 10:51:03 / cg"
 !
 
+classesAndFunctionsOnly
+    ^ tagList classesAndFunctionsOnly
+
+    "Created: / 22-06-2017 / 10:31:51 / cg"
+!
+
+classesAndFunctionsOnly:aBool
+    aBool ifTrue:[
+        tagList hideClasses:false.
+        tagList hideFunctions:false.
+    ].
+    tagList classesAndFunctionsOnly:aBool.
+    self updateTagList
+
+    "Created: / 22-06-2017 / 10:31:59 / cg"
+!
+
+classesAndMethodsOnly
+    ^ tagList classesAndMethodsOnly
+
+    "Created: / 22-06-2017 / 10:31:35 / cg"
+!
+
+classesAndMethodsOnly:aBool
+    aBool ifTrue:[
+        tagList hideClasses:false.
+        tagList hideMethods:false.
+    ].
+    tagList classesAndMethodsOnly:aBool.
+    self updateTagList
+
+    "Created: / 22-06-2017 / 10:31:22 / cg"
+!
+
 classesFunctionsAndVariablesOnly
     ^ tagList classesFunctionsAndVariablesOnly
 !
@@ -1514,40 +1553,58 @@
 !
 
 dartClassesAndMethodsOnly
-    ^ tagList dartClassesAndMethodsOnly
+    ^ self classesAndMethodsOnly
+"/    ^ tagList dartClassesAndMethodsOnly
+
+    "Modified: / 22-06-2017 / 10:30:13 / cg"
 !
 
 dartClassesAndMethodsOnly:aBool
-    aBool ifTrue:[
-	tagList hideDartClasses:false.
-	tagList hideDartMethods:false.
-    ].
-    tagList dartClassesAndMethodsOnly:aBool.
-    self updateTagList
+    self classesAndMethodsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideDartClasses:false.
+"/        tagList hideDartMethods:false.
+"/    ].
+"/    tagList dartClassesAndMethodsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:30:25 / cg"
 !
 
 dartClassesOnly
-    ^ tagList dartClassesOnly
+    ^ self classesOnly
+"/    ^ tagList dartClassesOnly
+
+    "Modified: / 22-06-2017 / 10:32:35 / cg"
 !
 
 dartClassesOnly:aBool
-    aBool ifTrue:[
-	tagList hideDartClasses:false.
-    ].
-    tagList dartClassesOnly:aBool.
-    self updateTagList
+    self classesOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideDartClasses:false.
+"/    ].
+"/    tagList dartClassesOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:32:26 / cg"
 !
 
 dartMethodsOnly
-    ^ tagList dartMethodsOnly
+    ^ self methodsOnly
+"/    ^ tagList dartMethodsOnly
+
+    "Modified: / 22-06-2017 / 10:32:44 / cg"
 !
 
 dartMethodsOnly:aBool
-    aBool ifTrue:[
-	tagList hideDartMethods:false.
-    ].
-    tagList dartMethodsOnly:aBool.
-    self updateTagList
+    self methodsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideDartMethods:false.
+"/    ].
+"/    tagList dartMethodsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:32:59 / cg"
 !
 
 definesOnly
@@ -1629,48 +1686,78 @@
 !
 
 hideDartClasses
-    ^ tagList hideDartClasses
+    ^ self hideClasses
+"/    ^ tagList hideDartClasses
+
+    "Modified: / 22-06-2017 / 10:55:36 / cg"
 !
 
 hideDartClasses:aBool
-    tagList hideDartClasses:aBool.
-    self updateTagList
+    self hideClasses:aBool
+"/    tagList hideDartClasses:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:55:48 / cg"
 !
 
 hideDartFields
-    ^ tagList hideDartFields
+    ^ self hideFields
+"/    ^ tagList hideDartFields
+
+    "Modified: / 22-06-2017 / 10:57:09 / cg"
 !
 
 hideDartFields:aBool
-    tagList hideDartFields:aBool.
-    self updateTagList
+    self hideFields:aBool
+"/    tagList hideDartFields:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:17:11 / cg"
 !
 
 hideDartInterfaces
-    ^ tagList hideDartInterfaces
+    ^ self hideInterfaces
+"/    ^ tagList hideDartInterfaces
+
+    "Modified: / 22-06-2017 / 11:16:29 / cg"
 !
 
 hideDartInterfaces:aBool
-    tagList hideDartInterfaces:aBool.
-    self updateTagList
+    self hideInterfaces:aBool
+"/    tagList hideDartInterfaces:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:17:00 / cg"
 !
 
 hideDartMethods
-    ^ tagList hideDartMethods
+    ^ self hideMethods
+"/    ^ tagList hideDartMethods
+
+    "Modified: / 22-06-2017 / 11:16:10 / cg"
 !
 
 hideDartMethods:aBool
-    tagList hideDartMethods:aBool.
-    self updateTagList
+    self hideMethods:aBool
+"/    tagList hideDartMethods:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:16:02 / cg"
 !
 
 hideDartPackages
-    ^ tagList hideDartPackages
+    ^ self hidePackages
+"/    ^ tagList hideDartPackages
+
+    "Modified: / 22-06-2017 / 11:07:19 / cg"
 !
 
 hideDartPackages:aBool
-    tagList hideDartPackages:aBool.
-    self updateTagList
+    self hidePackages:aBool
+"/    tagList hideDartPackages:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:07:41 / cg"
 !
 
 hideDataLabels
@@ -1704,6 +1791,19 @@
     "Created: / 08-05-2011 / 10:56:49 / cg"
 !
 
+hideFields
+    ^ tagList hideFields
+
+    "Created: / 22-06-2017 / 10:57:19 / cg"
+!
+
+hideFields:aBool
+    tagList hideFields:aBool.
+    self updateTagList
+
+    "Created: / 22-06-2017 / 10:57:25 / cg"
+!
+
 hideFunctionProtoTypes
     ^ tagList hideFunctionProtoTypes
 !
@@ -1722,49 +1822,92 @@
     self updateTagList
 !
 
+hideInterfaces
+    ^ tagList hideInterfaces
+
+    "Created: / 22-06-2017 / 11:16:37 / cg"
+!
+
+hideInterfaces:aBool
+    tagList hideInterfaces:aBool.
+    self updateTagList
+
+    "Created: / 22-06-2017 / 11:16:46 / cg"
+!
+
 hideJavaClasses
-    ^ tagList hideJavaClasses
+    ^ self hideClasses
+"/    ^ tagList hideJavaClasses
+
+    "Modified: / 22-06-2017 / 10:56:53 / cg"
 !
 
 hideJavaClasses:aBool
-    tagList hideJavaClasses:aBool.
-    self updateTagList
+    self hideClasses:aBool
+"/    tagList hideJavaClasses:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:55:56 / cg"
 !
 
 hideJavaFields
-    ^ tagList hideJavaFields
+    ^ self hideFields
+"/    ^ tagList hideJavaFields
+
+    "Modified: / 22-06-2017 / 11:13:01 / cg"
 !
 
 hideJavaFields:aBool
-    tagList hideJavaFields:aBool.
-    self updateTagList
+    self hideFields:aBool
+"/    tagList hideJavaFields:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:13:13 / cg"
 !
 
 hideJavaInterfaces
-    ^ tagList hideJavaInterfaces
+    ^ self hideInterfaces
+"/    ^ tagList hideJavaInterfaces
+
+    "Modified: / 22-06-2017 / 11:12:50 / cg"
 !
 
 hideJavaInterfaces:aBool
-    tagList hideJavaInterfaces:aBool.
-    self updateTagList
+    self hideInterfaces:aBool
+"/    tagList hideJavaInterfaces:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:12:40 / cg"
 !
 
 hideJavaMethods
-    ^ tagList hideJavaMethods
+    ^ self hideMethods
+"/    ^ tagList hideJavaMethods
+
+    "Modified: / 22-06-2017 / 11:12:12 / cg"
 !
 
 hideJavaMethods:aBool
-    tagList hideJavaMethods:aBool.
-    self updateTagList
+    self hideMethods:aBool
+"/    tagList hideJavaMethods:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:12:29 / cg"
 !
 
 hideJavaPackages
-    ^ tagList hideJavaPackages
+    ^ self hidePackages
+"/    ^ tagList hideJavaPackages
+
+    "Modified: / 22-06-2017 / 11:07:32 / cg"
 !
 
 hideJavaPackages:aBool
-    tagList hideJavaPackages:aBool.
-    self updateTagList
+    self hidePackages:aBool
+"/    tagList hideJavaPackages:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:07:49 / cg"
 !
 
 hideLabels
@@ -1848,21 +1991,33 @@
 !
 
 hideLuaFunctions
-    ^ tagList hideLuaFunctions
+    ^ self hideFunctions
+"/    ^ tagList hideLuaFunctions
+
+    "Modified: / 22-06-2017 / 11:13:30 / cg"
 !
 
 hideLuaFunctions:aBool
-    tagList hideLuaFunctions:aBool.
-    self updateTagList
+    self hideFunctions:aBool
+"/    tagList hideLuaFunctions:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:13:40 / cg"
 !
 
 hideLuaVariables
-    ^ tagList hideLuaVariables
+    ^ self hideVariables
+"/    ^ tagList hideLuaVariables
+
+    "Modified: / 22-06-2017 / 11:13:53 / cg"
 !
 
 hideLuaVariables:aBool
-    tagList hideLuaVariables:aBool.
-    self updateTagList
+    self hideVariables:aBool
+"/    tagList hideLuaVariables:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:14:02 / cg"
 !
 
 hideMethods
@@ -1879,66 +2034,121 @@
 !
 
 hideObjcClasses
-    ^ tagList hideObjcClasses
+    ^ self hideClasses
+"/    ^ tagList hideObjcClasses
+
+    "Modified: / 22-06-2017 / 10:56:47 / cg"
 !
 
 hideObjcClasses:aBool
-    tagList hideObjcClasses:aBool.
-    self updateTagList
+    self hideClasses:aBool
+"/    tagList hideObjcClasses:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:56:07 / cg"
 !
 
 hideOzClasses
-    ^ tagList hideOzClasses
+    ^ self hideClasses
+"/    ^ tagList hideOzClasses
+
+    "Modified: / 22-06-2017 / 10:56:44 / cg"
 !
 
 hideOzClasses:aBool
-    tagList hideOzClasses:aBool.
-    self updateTagList
+    self hideClasses:aBool
+"/    tagList hideOzClasses:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:56:14 / cg"
 !
 
 hideOzFunctions
-    ^ tagList hideOzFunctions
+    ^ self hideFunctions
+"/    ^ tagList hideOzFunctions
+
+    "Modified: / 22-06-2017 / 11:14:15 / cg"
 !
 
 hideOzFunctions:aBool
-    tagList hideOzFunctions:aBool.
-    self updateTagList
+    self hideFunctions:aBool 
+"/    tagList hideOzFunctions:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:14:30 / cg"
 !
 
 hideOzMethods
-    ^ tagList hideOzMethods
+    ^ self hideMethods
+"/    ^ tagList hideOzMethods
+
+    "Modified: / 22-06-2017 / 11:14:42 / cg"
 !
 
 hideOzMethods:aBool
-    tagList hideOzMethods:aBool.
+    self hideMethods:aBool
+"/    tagList hideOzMethods:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:14:52 / cg"
+!
+
+hidePackages
+    ^ tagList hidePackages
+
+    "Created: / 22-06-2017 / 10:55:00 / cg"
+!
+
+hidePackages:aBool
+    tagList hidePackages:aBool.
     self updateTagList
+
+    "Created: / 22-06-2017 / 10:55:21 / cg"
 !
 
 hidePythonClasses
-    ^ tagList hidePythonClasses
+    ^ self hideClasses
+"/    ^ tagList hidePythonClasses
+
+    "Modified: / 22-06-2017 / 10:56:37 / cg"
 !
 
 hidePythonClasses:aBool
-    tagList hidePythonClasses:aBool.
-    self updateTagList
+    self hideClasses:aBool
+"/    tagList hidePythonClasses:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:56:21 / cg"
 !
 
 hidePythonFunctions
-    ^ tagList hidePythonFunctions
+    ^ self hideFunctions
+"/    ^ tagList hidePythonFunctions
+
+    "Modified: / 22-06-2017 / 11:15:00 / cg"
 !
 
 hidePythonFunctions:aBool
-    tagList hidePythonFunctions:aBool.
-    self updateTagList
+    self hideFunctions:aBool
+"/    tagList hidePythonFunctions:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:15:11 / cg"
 !
 
 hidePythonMethods
-    ^ tagList hidePythonMethods
+    ^ self hideMethods
+"/    ^ tagList hidePythonMethods
+
+    "Modified: / 22-06-2017 / 11:15:19 / cg"
 !
 
 hidePythonMethods:aBool
-    tagList hidePythonMethods:aBool.
-    self updateTagList
+    self hideMethods:aBool
+"/    tagList hidePythonMethods:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 11:15:28 / cg"
 !
 
 hideStatic
@@ -1996,52 +2206,76 @@
 !
 
 javaClassesAndMethodsOnly
-    ^ tagList javaClassesAndMethodsOnly
+    ^ self classesAndMethodsOnly
+"/    ^ tagList javaClassesAndMethodsOnly
+
+    "Modified: / 22-06-2017 / 10:28:30 / cg"
 !
 
 javaClassesAndMethodsOnly:aBool
-    aBool ifTrue:[
-	tagList hideJavaClasses:false.
-	tagList hideJavaMethods:false.
-    ].
-    tagList javaClassesAndMethodsOnly:aBool.
-    self updateTagList
+    self classesAndMethodsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideJavaClasses:false.
+"/        tagList hideJavaMethods:false.
+"/    ].
+"/    tagList javaClassesAndMethodsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:26:00 / cg"
 !
 
 javaClassesOnly
-    ^ tagList javaClassesOnly
+    ^ self classesOnly
+"/    ^ tagList javaClassesOnly
+
+    "Modified: / 22-06-2017 / 10:28:23 / cg"
 !
 
 javaClassesOnly:aBool
-    aBool ifTrue:[
-	tagList hideJavaClasses:false.
-    ].
-    tagList javaClassesOnly:aBool.
-    self updateTagList
+    self classesOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideJavaClasses:false.
+"/    ].
+"/    tagList javaClassesOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:28:17 / cg"
 !
 
 javaMethodsOnly
-    ^ tagList javaMethodsOnly
+    ^ self methodsOnly
+"/    ^ tagList javaMethodsOnly
+
+    "Modified: / 22-06-2017 / 10:28:54 / cg"
 !
 
 javaMethodsOnly:aBool
-    aBool ifTrue:[
-	tagList hideJavaMethods:false.
-    ].
-    tagList javaMethodsOnly:aBool.
-    self updateTagList
+    self methodsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideJavaMethods:false.
+"/    ].
+"/    tagList javaMethodsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:29:05 / cg"
 !
 
 luaFunctionsOnly
-    ^ tagList luaFunctionsOnly
+    ^ self functionsOnly
+"/    ^ tagList luaFunctionsOnly
+
+    "Modified: / 22-06-2017 / 10:29:22 / cg"
 !
 
 luaFunctionsOnly:aBool
-    aBool ifTrue:[
-	tagList hideLuaFunctions:false.
-    ].
-    tagList luaFunctionsOnly:aBool.
-    self updateTagList
+    self functionsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hideLuaFunctions:false.
+"/    ].
+"/    tagList luaFunctionsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:29:33 / cg"
 !
 
 macrosOnly
@@ -2077,39 +2311,57 @@
 !
 
 pythonClassesOnly
-    ^ tagList pythonClassesOnly
+    ^ self classesOnly
+"/    ^ tagList pythonClassesOnly
+
+    "Modified: / 22-06-2017 / 10:33:33 / cg"
 !
 
 pythonClassesOnly:aBool
-    aBool ifTrue:[
-	tagList hidePythonClasses:false.
-    ].
-    tagList pythonClassesOnly:aBool.
-    self updateTagList
+    self classesOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hidePythonClasses:false.
+"/    ].
+"/    tagList pythonClassesOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:33:44 / cg"
 !
 
 pythonFunctionsOnly
-    ^ tagList pythonFunctionsOnly
+    ^ self functionsOnly
+"/    ^ tagList pythonFunctionsOnly
+
+    "Modified: / 22-06-2017 / 10:29:53 / cg"
 !
 
 pythonFunctionsOnly:aBool
-    aBool ifTrue:[
-	tagList hidePythonFunctions:false.
-    ].
-    tagList pythonFunctionsOnly:aBool.
-    self updateTagList
+    self functionsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hidePythonFunctions:false.
+"/    ].
+"/    tagList pythonFunctionsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:29:44 / cg"
 !
 
 pythonMethodsOnly
-    ^ tagList pythonMethodsOnly
+    ^ self methodsOnly
+"/    ^ tagList pythonMethodsOnly
+
+    "Modified: / 22-06-2017 / 10:33:58 / cg"
 !
 
 pythonMethodsOnly:aBool
-    aBool ifTrue:[
-	tagList hidePythonMethods:false.
-    ].
-    tagList pythonMethodsOnly:aBool.
-    self updateTagList
+    self methodsOnly:aBool
+"/    aBool ifTrue:[
+"/        tagList hidePythonMethods:false.
+"/    ].
+"/    tagList pythonMethodsOnly:aBool.
+"/    self updateTagList
+
+    "Modified: / 22-06-2017 / 10:34:11 / cg"
 !
 
 structsOnly
@@ -2472,12 +2724,9 @@
      Update the valueHolders which keep track of the edited files type (i.e. language)
     "
 
-    |edFile suffix mime|
+    |edFile mime|
 
     edFile := self editedFile.
-"/    edFile notNil ifTrue:[
-"/        suffix := edFile suffix.
-"/    ].
 
     mime := TagList tagMimeTypeForFile:edFile.
 
@@ -2486,7 +2735,7 @@
           (editedFileHasJavaSuffix      ('text/java' 'application/x-java-source'))
           (editedFileHasJavaScriptSuffix ('text/javaScript' 'text/javascript' 'application/x-javascript' 'application/x-javascript-source') )
           (editedFileHasDartSuffix      ('text/dart' 'application/x-dart' 'application/x-dart-source') )
-          (editedFileHasCSuffix         ('text/c' 'application/x-c-source'))
+          (editedFileHasCSuffix         ('text/c' 'application/x-c-source' 'text/cpp' 'application/x-cpp-source'))
           (editedFileHasEiffelSuffix    ('text/eiffel' 'application/x-eiffel-source'))
           (editedFileHasFortranSuffix   ('text/fortran' 'application/x-fortran-source'))
           (editedFileHasPythonSuffix    ('text/python' 'application/x-python-source'))
@@ -2512,7 +2761,7 @@
     ].
     self structsOnlyVisibleHolder value:(self editedFileHasCSuffix value).
 
-    "Modified: / 21-08-2012 / 20:54:08 / cg"
+    "Modified (comment): / 22-06-2017 / 11:29:52 / cg"
 !
 
 updateForLine:lineNr