proc readMouse {raw} {
                binary scan [string range $raw 12 13] s pos
                
                if {[string index $raw 10] == "\x01"} {
                        #up/down
                        set ::pointery [expr {int($::screenh * ($pos / 1024.00))}]
                } else {
                        #left/right
                        set ::pointerx [expr {int($::screenw * ($pos / 1024.00))}]
                }
                
                TkXext.move.pointer $::pointerx  $::pointery
        }
        
        proc readKey {raw} {
                binary scan [string index $raw 10] c key
                incr key -32
                if {[string index $raw 12] == "\x01"} {
                        #key pressed
                        TkXext.send.string [string index $::keymap $key]
                }
        }
        
        proc processEvent {fh} {
                if {[catch {set raw [read $fh 16]}]} {
                        fileevent $fh readable {}
                        catch {close $fh}
                        after 5000 detectUnit
                        return
                }
                if {[string index $raw 8] == "\x01"} {readKey $raw}
                if {[string index $raw 8] == "\x03"} {readMouse $raw}
        }
        
        
        proc detectUnit {} {
                set fh [open /proc/bus/input/devices r]
                set deviceinfo [read $fh]
                close $fh
                
                set found 0
                foreach line [split $deviceinfo \n] {
                        if {$found} {
                                if {[string first "Handlers" $line] == -1} {continue}
                                break
                        }
                        if {[string first "Saitek Pro Gamer Command Unit" $line] == -1} {continue}
                        set found 1
                }
                
                set device [file join /dev/input/[lindex [split [string trim $line] =]        1]]
                
                if {$found} {
                        set evfh [open $device RDONLY]
                        fconfigure $evfh -translation binary
                        fileevent $evfh readable  "processEvent $evfh"
                } else {
                        after 5000 detectUnit
                }
        }
        
        proc main {} {
                package require Tk
                load [file join $::starkit::topdir TkXext.so]
                wm geometry . 0x0+0+0
                wm overrideredirect . 1
                set ::keymap "qwertyuiopasdfghjklzxcvbnm,./"
                set ::screenh [winfo screenheight .]
                set ::screenw [winfo screenwidth .]
                set ::pointerx 512
                set ::pointery 512
                after 100 detectUnit
        }
        
        main