Posted to tcl by evilotto at Tue Dec 08 23:29:10 GMT 2015view pretty

oo::class create Aclass {
    method thing {} {
        callthings
    }
    method nothing {} {
        my destroy
        callthings
    }
}

proc callthings {} {
    foreach obj [info class instances Aclass] {
        puts "$obj -> [info object class $obj]"
    }
}

Aclass create foo
Aclass create bar
foo thing
bar nothing