# 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