Artifact
053ec4dd63c7eda1afbee5bc12abf6cf6cde2a2e
File
jni/sdl2tk/library/demos/android_demo.tcl
— part of check-in
[69a58f836d]
at
2015-01-28 16:39:19
on branch trunk
— added support for joysticks/game controller
(user:
chw
size: 5260)
0000: 23 20 41 6e 64 72 6f 69 64 20 64 65 6d 6f 20 66 # Android demo f
0010: 6f 72 20 61 63 63 65 6c 65 72 6f 6d 65 74 65 72 or accelerometer
0020: 2c 20 61 70 70 20 6c 69 66 65 20 63 79 63 6c 65 , app life cycle
0030: 2c 20 66 69 6e 67 65 72 20 65 76 65 6e 74 73 0a , finger events.
0040: 0a 70 72 6f 63 20 61 64 65 6d 6f 20 7b 7d 20 7b .proc ademo {} {
0050: 0a 20 20 20 20 67 6c 6f 62 61 6c 20 61 64 65 6d . global adem
0060: 6f 0a 20 20 20 20 23 20 70 61 6e 2f 7a 6f 6f 6d o. # pan/zoom
0070: 20 70 6c 75 73 20 74 72 61 6e 73 6c 61 74 65 64 plus translated
0080: 20 66 69 6e 67 65 72 20 65 76 65 6e 74 73 0a 20 finger events.
0090: 20 20 20 63 61 74 63 68 20 7b 73 64 6c 74 6b 20 catch {sdltk
00a0: 74 6f 75 63 68 74 72 61 6e 73 6c 61 74 65 20 31 touchtranslate 1
00b0: 32 7d 0a 20 20 20 20 77 6d 20 70 72 6f 74 6f 63 2}. wm protoc
00c0: 6f 6c 20 2e 20 57 4d 5f 44 45 4c 45 54 45 5f 57 ol . WM_DELETE_W
00d0: 49 4e 44 4f 57 20 61 64 65 6d 6f 5f 64 6f 6e 65 INDOW ademo_done
00e0: 0a 20 20 20 20 77 6d 20 61 74 74 72 69 62 75 74 . wm attribut
00f0: 65 20 2e 20 2d 66 75 6c 6c 73 63 72 65 65 6e 20 e . -fullscreen
0100: 31 0a 0a 20 20 20 20 6c 61 62 65 6c 66 72 61 6d 1.. labelfram
0110: 65 20 2e 61 6d 20 2d 74 65 78 74 20 22 41 63 63 e .am -text "Acc
0120: 65 6c 65 72 6f 6d 65 74 65 72 22 20 2d 70 61 64 elerometer" -pad
0130: 78 20 35 20 2d 70 61 64 79 20 35 0a 20 20 20 20 x 5 -pady 5.
0140: 70 61 63 6b 20 2e 61 6d 20 2d 73 69 64 65 20 74 pack .am -side t
0150: 6f 70 20 2d 70 61 64 78 20 35 20 2d 70 61 64 79 op -padx 5 -pady
0160: 20 35 20 2d 61 6e 63 68 6f 72 20 6e 77 0a 20 20 5 -anchor nw.
0170: 20 20 73 65 74 20 72 6f 77 20 30 0a 20 20 20 20 set row 0.
0180: 66 6f 72 65 61 63 68 20 61 78 69 73 20 7b 31 20 foreach axis {1
0190: 32 20 33 7d 20 7b 0a 20 20 20 20 20 20 20 20 6c 2 3} {. l
01a0: 61 62 65 6c 20 2e 61 6d 2e 61 24 61 78 69 73 20 abel .am.a$axis
01b0: 2d 74 65 78 74 20 24 61 78 69 73 0a 20 20 20 20 -text $axis.
01c0: 20 20 20 20 6c 61 62 65 6c 20 2e 61 6d 2e 76 24 label .am.v$
01d0: 61 78 69 73 20 2d 74 65 78 74 76 61 72 69 61 62 axis -textvariab
01e0: 6c 65 20 61 64 65 6d 6f 28 61 24 61 78 69 73 29 le ademo(a$axis)
01f0: 20 2d 77 69 64 74 68 20 38 20 5c 0a 09 20 20 20 -width 8 \..
0200: 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b 65 6e 20 -relief sunken
0210: 2d 62 67 20 23 46 46 46 46 46 46 0a 09 67 72 69 -bg #FFFFFF..gri
0220: 64 20 2e 61 6d 2e 61 24 61 78 69 73 20 2d 72 6f d .am.a$axis -ro
0230: 77 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 30 w $row -column 0
0240: 0a 09 67 72 69 64 20 2e 61 6d 2e 76 24 61 78 69 ..grid .am.v$axi
0250: 73 20 2d 72 6f 77 20 24 72 6f 77 20 2d 63 6f 6c s -row $row -col
0260: 75 6d 6e 20 31 0a 09 69 6e 63 72 20 72 6f 77 0a umn 1..incr row.
0270: 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 61 64 }. set ad
0280: 65 6d 6f 28 61 63 63 65 6c 29 20 30 0a 20 20 20 emo(accel) 0.
0290: 20 66 72 61 6d 65 20 2e 61 6d 2e 62 0a 20 20 20 frame .am.b.
02a0: 20 67 72 69 64 20 2e 61 6d 2e 62 20 2d 72 6f 77 grid .am.b -row
02b0: 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 30 20 $row -column 0
02c0: 2d 63 6f 6c 75 6d 6e 73 70 61 6e 20 32 20 2d 70 -columnspan 2 -p
02d0: 61 64 78 20 33 0a 20 20 20 20 72 61 64 69 6f 62 adx 3. radiob
02e0: 75 74 74 6f 6e 20 2e 61 6d 2e 62 2e 6f 6e 20 2d utton .am.b.on -
02f0: 74 65 78 74 20 4f 6e 20 2d 77 69 64 74 68 20 35 text On -width 5
0300: 20 2d 76 61 72 69 61 62 6c 65 20 61 64 65 6d 6f -variable ademo
0310: 28 61 63 63 65 6c 29 20 5c 0a 09 2d 76 61 6c 75 (accel) \..-valu
0320: 65 20 31 20 2d 63 6f 6d 6d 61 6e 64 20 7b 73 64 e 1 -command {sd
0330: 6c 74 6b 20 61 63 63 65 6c 65 72 6f 6d 65 74 65 ltk acceleromete
0340: 72 20 24 61 64 65 6d 6f 28 61 63 63 65 6c 29 7d r $ademo(accel)}
0350: 20 5c 0a 09 2d 69 6e 64 69 63 61 74 6f 72 6f 6e \..-indicatoron
0360: 20 30 20 2d 73 65 6c 65 63 74 63 6f 6c 6f 72 20 0 -selectcolor
0370: 5b 2e 61 6d 2e 62 20 63 67 65 74 20 2d 62 67 5d [.am.b cget -bg]
0380: 0a 20 20 20 20 72 61 64 69 6f 62 75 74 74 6f 6e . radiobutton
0390: 20 2e 61 6d 2e 62 2e 6f 66 66 20 2d 74 65 78 74 .am.b.off -text
03a0: 20 4f 66 66 20 2d 77 69 64 74 68 20 35 20 2d 76 Off -width 5 -v
03b0: 61 72 69 61 62 6c 65 20 61 64 65 6d 6f 28 61 63 ariable ademo(ac
03c0: 63 65 6c 29 20 5c 0a 09 2d 76 61 6c 75 65 20 30 cel) \..-value 0
03d0: 20 2d 63 6f 6d 6d 61 6e 64 20 7b 73 64 6c 74 6b -command {sdltk
03e0: 20 61 63 63 65 6c 65 72 6f 6d 65 74 65 72 20 24 accelerometer $
03f0: 61 64 65 6d 6f 28 61 63 63 65 6c 29 7d 20 5c 0a ademo(accel)} \.
0400: 09 2d 69 6e 64 69 63 61 74 6f 72 6f 6e 20 30 20 .-indicatoron 0
0410: 2d 73 65 6c 65 63 74 63 6f 6c 6f 72 20 5b 2e 61 -selectcolor [.a
0420: 6d 2e 62 20 63 67 65 74 20 2d 62 67 5d 0a 20 20 m.b cget -bg].
0430: 20 20 70 61 63 6b 20 2e 61 6d 2e 62 2e 6f 6e 20 pack .am.b.on
0440: 2e 61 6d 2e 62 2e 6f 66 66 20 2d 73 69 64 65 20 .am.b.off -side
0450: 6c 65 66 74 20 2d 70 61 64 78 20 33 20 2d 70 61 left -padx 3 -pa
0460: 64 79 20 33 20 2d 65 78 70 61 6e 64 20 31 0a 20 dy 3 -expand 1.
0470: 20 20 20 62 69 6e 64 20 2e 20 3c 3c 41 63 63 65 bind . <<Acce
0480: 6c 65 72 6f 6d 65 74 65 72 3e 3e 20 7b 73 65 74 lerometer>> {set
0490: 20 61 64 65 6d 6f 28 61 25 73 29 20 25 78 7d 0a ademo(a%s) %x}.
04a0: 0a 20 20 20 20 6c 61 62 65 6c 66 72 61 6d 65 20 . labelframe
04b0: 2e 66 69 20 2d 74 65 78 74 20 22 46 69 6e 67 65 .fi -text "Finge
04c0: 72 20 45 76 65 6e 74 73 22 20 2d 70 61 64 78 20 r Events" -padx
04d0: 35 20 2d 70 61 64 79 20 35 0a 20 20 20 20 70 61 5 -pady 5. pa
04e0: 63 6b 20 2e 66 69 20 2d 73 69 64 65 20 74 6f 70 ck .fi -side top
04f0: 20 2d 70 61 64 78 20 35 20 2d 70 61 64 79 20 35 -padx 5 -pady 5
0500: 20 2d 61 6e 63 68 6f 72 20 6e 77 0a 20 20 20 20 -anchor nw.
0510: 73 65 74 20 72 6f 77 20 30 0a 20 20 20 20 6c 61 set row 0. la
0520: 62 65 6c 20 2e 66 69 2e 6c 78 20 2d 74 65 78 74 bel .fi.lx -text
0530: 20 58 0a 20 20 20 20 6c 61 62 65 6c 20 2e 66 69 X. label .fi
0540: 2e 6c 79 20 2d 74 65 78 74 20 59 0a 20 20 20 20 .ly -text Y.
0550: 6c 61 62 65 6c 20 2e 66 69 2e 6c 64 78 20 2d 74 label .fi.ldx -t
0560: 65 78 74 20 44 58 0a 20 20 20 20 6c 61 62 65 6c ext DX. label
0570: 20 2e 66 69 2e 6c 64 79 20 2d 74 65 78 74 20 44 .fi.ldy -text D
0580: 59 0a 20 20 20 20 6c 61 62 65 6c 20 2e 66 69 2e Y. label .fi.
0590: 6c 70 20 2d 74 65 78 74 20 50 0a 20 20 20 20 67 lp -text P. g
05a0: 72 69 64 20 2e 66 69 2e 6c 78 20 2d 72 6f 77 20 rid .fi.lx -row
05b0: 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 31 0a 20 $row -column 1.
05c0: 20 20 20 67 72 69 64 20 2e 66 69 2e 6c 79 20 2d grid .fi.ly -
05d0: 72 6f 77 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e row $row -column
05e0: 20 32 0a 20 20 20 20 67 72 69 64 20 2e 66 69 2e 2. grid .fi.
05f0: 6c 64 78 20 2d 72 6f 77 20 24 72 6f 77 20 2d 63 ldx -row $row -c
0600: 6f 6c 75 6d 6e 20 33 0a 20 20 20 20 67 72 69 64 olumn 3. grid
0610: 20 2e 66 69 2e 6c 64 79 20 2d 72 6f 77 20 24 72 .fi.ldy -row $r
0620: 6f 77 20 2d 63 6f 6c 75 6d 6e 20 34 0a 20 20 20 ow -column 4.
0630: 20 67 72 69 64 20 2e 66 69 2e 6c 70 20 2d 72 6f grid .fi.lp -ro
0640: 77 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 35 w $row -column 5
0650: 0a 20 20 20 20 69 6e 63 72 20 72 6f 77 0a 20 20 . incr row.
0660: 20 20 66 6f 72 65 61 63 68 20 66 20 7b 31 20 32 foreach f {1 2
0670: 20 33 20 34 20 35 7d 20 7b 0a 20 20 20 20 20 20 3 4 5} {.
0680: 20 20 6c 61 62 65 6c 20 2e 66 69 2e 6e 24 66 20 label .fi.n$f
0690: 2d 74 65 78 74 20 24 66 0a 20 20 20 20 20 20 20 -text $f.
06a0: 20 6c 61 62 65 6c 20 2e 66 69 2e 78 24 66 20 2d label .fi.x$f -
06b0: 74 65 78 74 76 61 72 69 61 62 6c 65 20 61 64 65 textvariable ade
06c0: 6d 6f 28 66 78 24 66 29 20 2d 77 69 64 74 68 20 mo(fx$f) -width
06d0: 38 20 5c 0a 09 20 20 20 20 2d 72 65 6c 69 65 66 8 \.. -relief
06e0: 20 73 75 6e 6b 65 6e 20 2d 62 67 20 23 46 46 46 sunken -bg #FFF
06f0: 46 46 46 0a 20 20 20 20 20 20 20 20 6c 61 62 65 FFF. labe
0700: 6c 20 2e 66 69 2e 79 24 66 20 2d 74 65 78 74 76 l .fi.y$f -textv
0710: 61 72 69 61 62 6c 65 20 61 64 65 6d 6f 28 66 79 ariable ademo(fy
0720: 24 66 29 20 2d 77 69 64 74 68 20 38 20 5c 0a 09 $f) -width 8 \..
0730: 20 20 20 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b -relief sunk
0740: 65 6e 20 2d 62 67 20 23 46 46 46 46 46 46 0a 20 en -bg #FFFFFF.
0750: 20 20 20 20 20 20 20 6c 61 62 65 6c 20 2e 66 69 label .fi
0760: 2e 64 78 24 66 20 2d 74 65 78 74 76 61 72 69 61 .dx$f -textvaria
0770: 62 6c 65 20 61 64 65 6d 6f 28 66 64 78 24 66 29 ble ademo(fdx$f)
0780: 20 2d 77 69 64 74 68 20 38 20 5c 0a 09 20 20 20 -width 8 \..
0790: 20 2d 72 65 6c 69 65 66 20 73 75 6e 6b 65 6e 20 -relief sunken
07a0: 2d 62 67 20 23 46 46 46 46 46 46 0a 20 20 20 20 -bg #FFFFFF.
07b0: 20 20 20 20 6c 61 62 65 6c 20 2e 66 69 2e 64 79 label .fi.dy
07c0: 24 66 20 2d 74 65 78 74 76 61 72 69 61 62 6c 65 $f -textvariable
07d0: 20 61 64 65 6d 6f 28 66 64 79 24 66 29 20 2d 77 ademo(fdy$f) -w
07e0: 69 64 74 68 20 38 20 5c 0a 09 20 20 20 20 2d 72 idth 8 \.. -r
07f0: 65 6c 69 65 66 20 73 75 6e 6b 65 6e 20 2d 62 67 elief sunken -bg
0800: 20 23 46 46 46 46 46 46 0a 20 20 20 20 20 20 20 #FFFFFF.
0810: 20 6c 61 62 65 6c 20 2e 66 69 2e 70 24 66 20 2d label .fi.p$f -
0820: 74 65 78 74 76 61 72 69 61 62 6c 65 20 61 64 65 textvariable ade
0830: 6d 6f 28 66 70 24 66 29 20 2d 77 69 64 74 68 20 mo(fp$f) -width
0840: 38 20 5c 0a 09 20 20 20 20 2d 72 65 6c 69 65 66 8 \.. -relief
0850: 20 73 75 6e 6b 65 6e 20 2d 62 67 20 23 46 46 46 sunken -bg #FFF
0860: 46 46 46 0a 09 67 72 69 64 20 2e 66 69 2e 6e 24 FFF..grid .fi.n$
0870: 66 20 2d 72 6f 77 20 24 72 6f 77 20 2d 63 6f 6c f -row $row -col
0880: 75 6d 6e 20 30 0a 09 67 72 69 64 20 2e 66 69 2e umn 0..grid .fi.
0890: 78 24 66 20 2d 72 6f 77 20 24 72 6f 77 20 2d 63 x$f -row $row -c
08a0: 6f 6c 75 6d 6e 20 31 0a 09 67 72 69 64 20 2e 66 olumn 1..grid .f
08b0: 69 2e 79 24 66 20 2d 72 6f 77 20 24 72 6f 77 20 i.y$f -row $row
08c0: 2d 63 6f 6c 75 6d 6e 20 32 0a 09 67 72 69 64 20 -column 2..grid
08d0: 2e 66 69 2e 64 78 24 66 20 2d 72 6f 77 20 24 72 .fi.dx$f -row $r
08e0: 6f 77 20 2d 63 6f 6c 75 6d 6e 20 33 0a 09 67 72 ow -column 3..gr
08f0: 69 64 20 2e 66 69 2e 64 79 24 66 20 2d 72 6f 77 id .fi.dy$f -row
0900: 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 34 0a $row -column 4.
0910: 09 67 72 69 64 20 2e 66 69 2e 70 24 66 20 2d 72 .grid .fi.p$f -r
0920: 6f 77 20 24 72 6f 77 20 2d 63 6f 6c 75 6d 6e 20 ow $row -column
0930: 35 0a 09 69 6e 63 72 20 72 6f 77 0a 20 20 20 20 5..incr row.
0940: 7d 0a 20 20 20 20 62 69 6e 64 20 2e 20 3c 3c 46 }. bind . <<F
0950: 69 6e 67 65 72 44 6f 77 6e 3e 3e 20 7b 61 64 65 ingerDown>> {ade
0960: 6d 6f 5f 66 69 6e 67 65 72 20 64 6f 77 6e 20 25 mo_finger down %
0970: 73 20 25 78 20 25 79 20 25 58 20 25 59 20 25 74 s %x %y %X %Y %t
0980: 7d 0a 20 20 20 20 62 69 6e 64 20 2e 20 3c 3c 46 }. bind . <<F
0990: 69 6e 67 65 72 55 70 3e 3e 20 7b 61 64 65 6d 6f ingerUp>> {ademo
09a0: 5f 66 69 6e 67 65 72 20 75 70 20 25 73 20 25 78 _finger up %s %x
09b0: 20 25 79 20 25 58 20 25 59 20 25 74 7d 0a 20 20 %y %X %Y %t}.
09c0: 20 20 62 69 6e 64 20 2e 20 3c 3c 46 69 6e 67 65 bind . <<Finge
09d0: 72 4d 6f 74 69 6f 6e 3e 3e 20 7b 61 64 65 6d 6f rMotion>> {ademo
09e0: 5f 66 69 6e 67 65 72 20 6d 6f 74 69 6f 6e 20 25 _finger motion %
09f0: 73 20 25 78 20 25 79 20 25 58 20 25 59 20 25 74 s %x %y %X %Y %t
0a00: 7d 0a 0a 20 20 20 20 6c 61 62 65 6c 66 72 61 6d }.. labelfram
0a10: 65 20 2e 6c 63 20 2d 74 65 78 74 20 22 41 70 70 e .lc -text "App
0a20: 20 4c 69 66 65 20 43 79 63 6c 65 2c 20 56 69 65 Life Cycle, Vie
0a30: 77 70 6f 72 74 2c 20 65 74 63 2e 22 20 2d 70 61 wport, etc." -pa
0a40: 64 78 20 35 20 2d 70 61 64 79 20 35 0a 20 20 20 dx 5 -pady 5.
0a50: 20 70 61 63 6b 20 2e 6c 63 20 2d 73 69 64 65 20 pack .lc -side
0a60: 74 6f 70 20 2d 70 61 64 78 20 35 20 2d 70 61 64 top -padx 5 -pad
0a70: 79 20 35 20 2d 61 6e 63 68 6f 72 20 6e 77 0a 20 y 5 -anchor nw.
0a80: 20 20 20 74 65 78 74 20 2e 6c 63 2e 74 20 2d 77 text .lc.t -w
0a90: 69 64 74 68 20 33 35 20 2d 68 65 69 67 68 74 20 idth 35 -height
0aa0: 36 20 2d 62 67 20 23 46 46 46 46 46 46 20 2d 73 6 -bg #FFFFFF -s
0ab0: 74 61 74 65 20 64 69 73 61 62 6c 65 64 0a 20 20 tate disabled.
0ac0: 20 20 70 61 63 6b 20 2e 6c 63 2e 74 20 2d 73 69 pack .lc.t -si
0ad0: 64 65 20 74 6f 70 0a 20 20 20 20 66 6f 72 65 61 de top. forea
0ae0: 63 68 20 65 76 20 7b 4c 6f 77 4d 65 6d 6f 72 79 ch ev {LowMemory
0af0: 20 54 65 72 6d 69 6e 61 74 69 6e 67 20 57 69 6c Terminating Wil
0b00: 6c 45 6e 74 65 72 42 61 63 6b 67 72 6f 75 6e 64 lEnterBackground
0b10: 0a 09 44 69 64 45 6e 74 65 72 42 61 63 6b 67 72 ..DidEnterBackgr
0b20: 6f 75 6e 64 20 57 69 6c 6c 45 6e 74 65 72 46 6f ound WillEnterFo
0b30: 72 65 67 72 6f 75 6e 64 20 44 69 64 45 6e 74 65 reground DidEnte
0b40: 72 46 6f 72 65 67 72 6f 75 6e 64 7d 20 7b 0a 09 rForeground} {..
0b50: 62 69 6e 64 20 2e 20 3c 3c 24 65 76 3e 3e 20 5b bind . <<$ev>> [
0b60: 6c 69 73 74 20 61 64 65 6d 6f 5f 6c 63 65 76 74 list ademo_lcevt
0b70: 20 24 65 76 5d 0a 20 20 20 20 7d 0a 20 20 20 20 $ev]. }.
0b80: 62 69 6e 64 20 2e 20 3c 3c 56 69 65 77 70 6f 72 bind . <<Viewpor
0b90: 74 55 70 64 61 74 65 3e 3e 20 7b 61 64 65 6d 6f tUpdate>> {ademo
0ba0: 5f 76 70 74 20 25 78 20 25 79 20 25 58 20 25 59 _vpt %x %y %X %Y
0bb0: 20 25 73 7d 0a 0a 20 20 20 20 62 69 6e 64 20 2e %s}.. bind .
0bc0: 20 3c 3c 4a 6f 79 73 74 69 63 6b 41 64 64 65 64 <<JoystickAdded
0bd0: 3e 3e 20 7b 61 64 65 6d 6f 5f 6a 61 64 64 72 65 >> {ademo_jaddre
0be0: 6d 20 4a 6f 79 73 74 69 63 6b 41 64 64 20 25 58 m JoystickAdd %X
0bf0: 7d 0a 20 20 20 20 62 69 6e 64 20 2e 20 3c 3c 4a }. bind . <<J
0c00: 6f 79 73 74 69 63 6b 52 65 6d 6f 76 65 64 3e 3e oystickRemoved>>
0c10: 20 7b 61 64 65 6d 6f 5f 6a 61 64 64 72 65 6d 20 {ademo_jaddrem
0c20: 4a 6f 79 73 74 69 63 6b 52 65 6d 6f 76 65 20 25 JoystickRemove %
0c30: 58 7d 0a 20 20 20 20 62 69 6e 64 20 2e 20 3c 3c X}. bind . <<
0c40: 4a 6f 79 73 74 69 63 6b 4d 6f 74 69 6f 6e 3e 3e JoystickMotion>>
0c50: 20 7b 61 64 65 6d 6f 5f 6a 6d 6f 74 69 6f 6e 20 {ademo_jmotion
0c60: 25 58 20 25 73 20 25 78 7d 0a 20 20 20 20 62 69 %X %s %x}. bi
0c70: 6e 64 20 2e 20 3c 3c 54 72 61 63 6b 62 61 6c 6c nd . <<Trackball
0c80: 4d 6f 74 69 6f 6e 3e 3e 20 7b 61 64 65 6d 6f 5f Motion>> {ademo_
0c90: 74 6d 6f 74 69 6f 6e 20 25 58 20 25 73 20 25 78 tmotion %X %s %x
0ca0: 20 25 79 7d 0a 20 20 20 20 62 69 6e 64 20 2e 20 %y}. bind .
0cb0: 3c 3c 48 61 74 50 6f 73 69 74 69 6f 6e 3e 3e 20 <<HatPosition>>
0cc0: 7b 61 64 65 6d 6f 5f 68 61 74 70 6f 73 20 25 58 {ademo_hatpos %X
0cd0: 20 25 73 20 25 78 7d 0a 20 20 20 20 62 69 6e 64 %s %x}. bind
0ce0: 20 2e 20 3c 3c 4a 6f 79 73 74 69 63 6b 42 75 74 . <<JoystickBut
0cf0: 74 6f 6e 55 70 3e 3e 20 7b 61 64 65 6d 6f 5f 6a tonUp>> {ademo_j
0d00: 62 75 74 20 4a 6f 79 73 74 69 63 6b 42 75 74 74 but JoystickButt
0d10: 6f 6e 55 70 20 25 58 20 25 73 7d 0a 20 20 20 20 onUp %X %s}.
0d20: 62 69 6e 64 20 2e 20 3c 3c 4a 6f 79 73 74 69 63 bind . <<Joystic
0d30: 6b 42 75 74 74 6f 6e 44 6f 77 6e 3e 3e 20 7b 61 kButtonDown>> {a
0d40: 64 65 6d 6f 5f 6a 62 75 74 20 4a 6f 79 73 74 69 demo_jbut Joysti
0d50: 63 6b 42 75 74 74 6f 6e 44 6f 77 6e 20 25 58 20 ckButtonDown %X
0d60: 25 73 7d 0a 0a 20 20 20 20 66 72 61 6d 65 20 2e %s}.. frame .
0d70: 62 20 2d 70 61 64 78 20 35 20 2d 70 61 64 79 20 b -padx 5 -pady
0d80: 35 0a 20 20 20 20 70 61 63 6b 20 2e 62 20 2d 73 5. pack .b -s
0d90: 69 64 65 20 74 6f 70 20 2d 70 61 64 78 20 35 20 ide top -padx 5
0da0: 2d 70 61 64 79 20 35 20 2d 61 6e 63 68 6f 72 20 -pady 5 -anchor
0db0: 6e 77 0a 20 20 20 20 62 75 74 74 6f 6e 20 2e 62 nw. button .b
0dc0: 2e 78 20 2d 74 65 78 74 20 22 45 78 69 74 22 20 .x -text "Exit"
0dd0: 2d 63 6f 6d 6d 61 6e 64 20 61 64 65 6d 6f 5f 64 -command ademo_d
0de0: 6f 6e 65 0a 20 20 20 20 62 75 74 74 6f 6e 20 2e one. button .
0df0: 62 2e 63 20 2d 74 65 78 74 20 22 43 6f 6e 73 6f b.c -text "Conso
0e00: 6c 65 20 2e 2e 2e 22 20 2d 63 6f 6d 6d 61 6e 64 le ..." -command
0e10: 20 7b 0a 09 63 6f 6e 73 6f 6c 65 20 68 69 64 65 {..console hide
0e20: 20 3b 20 63 6f 6e 73 6f 6c 65 20 73 68 6f 77 0a ; console show.
0e30: 20 20 20 20 7d 0a 20 20 20 20 70 61 63 6b 20 2e }. pack .
0e40: 62 2e 78 20 2e 62 2e 63 20 2d 73 69 64 65 20 6c b.x .b.c -side l
0e50: 65 66 74 20 2d 70 61 64 78 20 35 0a 7d 0a 0a 70 eft -padx 5.}..p
0e60: 72 6f 63 20 61 64 65 6d 6f 5f 6c 63 65 76 74 20 roc ademo_lcevt
0e70: 7b 6e 61 6d 65 7d 20 7b 0a 20 20 20 2e 6c 63 2e {name} {. .lc.
0e80: 74 20 63 6f 6e 66 69 67 20 2d 73 74 61 74 65 20 t config -state
0e90: 6e 6f 72 6d 61 6c 0a 20 20 20 2e 6c 63 2e 74 20 normal. .lc.t
0ea0: 69 6e 73 65 72 74 20 65 6e 64 20 24 6e 61 6d 65 insert end $name
0eb0: 0a 20 20 20 2e 6c 63 2e 74 20 69 6e 73 65 72 74 . .lc.t insert
0ec0: 20 65 6e 64 20 22 5c 6e 22 0a 20 20 20 2e 6c 63 end "\n". .lc
0ed0: 2e 74 20 79 76 69 65 77 20 65 6e 64 0a 20 20 20 .t yview end.
0ee0: 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d 73 74 .lc.t config -st
0ef0: 61 74 65 20 64 69 73 61 62 6c 65 64 0a 7d 0a 0a ate disabled.}..
0f00: 70 72 6f 63 20 61 64 65 6d 6f 5f 76 70 74 20 7b proc ademo_vpt {
0f10: 78 20 79 20 77 20 68 20 73 7d 20 7b 0a 20 20 20 x y w h s} {.
0f20: 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d 73 74 .lc.t config -st
0f30: 61 74 65 20 6e 6f 72 6d 61 6c 0a 20 20 20 2e 6c ate normal. .l
0f40: 63 2e 74 20 69 6e 73 65 72 74 20 65 6e 64 20 22 c.t insert end "
0f50: 56 69 65 77 70 6f 72 74 20 24 78 2c 24 79 2c 24 Viewport $x,$y,$
0f60: 77 2c 24 68 2c 24 73 22 0a 20 20 20 2e 6c 63 2e w,$h,$s". .lc.
0f70: 74 20 69 6e 73 65 72 74 20 65 6e 64 20 22 5c 6e t insert end "\n
0f80: 22 0a 20 20 20 2e 6c 63 2e 74 20 79 76 69 65 77 ". .lc.t yview
0f90: 20 65 6e 64 0a 20 20 20 2e 6c 63 2e 74 20 63 6f end. .lc.t co
0fa0: 6e 66 69 67 20 2d 73 74 61 74 65 20 64 69 73 61 nfig -state disa
0fb0: 62 6c 65 64 0a 7d 0a 0a 70 72 6f 63 20 61 64 65 bled.}..proc ade
0fc0: 6d 6f 5f 6a 61 64 64 72 65 6d 20 7b 65 76 20 64 mo_jaddrem {ev d
0fd0: 65 76 7d 20 7b 0a 20 20 20 2e 6c 63 2e 74 20 63 ev} {. .lc.t c
0fe0: 6f 6e 66 69 67 20 2d 73 74 61 74 65 20 6e 6f 72 onfig -state nor
0ff0: 6d 61 6c 0a 20 20 20 2e 6c 63 2e 74 20 69 6e 73 mal. .lc.t ins
1000: 65 72 74 20 65 6e 64 20 22 24 65 76 20 24 64 65 ert end "$ev $de
1010: 76 22 0a 20 20 20 2e 6c 63 2e 74 20 69 6e 73 65 v". .lc.t inse
1020: 72 74 20 65 6e 64 20 22 5c 6e 22 0a 20 20 20 2e rt end "\n". .
1030: 6c 63 2e 74 20 79 76 69 65 77 20 65 6e 64 0a 20 lc.t yview end.
1040: 20 20 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d .lc.t config -
1050: 73 74 61 74 65 20 64 69 73 61 62 6c 65 64 0a 7d state disabled.}
1060: 0a 0a 70 72 6f 63 20 61 64 65 6d 6f 5f 6a 6d 6f ..proc ademo_jmo
1070: 74 69 6f 6e 20 7b 64 65 76 20 73 20 78 7d 20 7b tion {dev s x} {
1080: 0a 20 20 20 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 . .lc.t config
1090: 20 2d 73 74 61 74 65 20 6e 6f 72 6d 61 6c 0a 20 -state normal.
10a0: 20 20 2e 6c 63 2e 74 20 69 6e 73 65 72 74 20 65 .lc.t insert e
10b0: 6e 64 20 22 4a 6f 79 73 74 69 63 6b 4d 6f 74 69 nd "JoystickMoti
10c0: 6f 6e 20 24 64 65 76 2c 24 73 2c 24 78 22 0a 20 on $dev,$s,$x".
10d0: 20 20 2e 6c 63 2e 74 20 69 6e 73 65 72 74 20 65 .lc.t insert e
10e0: 6e 64 20 22 5c 6e 22 0a 20 20 20 2e 6c 63 2e 74 nd "\n". .lc.t
10f0: 20 79 76 69 65 77 20 65 6e 64 0a 20 20 20 2e 6c yview end. .l
1100: 63 2e 74 20 63 6f 6e 66 69 67 20 2d 73 74 61 74 c.t config -stat
1110: 65 20 64 69 73 61 62 6c 65 64 0a 7d 0a 0a 70 72 e disabled.}..pr
1120: 6f 63 20 61 64 65 6d 6f 5f 74 6d 6f 74 69 6f 6e oc ademo_tmotion
1130: 20 7b 64 65 76 20 73 20 78 20 79 7d 20 7b 0a 20 {dev s x y} {.
1140: 20 20 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d .lc.t config -
1150: 73 74 61 74 65 20 6e 6f 72 6d 61 6c 0a 20 20 20 state normal.
1160: 2e 6c 63 2e 74 20 69 6e 73 65 72 74 20 65 6e 64 .lc.t insert end
1170: 20 22 54 72 61 63 6b 62 61 6c 6c 4d 6f 74 69 6f "TrackballMotio
1180: 6e 20 24 64 65 76 2c 24 73 2c 24 78 2c 24 79 22 n $dev,$s,$x,$y"
1190: 0a 20 20 20 2e 6c 63 2e 74 20 69 6e 73 65 72 74 . .lc.t insert
11a0: 20 65 6e 64 20 22 5c 6e 22 0a 20 20 20 2e 6c 63 end "\n". .lc
11b0: 2e 74 20 79 76 69 65 77 20 65 6e 64 0a 20 20 20 .t yview end.
11c0: 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d 73 74 .lc.t config -st
11d0: 61 74 65 20 64 69 73 61 62 6c 65 64 0a 7d 0a 0a ate disabled.}..
11e0: 70 72 6f 63 20 61 64 65 6d 6f 5f 68 61 74 70 6f proc ademo_hatpo
11f0: 73 20 7b 64 65 76 20 73 20 78 7d 20 7b 0a 20 20 s {dev s x} {.
1200: 20 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 20 2d 73 .lc.t config -s
1210: 74 61 74 65 20 6e 6f 72 6d 61 6c 0a 20 20 20 2e tate normal. .
1220: 6c 63 2e 74 20 69 6e 73 65 72 74 20 65 6e 64 20 lc.t insert end
1230: 22 48 61 74 50 6f 73 69 74 69 6f 6e 20 24 64 65 "HatPosition $de
1240: 76 2c 24 73 2c 24 78 22 0a 20 20 20 2e 6c 63 2e v,$s,$x". .lc.
1250: 74 20 69 6e 73 65 72 74 20 65 6e 64 20 22 5c 6e t insert end "\n
1260: 22 0a 20 20 20 2e 6c 63 2e 74 20 79 76 69 65 77 ". .lc.t yview
1270: 20 65 6e 64 0a 20 20 20 2e 6c 63 2e 74 20 63 6f end. .lc.t co
1280: 6e 66 69 67 20 2d 73 74 61 74 65 20 64 69 73 61 nfig -state disa
1290: 62 6c 65 64 0a 7d 0a 0a 70 72 6f 63 20 61 64 65 bled.}..proc ade
12a0: 6d 6f 5f 6a 62 75 74 20 7b 65 76 20 64 65 76 20 mo_jbut {ev dev
12b0: 73 7d 20 7b 0a 20 20 20 2e 6c 63 2e 74 20 63 6f s} {. .lc.t co
12c0: 6e 66 69 67 20 2d 73 74 61 74 65 20 6e 6f 72 6d nfig -state norm
12d0: 61 6c 0a 20 20 20 2e 6c 63 2e 74 20 69 6e 73 65 al. .lc.t inse
12e0: 72 74 20 65 6e 64 20 22 24 65 76 20 24 64 65 76 rt end "$ev $dev
12f0: 2c 24 73 22 0a 20 20 20 2e 6c 63 2e 74 20 69 6e ,$s". .lc.t in
1300: 73 65 72 74 20 65 6e 64 20 22 5c 6e 22 0a 20 20 sert end "\n".
1310: 20 2e 6c 63 2e 74 20 79 76 69 65 77 20 65 6e 64 .lc.t yview end
1320: 0a 20 20 20 2e 6c 63 2e 74 20 63 6f 6e 66 69 67 . .lc.t config
1330: 20 2d 73 74 61 74 65 20 64 69 73 61 62 6c 65 64 -state disabled
1340: 0a 7d 0a 0a 70 72 6f 63 20 61 64 65 6d 6f 5f 66 .}..proc ademo_f
1350: 69 6e 67 65 72 20 7b 6f 70 20 69 64 20 78 20 79 inger {op id x y
1360: 20 64 78 20 64 79 20 70 7d 20 7b 0a 20 20 20 20 dx dy p} {.
1370: 67 6c 6f 62 61 6c 20 61 64 65 6d 6f 0a 20 20 20 global ademo.
1380: 20 69 66 20 7b 24 69 64 20 3c 20 31 20 7c 7c 20 if {$id < 1 ||
1390: 24 69 64 20 3e 20 36 7d 20 7b 0a 09 72 65 74 75 $id > 6} {..retu
13a0: 72 6e 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74 rn. }. set
13b0: 20 61 64 65 6d 6f 28 66 78 24 69 64 29 20 24 78 ademo(fx$id) $x
13c0: 0a 20 20 20 20 73 65 74 20 61 64 65 6d 6f 28 66 . set ademo(f
13d0: 79 24 69 64 29 20 24 79 0a 20 20 20 20 73 65 74 y$id) $y. set
13e0: 20 61 64 65 6d 6f 28 66 64 78 24 69 64 29 20 24 ademo(fdx$id) $
13f0: 64 78 0a 20 20 20 20 73 65 74 20 61 64 65 6d 6f dx. set ademo
1400: 28 66 64 79 24 69 64 29 20 24 64 79 0a 20 20 20 (fdy$id) $dy.
1410: 20 73 65 74 20 61 64 65 6d 6f 28 66 70 24 69 64 set ademo(fp$id
1420: 29 20 24 70 0a 7d 0a 0a 70 72 6f 63 20 61 64 65 ) $p.}..proc ade
1430: 6d 6f 5f 64 6f 6e 65 20 7b 7d 20 7b 0a 20 20 20 mo_done {} {.
1440: 20 67 6c 6f 62 61 6c 20 61 64 65 6d 6f 0a 20 20 global ademo.
1450: 20 20 73 64 6c 74 6b 20 61 63 63 65 6c 65 72 6f sdltk accelero
1460: 6d 65 74 65 72 20 30 0a 20 20 20 20 75 6e 73 65 meter 0. unse
1470: 74 20 61 64 65 6d 6f 0a 20 20 20 20 65 78 69 74 t ademo. exit
1480: 20 30 0a 7d 0a 0a 61 64 65 6d 6f 0a 0.}..ademo.