From 6422ad2ae7d35ff9f6803504fe7d1453a49d26f7 Mon Sep 17 00:00:00 2001
From: johns <>
Date: Mon, 4 Jun 2001 14:08:48 +0000
Subject: [PATCH] Added (game-cursor).
---
src/ui/script_ui.cpp | 18 ++++++++++++++++++
1 file changed, 18 insertions(+)
diff --git a/src/ui/script_ui.cpp b/src/ui/script_ui.cpp
index 4c105940a..b8a67b27b 100644
--- a/src/ui/script_ui.cpp
+++ b/src/ui/script_ui.cpp
@@ -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);