| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081 |
- # Since we are now supporting specific platforms we need a
- # solution to support key bindings for multiple devices.
- variable is_dingux [string match dingux "[openmsx_info platform]"]
- variable is_android [string match android "[openmsx_info platform]"]
- # cycle_machine
- bind_default CTRL+PAGEUP cycle_machine
- bind_default CTRL+PAGEDOWN cycle_back_machine
- # osd_keyboard
- if {$is_dingux} {
- # Use the SELECT button.
- bind_default "keyb ESCAPE" toggle_osd_keyboard
- } elseif {$is_android} {
- # TODO: This key code no longer exists.
- # We probably should create our own virtual keyboard anyway.
- # Android maps one of the virtual keys to WORLD_95
- # listen to that one in order to show the keyboard
- #bind_default "keyb WORLD_95" toggle_osd_keyboard
- }
- # osd_menu
- if {$tcl_platform(os) eq "Darwin"} { ;# Mac
- bind_default "keyb META+O" main_menu_toggle
- } elseif {$is_dingux} { ;# OpenDingux
- bind_default "keyb RETURN" main_menu_toggle ;# START button
- bind_default "keyb HOME" main_menu_toggle ;# power slider flick
- } else { ;# any other
- bind_default "keyb MENU" main_menu_toggle
- }
- # pause
- if {$is_dingux} {
- # Power slider lock position.
- bind_default "keyb PAUSE" "set pause on"
- bind_default "keyb PAUSE,release" "set pause off"
- }
- # osd_widgets
- if {$is_dingux} {
- bind_default TAB -repeat "volume_control -2"
- bind_default BACKSPACE -repeat "volume_control +2"
- }
- # reverse
- # note: you can't use bindings with modifiers like SHIFT, because they
- # will already stop the replay, as they are MSX keys as well
- bind_default PAGEUP -repeat "go_back_one_step"
- bind_default PAGEDOWN -repeat "go_forward_one_step"
- # savestate
- if {$tcl_platform(os) eq "Darwin"} {
- bind_default META+S savestate
- bind_default META+R loadstate
- } else {
- bind_default ALT+F8 savestate
- bind_default ALT+F7 loadstate
- }
- # vdrive
- bind_default ALT+F9 "vdrive diska"
- bind_default SHIFT+ALT+F9 "vdrive diska -1"
- bind_default ALT+F10 "vdrive diskb"
- bind_default SHIFT+ALT+F10 "vdrive diskb -1"
- # copy/paste (use middle-click for all platforms and also something similar to
- # CTRL-C/CTRL-V, but not exactly that, as these combinations are also used on
- # MSX. By adding META, the combination will be so rarely used that we can
- # assume it's OK).
- set my_type_command {type [regsub -all "\r?\n" [get_clipboard_text] "\r"]}
- bind_default "mouse button2 down" "$my_type_command"
- if {$tcl_platform(os) eq "Darwin"} { ;# Mac
- bind_default "keyb META+C" {set_clipboard_text [get_screen]}
- bind_default "keyb META+V" "$my_type_command"
- } else { ;# any other
- bind_default "keyb META+CTRL+C" {set_clipboard_text [get_screen]}
- bind_default "keyb META+CTRL+V" "$my_type_command"
- }
- unset my_type_command
|
