jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix union.i module name and rename to union_parameter.i

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@11060 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2009-01-12 11:42:27 +00:00
commit c07efac296
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

36
Examples/test-suite/tcl/union_parameter_runme.tcl Normal file
View file

@ -0,0 +1,36 @@
if [ catch { load ./union_parameter[info sharedlibextension] union_parameter} err_msg ] {
puts stderr "Could not load shared object:\n$err_msg"
}
set event [SDL_Event]
for { set i 0 } { $i < 2 } { incr i } {
# puts -nonewline "Loop $i: "
set evAvailable [SDL_PollEvent $event]
set evType [$event cget -type]
# puts "evType = $evType"
if { $evType == 1 } {
set specEvent [$event cget -active]
# puts "specEvent = $specEvent"
set type [$specEvent cget -type]
if { $type != $evType } {
error "Type $type should be $evType"
}
set gain [$specEvent cget -gain]
set state [$specEvent cget -state]
# puts "gain=$gain state=$state"
}
if { $evType == 2 } {
set specEvent [$event cget -key]
# puts "specEvent = $specEvent"
set type [$specEvent cget -type]
if { $type != $evType } {
error "Type $type should be $evType"
}
set which [$specEvent cget -which]
set state [$specEvent cget -state]
# puts "which=$which state=$state"
}
# puts ""
}