source ../../oo.tcl @import core.* #- creating new object o = [Object new] #- can it respond to desc message ? if [$o respondsTo: desc] { puts stderr [$o desc] } #- playing with referrence count puts stderr "refCount: [$o refCount]" for {i = 0} {$i < 3} {incr i} { $o retain puts stderr "refCount: [$o refCount]" } for {i = 0} {$i < 3} {incr i} { $o release puts stderr "refCount: [$o refCount]" } #- releasing object $o release