516036631c
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
18 lines
373 B
Tcl
18 lines
373 B
Tcl
|
|
if { [ string match $tcl_platform(platform) "windows" ] == 1 } {
|
|
if [ catch { load ./overload_copy.dll overload_copy} err_msg ] {
|
|
puts stderr "Could not load dll:\n$err_msg"
|
|
}
|
|
} else {
|
|
if [ catch { load ./overload_copy.so overload_copy} err_msg ] {
|
|
puts stderr "Could not load shared object:\n$err_msg"
|
|
}
|
|
}
|
|
|
|
Foo f
|
|
Foo g [f cget -this]
|
|
|
|
|
|
|
|
|
|
|