It LIVES 0
Posted to
tcl
by colin at Sun Nov 14 22:12:45 GMT 2010
view raw
oo::class create Foo {
destructor {
variable
live 0
puts
stderr "destroying"
}
method bar {} {
variable
live 1
my
destroy
puts
stderr "It LIVES
$live
"
}
}
Foo create moop
moop bar
Recent Posts
tcl by schelte
1 days ago
tcl by oldlaptop
14 days ago
tcl by mookie
20 days ago
tcl by dandyn
27 days ago
tcl by Bradipo
27 days ago
tcl by Bradipo
27 days ago
tcl by oldlaptop
51 days ago
tcl by oldlaptop
51 days ago
tcl by mookie
56 days ago
tcl by mookie
57 days ago
Submit
New paste
Documentation
From Jabber