/tags/Root-branch-php-utl/SWIG/Examples/tcl/enum/runme.tcl

# 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