diff options
| author | Antonio Leal <antonioleal@yahoo.com> | 2024-08-22 20:36:48 +0700 |
|---|---|---|
| committer | Willy Sudiarto Raharjo <willysr@slackbuilds.org> | 2024-08-22 22:32:04 +0700 |
| commit | af84ca0f886b6423886cf9d3d0de7920ad17d65d (patch) | |
| tree | 5efaab6a8a9d543f7579c1d446216ce659ade303 /system/CanAce/patches/tkwin.c.patch | |
| parent | 33860c8e10a17d6d353c66ec8b53c167eb6a36fa (diff) | |
system/CanAce: Added (A Jupiter ACE Emulator).
Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
Diffstat (limited to 'system/CanAce/patches/tkwin.c.patch')
| -rw-r--r-- | system/CanAce/patches/tkwin.c.patch | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/system/CanAce/patches/tkwin.c.patch b/system/CanAce/patches/tkwin.c.patch new file mode 100644 index 0000000000..53a2c373d0 --- /dev/null +++ b/system/CanAce/patches/tkwin.c.patch @@ -0,0 +1,42 @@ +--- CanAce-c13515135345daf50bc8f6e4c3ddc4d6bcd01443-vanilla/src/tkwin.c 2013-02-24 06:53:19.000000000 +0000 ++++ CanAce-c13515135345daf50bc8f6e4c3ddc4d6bcd01443/src/tkwin.c 2024-08-21 15:27:06.051458589 +0100 +@@ -34,6 +34,8 @@ + static int TkWin_displayWindow(void); + static void TkWin_createCommands(void); + ++extern int warpMode; ++ + int + TkWin_init(unsigned char *_mem) + { +@@ -126,6 +128,19 @@ + return TCL_OK; + } + ++static int ++ToggleWarpModeCmd(ClientData clientData, Tcl_Interp *_interp, ++ int objc, Tcl_Obj *CONST objv[]) ++{ ++ if (warpMode == 0) { ++ warpMode = 1; ++ } ++ else ++ { ++ warpMode = 0; ++ } ++ return TCL_OK; ++} + + static int + GetScaleCmd(ClientData clientData, Tcl_Interp *_interp, +@@ -195,6 +210,10 @@ + (ClientData) NULL, + (Tcl_CmdDeleteProc *) NULL); + ++ Tcl_CreateObjCommand(interp, "ToggleWarpMode", ToggleWarpModeCmd, ++ (ClientData) NULL, ++ (Tcl_CmdDeleteProc *) NULL); ++ + Tcl_CreateObjCommand(interp, "GetScale", GetScaleCmd, + (ClientData) NULL, + (Tcl_CmdDeleteProc *) NULL); |