The great merge
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@4141 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
5fcae5eb66
commit
12a43edc2d
1508 changed files with 125983 additions and 44037 deletions
18
Examples/test-suite/tcl/overload_copy_runme.tcl
Normal file
18
Examples/test-suite/tcl/overload_copy_runme.tcl
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
|
||||
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]
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue