[:as_text]
[:?var :@class-attribute { [:!let class_attrs [:!get -sortedby name -with name @class-attribute]] }]

Provided Parameters

[:? {[info exists class_attrs]} {

[:for attr [dict values $class_attrs] { [$attr name] }]

}] [:!let iattrs [:inherited @class-attribute]] [:? {$iattrs ne ""} { [:for superclass [dict keys $iattrs] { [:!let attrs [dict values [dict get $iattrs $superclass]]]
Parameters inherited from [$superclass name]

[:for a $attrs { [$a name] }]

}] }] [:? {[info exists class_attrs]} {
[:for attr [dict values $class_attrs] {
[$attr name]

[$attr as_text]

}]
}]
[:?var :@class-method { [:!let class_methods [:!get -sortedby name @class-method]] }]

Provided Methods

[:? {[info exists class_methods]} {

[:for m $class_methods { [$m name] }]

}] [:!let imethods [:inherited @class-method]] [:? {$imethods ne ""} { [:for superclass [dict keys $imethods] { [:!let ms [dict values [dict get $imethods $superclass]]]
Methods inherited from [$superclass name]

[:for m $ms { [$m name] }]

}] }] [:? {[info exists class_methods]} { [:for m $class_methods { [:? {[info exists class_attrs] && [dict exists $class_attrs [$m name]]} { [$m render -initscript [list set owning_attribute [dict get $class_attrs [$m name]]] attributemethod] } - { [$m render] }] }] }]
[:?var :@object-method { [:!let omethods [:!get -sortedby name @object-method]]

Per-Object Methods

[:for om $omethods { [$om name] }]

[:for om $omethods { [$om render] }]
}]