Fix set cursor

XmacsLabs · Jul 29, 2023 · c3d246b · c3d246b
1 parent 2c6c092
commit c3d246b
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/TeXmacs/progs/prog/glue-symbols.scm b/TeXmacs/progs/prog/glue-symbols.scm
@@ -960,6 +960,7 @@
 "mouse-any"
 "get-mouse-position"
 "set-mouse-pointer"
+"set-cursor-style-origin"
 "set-predef-mouse-pointer"
 "go-to-path"
 "go-left"

diff --git a/src/Scheme/Glue/glue_editor.cpp b/src/Scheme/Glue/glue_editor.cpp
@@ -1878,7 +1878,7 @@ tmg_set_mouse_pointer (tmscm arg1, tmscm arg2) {
 
 tmscm
 tmg_set_cursor_style (tmscm arg1) {
-  TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-cursor-style");
+  TMSCM_ASSERT_STRING (arg1, TMSCM_ARG1, "set-cursor-style-origin");
 
   string in1= tmscm_to_string (arg1);
 
@@ -3762,6 +3762,7 @@ initialize_glue_editor () {
   tmscm_install_procedure ("mouse-any",  tmg_mouse_any, 5, 0, 0);
   tmscm_install_procedure ("get-mouse-position",  tmg_get_mouse_position, 0, 0, 0);
   tmscm_install_procedure ("set-mouse-pointer",  tmg_set_mouse_pointer, 2, 0, 0);
+  tmscm_install_procedure ("set-cursor-style-origin",  tmg_set_cursor_style, 1, 0, 0);
   tmscm_install_procedure ("set-predef-mouse-pointer",  tmg_set_predef_mouse_pointer, 1, 0, 0);
   tmscm_install_procedure ("go-to-path",  tmg_go_to_path, 1, 0, 0);
   tmscm_install_procedure ("go-left",  tmg_go_left, 0, 0, 0);

diff --git a/xmake.lua b/xmake.lua
@@ -61,10 +61,14 @@ else
     add_requires("libpng 1.6.37", {system=false})
     add_requires("libjpeg v9e", {system=false})
     add_requires("freetype 2.12.1", {system=false})
-    add_requires("sqlite3 3.39.0+200", {system=false})
+    if is_plat ("macosx") then
+        add_requires("sqlite3", {system=true})
+    else
+        add_requires("sqlite3 3.39.0+200", {system=false})
+    end
 end
 
-local PDFHUMMUS_VERSION = "4.1"
+local PDFHUMMUS_VERSION = "4.5.10"
 if not is_plat("wasm") then
     add_requires("pdfhummus "..PDFHUMMUS_VERSION, {system=false,configs={libpng=true,libjpeg=true}})
     add_requires("nowide_standalone 11.2.0", {system=false})