xo::dotclass (private)

 xo::dotclass [ -is_focus is_focus ] [ -hide_methods hide_methods ] \
    [ -documented_methods documented_methods ] e

Defined in packages/xotcl-core/tcl/doc-procs.tcl

Switches:

-is_focus (optional, defaults to "0")

-hide_methods (optional, defaults to "1")

-documented_methods (optional, defaults to "1")

Parameters:

e (required)

Partial Call Graph (max 5 caller/called nodes):

Testcases:

No testcase defined.

Source code:

        set definition ""
        if {$is_focus} {
            set style "style=filled,penwidth=1.5,color=bisque4,fillcolor=beige,"
        } else {
            set style ""
        }
        set url [export_vars -base show-object {{object $e}}]
        append definition "[dotquote $e] \[${style}URL=\"$url\",label=\"\{$e|"
        foreach slot [$e info slots] {
            set name ""
            catch {set name $slot name}
            if {$name ne ""} {
                append definition "[$slot name]\\l"
            }
        }
        append definition "|"
        ::xo::api scope_from_object_reference scope e
        set methods [list]
        if {!$hide_methods} {
            dot_append_method -documented_methods $documented_methods $e methods proc
            dot_append_method -documented_methods $documented_methods $e methods instproc
            dot_append_method -documented_methods $documented_methods $e methods instforward
        }
        foreach method [lsort $methods] {
            append definition "$method\\l"
        }
        append definition "\}\"\];\n"

XQL Not present:

Generic, PostgreSQL, Oracle