Tcl patches. Use [info sharedlibextension] to get file extension rather than hard-coding it]

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@5301 626c5289-ae23-0410-ae9c-e8d60b6d4f22

SWIG/Examples/tcl/import/runme.tcl

@@ -2,17 +2,10 @@
 # Test various properties of classes defined in separate modules
 
 puts "Testing the %import directive"
-catch { load ./base.so base}
-catch { load ./base.dll base}    ;# Windows
-
-catch { load ./foo.so foo}
-catch { load ./foo.dll foo}    ;# Windows
-
-catch { load ./bar.so bar}
-catch { load ./bar.dll bar}    ;# Windows
-
-catch { load ./spam.so spam}
-catch { load ./spam.dll spam}    ;# Windows
+catch { load ./base[info sharedlibextension] base}
+catch { load ./foo[info sharedlibextension] foo}
+catch { load ./bar[info sharedlibextension] bar}
+catch { load ./spam[info sharedlibextension] spam}
 
 # Create some objects