From 8eb3a23dc9bea6dbc7624f92535d6a23f5a46f59 Mon Sep 17 00:00:00 2001
From: y4my4my4m <8145020+y4my4my4m@users.noreply.github.com>
Date: Fri, 25 Aug 2023 14:15:37 +0900
Subject: [PATCH] Hotkeys Fix

---
 src/HomeKeyPlugIns.ZC | 20 ++++++++++++++++++++
 src/MakeHome.ZC       |  1 +
 2 files changed, 21 insertions(+)

diff --git a/src/HomeKeyPlugIns.ZC b/src/HomeKeyPlugIns.ZC
index fdc3bda9..739b502c 100755
--- a/src/HomeKeyPlugIns.ZC
+++ b/src/HomeKeyPlugIns.ZC
@@ -110,6 +110,26 @@ Bool MyPutKey(I64 ch, I64 sc)
 						}
 						return TRUE;
 
+					case SC_F10:
+						if (!(sc & SCF_SHIFT))
+						{
+							if (sc & SCF_KEY_DESC)
+								KeyDescSet("Cmd /Previous Wallpaper");
+							else
+				                WallPaperSet(-1);
+						}
+						return TRUE;
+
+					case SC_F11:
+						if (!(sc & SCF_SHIFT))
+						{
+							if (sc & SCF_KEY_DESC)
+								KeyDescSet("Cmd /Next Wallpaper");
+							else
+				                WallPaperSet(1);
+						}
+						return TRUE;
+
 					case SC_DELETE:
 						if (sc & SCF_SHIFT)
 						{
diff --git a/src/MakeHome.ZC b/src/MakeHome.ZC
index 39f77698..87a65347 100755
--- a/src/MakeHome.ZC
+++ b/src/MakeHome.ZC
@@ -8,6 +8,7 @@ Cd(__DIR__);;
 #include "~/HomeWrappers"
 MapFileLoad("::/Kernel/Kernel");
 MapFileLoad("::/Compiler/Compiler");
+#include "::/Demo/Graphics/WallPaperDolDoc"
 #include "~/HomeKeyPlugIns"
 #include "~/HomeSys"
 Cd("..");;