Ticket #5535: tkmythremote.patch

File tkmythremote.patch, 3.2 KB (added by Tony Lill <ajlill@…>, 11 years ago)
  • contrib/tkmythremote/tkmythremote

     
    44#
    55# Usage: tkmythremote frontendhost
    66
     7# Configure pixmap location
     8set pix "./pixmaps"
     9
     10if { [ llength $argv ] != 1 } {
     11    puts "Usage: $argv0 host\n"
     12    exit
     13}
     14
    715set host [lindex $argv 0]
     16wm title . "$host Myth Remote"
     17
    818set f [socket $host 6546]
    919fconfigure $f -blocking 0 -buffering none
    1020
     
    1525}
    1626
    1727# Create all the buttons
    18 button .esc -image [image create bitmap -file "./pixmaps/esc.xbm"] -command "push escape"
    19 button .play -image [image create bitmap -file "./pixmaps/p.xbm"] -command "push p"
    20 button .ent -image [image create bitmap -file "./pixmaps/ent.xbm"] -command "push enter"
    21 button .up -image [image create bitmap -file "./pixmaps/up.xbm"] -command "push up"
    22 button .down -image [image create bitmap -file "./pixmaps/down.xbm"] -command "push down"
    23 button .left -image [image create bitmap -file "./pixmaps/left.xbm"] -command "push left"
    24 button .right -image [image create bitmap -file "./pixmaps/right.xbm"] -command "push right"
    25 button .backcom -image [image create bitmap -file "./pixmaps/dleft.xbm"] -command "push q"
    26 button .forwcom -image [image create bitmap -file "./pixmaps/dright.xbm"] -command "push z"
    27 button .pgup -image [image create bitmap -file "./pixmaps/dup.xbm"] -command "push pageup"
    28 button .pgdown -image [image create bitmap -file "./pixmaps/ddown.xbm"] -command "push pagedown"
    29 button .quit -image [image create bitmap -file "./pixmaps/q.xbm"] -command "exit"
    30 button .delete -image [image create bitmap -file "./pixmaps/d.xbm"] -command "push d"
    31 button .menu -image [image create bitmap -file "./pixmaps/m.xbm"] -command "push m"
    32 button .info -image [image create bitmap -file "./pixmaps/i.xbm"] -command "push i"
     28button .esc -image [image create bitmap -file "$pix/esc.xbm"] -command "push escape"
     29button .play -image [image create bitmap -file "$pix/p.xbm"] -command "push p"
     30button .ent -image [image create bitmap -file "$pix/ent.xbm"] -command "push enter"
     31button .up -image [image create bitmap -file "$pix/up.xbm"] -command "push up"
     32button .down -image [image create bitmap -file "$pix/down.xbm"] -command "push down"
     33button .left -image [image create bitmap -file "$pix/left.xbm"] -command "push left"
     34button .right -image [image create bitmap -file "$pix/right.xbm"] -command "push right"
     35button .backcom -image [image create bitmap -file "$pix/dleft.xbm"] -command "push q"
     36button .forwcom -image [image create bitmap -file "$pix/dright.xbm"] -command "push z"
     37button .pgup -image [image create bitmap -file "$pix/dup.xbm"] -command "push pageup"
     38button .pgdown -image [image create bitmap -file "$pix/ddown.xbm"] -command "push pagedown"
     39button .quit -image [image create bitmap -file "$pix/q.xbm"] -command "exit"
     40button .delete -image [image create bitmap -file "$pix/d.xbm"] -command "push d"
     41button .menu -image [image create bitmap -file "$pix/m.xbm"] -command "push m"
     42button .info -image [image create bitmap -file "$pix/i.xbm"] -command "push i"
    3343                                       
    3444# Arrange the buttons in  grid
    3545# esc   ent  up   i   quit