1 files changed, 32 insertions, 0 deletions
diff --git a/Examples/tcl/enum/runme.tcl b/Examples/tcl/enum/runme.tcl
new file mode 100644
index 0000000..3d4e52a
--- /dev/null
+++ b/Examples/tcl/enum/runme.tcl
@@ -0,0 +1,32 @@
+# file: runme.tcl
+
+catch { load ./example[info sharedlibextension] example}
+
+# ----- 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
+