Techwizz/Gobligine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Added (game-cursor).

Browse source
This commit is contained in:
johns 2001-06-04 14:08:48 +00:00
parent f82890c59c
commit 6422ad2ae7
1 changed files with 18 additions and 0 deletions

18
src/ui/script_ui.cpp
View file

@ -316,6 +316,22 @@ local SCM CclDefineCursor(SCM list)
return SCM_UNSPECIFIED;
}
/**
** Set the current game cursor.
**
** @param ident Cursor identifier.
*/
local SCM CclGameCursor(SCM ident)
{
char* str;
str=gh_scm2newstr(ident,NULL);
GameCursor=CursorTypeByIdent(str);
free(str);
return SCM_UNSPECIFIED;
}
/**
** Define the look+feel of the user interface.
**
@ -1243,7 +1259,9 @@ global void UserInterfaceCclRegister(void)
gh_new_procedure0_0("original-resources",CclOriginalResources);
gh_new_procedure1_0("race-add",CclRaceAdd);
gh_new_procedureN("define-cursor",CclDefineCursor);
gh_new_procedure1_0("game-cursor",CclGameCursor);
gh_new_procedureN("define-ui",CclDefineUI);
gh_new_procedure1_0("key-scroll-speed", CclKeyScrollSpeed);