1 files changed, 0 insertions, 82 deletions
diff --git a/examples/tclexample.tcl b/examples/tclexample.tcl
deleted file mode 100644
index e512aee..0000000
--- a/examples/tclexample.tcl
+++ /dev/null
@@ -1,82 +0,0 @@
-## \file tclexample.tcl
-# File documentation.
-#\verbatim
-
-# Startup code:\
-exec tclsh "$0" "$@"
-#\endverbatim
-## Documented namespace \c ns .
-# The code is inserted here:
-#\code
-namespace eval ns {
-  ## Documented proc \c ns_proc .
-  # \param[in] arg some argument
-  proc ns_proc {arg} {}
-  ## Documented var \c ns_var .
-  # Some documentation.
-  variable ns_var
-  ## Documented itcl class \c itcl_class .
-  itcl::class itcl_class {
-    ## Create object.
-    constructor {args} {eval $args}
-    ## Destroy object.
-    destructor {exit}
-    ## Documented itcl method \c itcl_method_x .
-    # \param[in] arg Argument
-    private method itcl_method_x {arg}
-    ## Documented itcl method \c itcl_method_y .
-    # \param[in] arg Argument
-    protected method itcl_method_y {arg} {}
-    ## Documented itcl method \c itcl_method_z .
-    # \param[in] arg Argument
-    public method itcl_method_z {arg} {}
-    ## Documented common itcl var \c itcl_Var .
-    common itcl_Var
-    ## \protectedsection
-    
-    variable itcl_var1;#< Documented itcl var \c itcl_var1 .
-    variable itcl_var2;#< Documented itcl var \c itcl_var2 .
-  }
-  ## Documented oo class \c oo_class .
-  oo::class create oo_class {
-    ## Create object.
-    # Configure with args
-    constructor {args} {eval $args}
-    ## Destroy object.
-    # Exit.
-    destructor {exit}
-    ## Documented oo var \c oo_var .
-    # Defined inside class
-    variable oo_var
-    ## \private Documented oo method \c oo_method_x .
-    # \param[in] arg Argument
-    method oo_method_x {arg} {}
-    ## \protected Documented oo method \c oo_method_y .
-    # \param[in] arg Argument
-    method oo_method_y {arg} {}
-    ## \public Documented oo method \c oo_method_z .
-    # \param[in] arg Argument
-    method oo_method_z {arg} {}
-  }
-}
-#\endcode
-
-itcl::body ::ns::itcl_class::itcl_method_x {argx} {
-  puts "$argx OK"
-}
-
-oo::define ns::oo_class {
-  ## \public Outside defined variable \c oo_var_out .
-  # Inside oo_class
-  variable oo_var_out
-}
-
-## Documented global proc \c glob_proc .
-# \param[in] arg Argument
-proc glob_proc {arg} {puts $arg}
-
-variable glob_var;#< Documented global var \c glob_var\
-  with newline
-#< and continued line
-
-# end of file