oo::objdefine
Posted to
tcl
by stu at Mon Jul 16 20:01:28 GMT 2018
view raw
oo::class create A
oo::class create B
set
a [A new]
foreach
i [
split
abcdefghijklmnopqrstuvwxyz ""] {
catch
{oo::objdefine
$a
$i
B} r
puts
$i
:
$r
}
Recent Posts
tcl by kotrcka
21 days ago
tcl by kotrcka
21 days ago
tcl by aspect
39 days ago
tcl by libertas
39 days ago
tcl by avl
42 days ago
tcl by vktec
42 days ago
tcl by vktec
42 days ago
tcl by Bradipo
43 days ago
tcl by oldlaptop
59 days ago
tcl by oldlaptop
62 days ago
Submit
New paste
Documentation
From Jabber