f50eac41ce
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5301 626c5289-ae23-0410-ae9c-e8d60b6d4f22
32 lines
684 B
Tcl
32 lines
684 B
Tcl
# file: example.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
|
|
|