aboutsummaryrefslogtreecommitdiff
path: root/system/CanAce/patches/canace.tcl.patch
diff options
context:
space:
mode:
Diffstat (limited to 'system/CanAce/patches/canace.tcl.patch')
-rw-r--r--system/CanAce/patches/canace.tcl.patch21
1 files changed, 21 insertions, 0 deletions
diff --git a/system/CanAce/patches/canace.tcl.patch b/system/CanAce/patches/canace.tcl.patch
new file mode 100644
index 0000000000..10362a4490
--- /dev/null
+++ b/system/CanAce/patches/canace.tcl.patch
@@ -0,0 +1,21 @@
+--- CanAce-c13515135345daf50bc8f6e4c3ddc4d6bcd01443-vanilla/src/canace.tcl 2013-02-24 06:53:19.000000000 +0000
++++ CanAce-c13515135345daf50bc8f6e4c3ddc4d6bcd01443/src/canace.tcl 2024-08-21 15:47:25.177576017 +0100
+@@ -20,6 +20,9 @@
+
+ proc HandleEmuKey {key} {
+ switch -- $key {
++ F2 {
++ ToggleWarpMode
++ }
+ F12 {
+ ResetAce
+ ClearStatusBar
+@@ -99,7 +102,7 @@
+ }
+
+ proc DisplayAbout {} {
+- tk_messageBox -message "CanAce v[GetCanAceVersion]" -type ok
++ tk_messageBox -message "CanAce [GetCanAceVersion]\n(on Slackware steroids...)" -type ok
+ }
+
+ proc CreateMenu {} {