Hex Artifact Content
Not logged in

Artifact 053ec4dd63c7eda1afbee5bc12abf6cf6cde2a2e:


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.