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/SWIG@5301 626c5289-ae23-0410-ae9c-e8d60b6d4f22

Examples/tcl/class/example1.tcl

@@ -4,8 +4,7 @@
 # created by SWIG.  In this case, all of our C++ classes
 # get converted into function calls.
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----
 

Examples/tcl/class/example2.tcl

@@ -3,8 +3,7 @@
 # This file illustrates the high level C++ interface.
 # In this case C++ classes work kind of like Tk widgets
 
-catch { load ./example.so example}
-catch { load ./example.dll example}    ;# Windows
+catch { load ./example[info sharedlibextension] example}
 
 # ----- Object creation -----