13 lines
177 B
Tcl
13 lines
177 B
Tcl
|
|
||
|
|
if [ catch { load ./overload_copy[info sharedlibextension] Overload_copy} err_msg ] {
|
||
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
||
|
|
}
|
||
|
|
|
||
|
|
Foo f
|
||
|
|
Foo g [f cget -this]
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|