Disabled/fixed segments that produced doxygen warnings while running the test

5 files changed, 24 insertions, 64 deletions

diff --git a/testing/060/060__command__switch_8tcl.xml b/testing/060/060__command__switch_8tcl.xml
index d9424ef..05e01c6 100644
--- a/testing/060/060__command__switch_8tcl.xml
+++ b/testing/060/060__command__switch_8tcl.xml
@@ -35,8 +35,6 @@
         <referencedby refid="060__command__switch_8tcl_1ab678a0a9a7e94bce5b17141f40220d88" compoundref="060__command__switch_8tcl" startline="176" endline="185">q</referencedby>
         <referencedby refid="060__command__switch_8tcl_1a0a0bd3dc69dd06934c4e6362155e0ace" compoundref="060__command__switch_8tcl" startline="186" endline="195">r</referencedby>
         <referencedby refid="060__command__switch_8tcl_1a011c73f2dbb87635a3b4206c72355f6e" compoundref="060__command__switch_8tcl" startline="196" endline="205">s</referencedby>
-        <referencedby refid="060__command__switch_8tcl_1a429306927a4581ad93fac620e605eec5" compoundref="060__command__switch_8tcl" startline="207" endline="210">x</referencedby>
-        <referencedby refid="060__command__switch_8tcl_1a32b6e5206a2cc75dbb8ed2eff74f5ce4" compoundref="060__command__switch_8tcl" startline="215" endline="229">y</referencedby>
       </memberdef>
       <memberdef kind="function" id="060__command__switch_8tcl_1a3f55465410c57ed00ab28827a741b1c3" prot="public" static="no" const="no" explicit="no" inline="no" virt="non-virtual">
         <type/>
@@ -51,7 +49,6 @@
         <inbodydescription>
         </inbodydescription>
         <location file="060_command_switch.tcl" bodystart="16" bodyend="19"/>
-        <referencedby refid="060__command__switch_8tcl_1a32b6e5206a2cc75dbb8ed2eff74f5ce4" compoundref="060__command__switch_8tcl" startline="215" endline="229">y</referencedby>
       </memberdef>
       <memberdef kind="function" id="060__command__switch_8tcl_1ab08ae027fc5777bc4f0629f1b60b35db" prot="public" static="no" const="no" explicit="no" inline="no" virt="non-virtual">
         <type/>
@@ -319,35 +316,6 @@
         <location file="060_command_switch.tcl" bodystart="196" bodyend="205"/>
         <references refid="060__command__switch_8tcl_1aa889853547f65a22ae133cd57ff89601" compoundref="060__command__switch_8tcl" startline="10" endline="13">Invoked</references>
       </memberdef>
-      <memberdef kind="function" id="060__command__switch_8tcl_1a429306927a4581ad93fac620e605eec5" prot="public" static="no" const="no" explicit="no" inline="no" virt="non-virtual">
-        <type/>
-        <definition>x</definition>
-        <argsstring>args</argsstring>
-        <name>x</name>
-        <briefdescription>
-        </briefdescription>
-        <detaileddescription>
-        </detaileddescription>
-        <inbodydescription>
-        </inbodydescription>
-        <location file="060_command_switch.tcl" bodystart="207" bodyend="210"/>
-        <references refid="060__command__switch_8tcl_1aa889853547f65a22ae133cd57ff89601" compoundref="060__command__switch_8tcl" startline="10" endline="13">Invoked</references>
-      </memberdef>
-      <memberdef kind="function" id="060__command__switch_8tcl_1a32b6e5206a2cc75dbb8ed2eff74f5ce4" prot="public" static="no" const="no" explicit="no" inline="no" virt="non-virtual">
-        <type/>
-        <definition>y</definition>
-        <argsstring>args</argsstring>
-        <name>y</name>
-        <briefdescription>
-        </briefdescription>
-        <detaileddescription>
-        </detaileddescription>
-        <inbodydescription>
-        </inbodydescription>
-        <location file="060_command_switch.tcl" bodystart="215" bodyend="229"/>
-        <references refid="060__command__switch_8tcl_1aa889853547f65a22ae133cd57ff89601" compoundref="060__command__switch_8tcl" startline="10" endline="13">Invoked</references>
-        <references refid="060__command__switch_8tcl_1a3f55465410c57ed00ab28827a741b1c3" compoundref="060__command__switch_8tcl" startline="16" endline="19">NotInvoked</references>
-      </memberdef>
     </sectiondef>
     <briefdescription>
     </briefdescription>
diff --git a/testing/060_command_switch.tcl b/testing/060_command_switch.tcl
index ab556d0..407f2e9 100644
--- a/testing/060_command_switch.tcl
+++ b/testing/060_command_switch.tcl
@@ -204,29 +204,29 @@ proc s args {
     return
 }
 # wrong syntax
