New example

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

SWIG/Examples/tcl/enum/example.tcl

@@ -0,0 +1,34 @@
+# file: example.tcl
+
+
+catch { load ./example.so example}
+catch { load ./example.dll example}    ;# Windows
+
+# ----- Object creation -----
+
+# Print out the value of some enums
+puts "*** color ***"
+puts "    RED    = $RED"
+puts "    BLUE   = $BLUE"
+puts "    GREEN  = $GREEN"
+
+puts "\n*** Foo::speed ***"
+puts "    Foo_IMPULSE   = $Foo_IMPULSE"
+puts "    Foo_WARP      = $Foo_WARP"
+puts "    Foo_LUDICROUS = $Foo_LUDICROUS"
+
+
+puts "\nTesting use of enums with functions\n"
+
+enum_test $RED   $Foo_IMPULSE
+enum_test $BLUE  $Foo_WARP
+enum_test $GREEN $Foo_LUDICROUS
+enum_test 1234   5678
+
+puts "\nTesting use of enum with class method"
+Foo f
+
+f enum_test $Foo_IMPULSE
+f enum_test $Foo_WARP
+f enum_test $Foo_LUDICROUS
+