From 1937e3368754d792ef4f9580b97b910b46d890bc Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Fri, 25 Oct 2019 09:00:24 +0200
Subject: Add G modifier to ccalls that may trigger GTK signals (which may
 cause re-entrance if there is a handler; add withPossibleCallback to save and
 retrieve state around such calls)

---
 src/Gtk/Internal.icl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Gtk/Internal.icl')

diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl
index 0691bc9..52c648d 100644
--- a/src/Gtk/Internal.icl
+++ b/src/Gtk/Internal.icl
@@ -53,7 +53,7 @@ gtk_check_menu_item_new env = code {
 
 gtk_check_menu_item_set_active :: !Pointer !Bool !.a -> .a
 gtk_check_menu_item_set_active item setting env = code {
-	ccall gtk_check_menu_item_set_active "pI:V:A"
+	ccall gtk_check_menu_item_set_active "GpI:V:A"
 }
 
 gtk_container_add :: !Pointer !Pointer !.a -> .a
@@ -88,7 +88,7 @@ gtk_dialog_new env = code {
 
 gtk_dialog_run :: !Pointer !.a -> (!Int, !.a)
 gtk_dialog_run dialog env = code {
-	ccall gtk_dialog_run "p:I:A"
+	ccall gtk_dialog_run "Gp:I:A"
 }
 
 gtk_dialog_set_default_response :: !Pointer !Int !.a -> .a
-- 
cgit v1.2.3