33 lines
682 B
Tcl
33 lines
682 B
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
|
|
|