/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 

    

  1. if [ catch { load ./overload_copy[info sharedlibextension] overload_copy} err_msg ] {
    2. 

  2. 	puts stderr "Could not load shared object:\n$err_msg"
    3. 

  3. }
    4. 

  4. 

  5. Foo f
    6. 

  6. Foo g [f cget -this]
    7.