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 emiliano
1 days ago
tcl by mookie
1 days ago
tcl by schelte
5 days ago
tcl by oldlaptop
18 days ago
tcl by mookie
24 days ago
tcl by dandyn
31 days ago
tcl by Bradipo
31 days ago
tcl by Bradipo
31 days ago
tcl by oldlaptop
55 days ago
tcl by oldlaptop
55 days ago
Submit
New paste
Documentation
From Jabber