18 lines
749 B
Tcl
18 lines
749 B
Tcl
proc auto_config_joypad { } {
|
|
# clear existing joypad configuration
|
|
global joystick1_config
|
|
dict for {btn binding} $joystick1_config { dict set joystick1_config $btn {} }
|
|
|
|
bind_default "joy1 button2 down" "toggle_osd_keyboard"
|
|
bind_default "joy1 button3 down" "keymatrixdown 6 0x40"
|
|
bind_default "joy1 button3 up" "keymatrixup 6 0x40"
|
|
bind_default "joy1 button4 down" "main_menu_open"
|
|
bind "joy1 button4 down" -layer osd_menu "main_menu_close"
|
|
dict lappend joystick1_config A button1
|
|
dict lappend joystick1_config B button0
|
|
dict lappend joystick1_config DOWN -axis1
|
|
dict lappend joystick1_config LEFT -axis0
|
|
dict lappend joystick1_config RIGHT +axis0
|
|
dict lappend joystick1_config UP +axis1
|
|
}
|