PageRenderTime 26ms CodeModel.GetById 20ms app.highlight 5ms RepoModel.GetById 1ms app.codeStats 0ms

/tags/rel-1.3.35/Examples/test-suite/tcl/overload_copy_runme.tcl

#
TCL | 12 lines | 5 code | 7 blank | 0 comment | 1 complexity | affec72eece4294224f69352cf091c3c MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
 1
 2if [ catch { load ./overload_copy[info sharedlibextension] overload_copy} err_msg ] {
 3	puts stderr "Could not load shared object:\n$err_msg"
 4}
 5
 6Foo f
 7Foo g [f cget -this]
 8
 9
10
11
12