forked from hummypkg/webif
10 lines
146 B
Plaintext
10 lines
146 B
Plaintext
|
|
||
|
|
if {[expr ! [exists -proc classdump]]} {
|
||
|
|
proc classdump {o} {
|
||
|
|
foreach var [$o vars] {
|
||
|
|
puts [format {%20s %s} $var [$o get $var]]
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|