Examples/test-suite/tcl/union_parameter_runme.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
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 ""
}