github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-05-01 14:16:47 +00:00
Code Issues Projects Releases Wiki Activity

Add support for setting the mouse cursor. Not finished!

Browse Source 
Currently this just allocates a new X cursor each time, should be
amended to cache the cursor, just like X does at the moment.
This commit is contained in:
Peter
2021-11-07 19:35:52 +01:00
committed by Nick Briggs
parent dbba06d9e1
commit 1db44b1f76
3 changed files with 40 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/dspsubrs.c
View File

@@ -99,9 +99,11 @@ void DSP_Cursor(LispPTR *args, int argnum)
extern int LastCursorX, LastCursorY;
#ifdef XWINDOW
#if defined(XWINDOW)
/* For X-Windows, set the cursor to the given location. */
Set_XCursor((int)(args[0] & 0xFFFF), (int)(args[1] & 0xFFFF));
#elif defined(SDL)
sdl_setCursor((int)(args[0] & 0xFFFF), (int)(args[1] & 0xFFFF));
#endif /* XWINDOW */
}
@@ -186,8 +188,10 @@ void flip_cursor(void) {
#endif
#ifdef XWINDOW
#if defined(XWINDOW)
/* JDS 011213: 15- cur y, as function does same! */
Set_XCursor(Current_Hot_X, 15 - Current_Hot_Y);
#elif defined(SDL)
sdl_setCursor(0, 0); // TODO: keep track of the current hot_x and hot_y
#endif /* XWINDOW */
}