-proc x args {
-    catch {switch -exact -- [Invoked] pattern1 NotInvoked pattern2}
-    return
-}
+#proc x args {
+#    catch {switch -exact -- [Invoked] pattern1 NotInvoked pattern2}
+#    return
+#}
 # The current version does not check the last argument beforehand.
 # Therefore, all script elements are evaluated as scripts before
 # the parser detects the dangling pattern. It throws a warning, at the very least.
 # Anyway, for working code the documentation will be correct.
-proc y args {
-    catch {switch -exact -- [Invoked] {
-        pattern {
-            NotInvoked
-        }
-        NotInvoked {
-            NotInvoked
-        }
-        default {
-            NotInvoked
-        }
-        pattern
-    }}
-    return
-}
+#proc y args {
+#    catch {switch -exact -- [Invoked] {
+#        pattern {
+#            NotInvoked
+#        }
+#        NotInvoked {
+#            NotInvoked
+#        }
+#        default {
+#            NotInvoked
+#        }
+#        pattern
+#    }}
+#    return
+#}
 #
 # call all single letter procs
 # let tcl check what is called and what is not called
diff --git a/testing/063/namespaceoo_1_1_helpers.xml b/testing/063/namespaceoo_1_1_helpers.xml
index 5f157c8..ff309cf 100644
--- a/testing/063/namespaceoo_1_1_helpers.xml
+++ b/testing/063/namespaceoo_1_1_helpers.xml
@@ -11,12 +11,11 @@
         <briefdescription>
         </briefdescription>
         <detaileddescription>
-          <para>Extension to TclOO to add static variables. Defines variables on the class instead of on the object. Can be used to enforce a limited number of instantiations. <simplesect kind="warning"><para>Do not modify! (unless you're waaay smarter than the writer of the below Tcl/Tk book). flynt2012tcl </para></simplesect>
-</para>
+          <para>Extension to TclOO to add static variables. Defines variables on the class instead of on the object. Can be used to enforce a limited number of instantiations. </para>
         </detaileddescription>
         <inbodydescription>
         </inbodydescription>
-        <location file="063_bug_729092.tcl" bodystart="40" bodyend="49"/>
+        <location file="063_bug_729092.tcl" bodystart="34" bodyend="43"/>
       </memberdef>
     </sectiondef>
     <briefdescription>
diff --git a/testing/063/namespaceoo_1_1define.xml b/testing/063/namespaceoo_1_1define.xml
index 50891e6..aa62fbd 100644
--- a/testing/063/namespaceoo_1_1define.xml
+++ b/testing/063/namespaceoo_1_1define.xml
@@ -11,12 +11,11 @@
         <briefdescription>
         </briefdescription>
         <detaileddescription>
-          <para>Extension to TclOO to add static methods. Defines the method on the class instead of on the object. Can be used for the creation of megawidgets using TclOO by overriding the unknown method to detect if the user is trying to instantiate a widget (because the method will be unknown and start with a dot). <simplesect kind="warning"><para>Do not modify! (unless you're waaay smarter than the writer of the below Tcl/Tk book). flynt2012tcl </para></simplesect>
-</para>
+          <para>Extension to TclOO to add static methods. Defines the method on the class instead of on the object. Can be used for the creation of megawidgets using TclOO by overriding the unknown method to detect if the user is trying to instantiate a widget (because the method will be unknown and start with a dot). </para>
         </detaileddescription>
         <inbodydescription>
         </inbodydescription>
-        <location file="063_bug_729092.tcl" bodystart="21" bodyend="30"/>
+        <location file="063_bug_729092.tcl" bodystart="18" bodyend="27"/>
       </memberdef>
     </sectiondef>
     <briefdescription>
diff --git a/testing/063_bug_729092.tcl b/testing/063_bug_729092.tcl
index 7c35f95..a6d3341 100644
--- a/testing/063_bug_729092.tcl
+++ b/testing/063_bug_729092.tcl
@@ -14,9 +14,6 @@
 # the creation of megawidgets using TclOO by overriding the unknown method to
 # detect if the user is trying to instantiate a widget (because the method
 # will be unknown and start with a dot).
-# @warning Do not modify! (unless you're waaay smarter than the writer of the
-# below Tcl/Tk book).
-# @cite flynt2012tcl
 #
 proc ::oo::define::classmethod {name {args ""} {body ""}} {
     # Create the method on the class if the caller gave arguments and body.
@@ -33,9 +30,6 @@ proc ::oo::define::classmethod {name {args ""} {body ""}} {
 # Extension to TclOO to add static variables.
 # Defines variables on the class instead of on the object. Can be used to
 # enforce a limited number of instantiations.
-# @warning Do not modify! (unless you're waaay smarter than the writer of the
-# below Tcl/Tk book).
-# @cite flynt2012tcl
 #
 proc ::oo::Helpers::classvar {args} {
     # Get reference to class's namespace.
@@ -46,4 +40,4 @@ proc ::oo::Helpers::classvar {args} {
         uplevel "my variable $v"
         upvar #0 ${nsCl}::$v ${nsObj}::$v
     }
-}
\ No newline at end of file
+}