I want to extend TclOO following an example from the 'Tcl/Tk: A developers guide' book and I have written the following tcl code:

-----------------------------------------------------------------------------
##
# 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).
# @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.
    if {[llength [info level 0]] == 4} {
        uplevel 1 [list self method $name $args $body]
    }
    # Get the name of the class being defined.
    set cls [lindex [info level -1] 1]
    # Make connection to private class "my" command by forwarding.
    uplevel forward $name [info object namespace $cls]::my $name
}

##
# 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.
    set nsCl [info object namespace [uplevel 1 {self class}]]
    set nsObj [uplevel 1 {namespace current}]
    # Link variables into local (caller's) scope.
    foreach v $args {
        uplevel "my variable $v"
        upvar #0 ${nsCl}::$v ${nsObj}::$v
    }
}
-----------------------------------------------------------------------------

The documentation is generated, but only the brief description is shown, there is a 'More...' link, but the full procedure documentation is not generated.