Hotkeys Fix

This commit is contained in:
y4my4my4m 2023-08-25 14:15:37 +09:00
parent 28bd343db7
commit 8eb3a23dc9
2 changed files with 21 additions and 0 deletions

View file

@ -110,6 +110,26 @@ Bool MyPutKey(I64 ch, I64 sc)
} }
return TRUE; 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: case SC_DELETE:
if (sc & SCF_SHIFT) if (sc & SCF_SHIFT)
{ {

View file

@ -8,6 +8,7 @@ Cd(__DIR__);;
#include "~/HomeWrappers" #include "~/HomeWrappers"
MapFileLoad("::/Kernel/Kernel"); MapFileLoad("::/Kernel/Kernel");
MapFileLoad("::/Compiler/Compiler"); MapFileLoad("::/Compiler/Compiler");
#include "::/Demo/Graphics/WallPaperDolDoc"
#include "~/HomeKeyPlugIns" #include "~/HomeKeyPlugIns"
#include "~/HomeSys" #include "~/HomeSys"
Cd("..");; Cd("..");;