Gtk: fix varargs bindings

Various Gtk varrags functions need to be declared as such so that
calls on AArch64 Mac OS (and potentially other platforms) work
correctly.

Author: mflatt

gui-lib/mred/private/wx/gtk/button.rkt

@@ -36,7 +36,7 @@
 (define _GtkSettings (_cpointer 'GtkSettings))
 (define-gtk gtk_settings_get_default (_fun -> _GtkSettings))
 (define-gobj g_object_set/boolean 
-  (_fun _GtkSettings _string _gboolean (_pointer = #f) -> _void)
+  (_fun #:varargs-after 2 _GtkSettings _string _gboolean (_pointer = #f) -> _void)
   #:c-id g_object_set)
 (define (force-button-images-on gtk)
   ;; Globally turning on button images isn't really the right thing.

gui-lib/mred/private/wx/gtk/canvas.rkt

@@ -37,9 +37,11 @@
 (define-gobj g_object_freeze_notify (_fun _GtkWidget -> _void))
 (define-gobj g_object_thaw_notify (_fun _GtkWidget -> _void))
 
-(define-gobj g_object_set_double (_fun _GtkWidget _string _double* (_pointer = #f) -> _void)
+(define-gobj g_object_set_double (_fun #:varargs-after 2
+                                       _GtkWidget _string _double* (_pointer = #f) -> _void)
   #:c-id g_object_set)
-(define-gobj g_object_get_double (_fun _GtkWidget _string (r : (_ptr o _double)) (_pointer = #f) 
+(define-gobj g_object_get_double (_fun #:varargs-after 2
+                                       _GtkWidget _string (r : (_ptr o _double)) (_pointer = #f)
 				       -> _void -> r)
   #:c-id g_object_get)
 
@@ -124,7 +126,8 @@
 (define-gtk gtk_container_remove (_fun _GtkWidget _GtkWidget -> _void))
 (define-gtk gtk_bin_get_child (_fun _GtkWidget -> _GtkWidget))
 
-(define-gobj g_object_set_bool (_fun _GtkWidget _string _gboolean [_pointer = #f] -> _void)
+(define-gobj g_object_set_bool (_fun #:varargs-after 2
+                                     _GtkWidget _string _gboolean [_pointer = #f] -> _void)
   #:c-id g_object_set)
 
 (define _GtkIMContext (_cpointer 'GtkIMContext))

gui-lib/mred/private/wx/gtk/combo.rkt

@@ -46,7 +46,8 @@
 (define-gobj g_signal_handler_block (_fun _GtkWidget _uint -> _void))
 (define-gobj g_signal_handler_unblock (_fun _GtkWidget _uint -> _void))
 
-(define-gobj g_signal_emit (_fun _GtkWidget
+(define-gobj g_signal_emit (_fun #:varargs-after 3
+                                 _GtkWidget
                                  _uint
                                  _GQuark
                                  _pointer

gui-lib/mred/private/wx/gtk/list-box.rkt

@@ -39,13 +39,16 @@
 (define-gtk gtk_list_store_newv (_fun _int (_list i _long) -> _GtkListStore))
 (define-gtk gtk_list_store_clear (_fun _GtkListStore -> _void))
 (define-gtk gtk_list_store_append (_fun _GtkListStore _GtkTreeIter-pointer _pointer -> _void))
-(define-gtk gtk_list_store_set (_fun _GtkListStore _GtkTreeIter-pointer _int _string _int -> _void))
+(define-gtk gtk_list_store_set (_fun #:varargs-after 2
+                                     _GtkListStore _GtkTreeIter-pointer _int _string _int -> _void))
 (define-gtk gtk_tree_view_new_with_model (_fun _GtkListStore -> _GtkWidget))
 (define-gtk gtk_tree_view_set_model (_fun _GtkWidget _GtkListStore -> _void))
 (define-gtk gtk_tree_view_set_headers_visible (_fun _GtkWidget _gboolean -> _void))
 (define-gtk gtk_cell_renderer_text_new (_fun -> _GtkCellRenderer))
-(define-gtk gtk_tree_view_column_new_with_attributes (_fun _string _GtkCellRenderer _string _int _pointer -> _GtkTreeViewColumn))
-(define-gtk gtk_tree_view_column_set_attributes (_fun _GtkTreeViewColumn _GtkCellRenderer _string _int _pointer -> _void))
+(define-gtk gtk_tree_view_column_new_with_attributes (_fun #:varargs-after 2
+                                                           _string _GtkCellRenderer _string _int _pointer -> _GtkTreeViewColumn))
+(define-gtk gtk_tree_view_column_set_attributes (_fun #:varargs-after 2
+                                                      _GtkTreeViewColumn _GtkCellRenderer _string _int _pointer -> _void))
 (define-gtk gtk_tree_view_column_set_resizable (_fun _GtkTreeViewColumn _gboolean -> _void))
 (define-gtk gtk_tree_view_column_set_clickable (_fun _GtkTreeViewColumn _gboolean -> _void))
 (define-gtk gtk_tree_view_column_set_reorderable (_fun _GtkTreeViewColumn _gboolean -> _void))
@@ -75,7 +78,8 @@
 (define-gtk gtk_tree_selection_unselect_all (_fun  _GtkWidget -> _void))
 (define-gtk gtk_tree_selection_select_path (_fun  _GtkWidget _pointer -> _void))
 (define-gtk gtk_tree_selection_unselect_path (_fun  _GtkWidget _pointer -> _void))
-(define-gtk gtk_tree_path_new_from_indices (_fun _int _int -> _pointer))
+(define-gtk gtk_tree_path_new_from_indices (_fun #:varargs-after 1
+                                                 _int _int -> _pointer))
 (define-gtk gtk_tree_path_free (_fun _pointer -> _void))
 (define-gtk gtk_tree_path_get_indices (_fun _pointer -> _pointer))
 

gui-lib/mred/private/wx/gtk/procs.rkt

@@ -91,11 +91,13 @@
 
 (define _GtkSettings (_cpointer 'GtkSettings))
 (define-gtk gtk_settings_get_default (_fun -> _GtkSettings))
-(define-gobj g_object_get/int (_fun _GtkSettings _string (r : (_ptr o _int)) (_pointer = #f) 
+(define-gobj g_object_get/int (_fun #:varargs-after 2
+                                    _GtkSettings _string (r : (_ptr o _int)) (_pointer = #f)
 				    -> _void
 				    -> r)
   #:c-id g_object_get)
-(define-gobj g_object_get/string (_fun _GtkSettings _string (r : (_ptr o _pointer)) (_pointer = #f)
+(define-gobj g_object_get/string (_fun #:varargs-after 2
+                                       _GtkSettings _string (r : (_ptr o _pointer)) (_pointer = #f)
 				       -> _void
 				       -> r)
   #:c-id g_object_get)

gui-lib/mred/private/wx/gtk/style.rkt

@@ -104,7 +104,8 @@
 
 (define _GtkSettings (_cpointer 'GtkSettings))
 (define-gtk gtk_settings_get_default (_fun -> _GtkSettings))
-(define-gobj g_object_get/string (_fun _GtkSettings _string (r : (_ptr o _pointer)) (_pointer = #f)
+(define-gobj g_object_get/string (_fun #:varargs-after 2
+                                       _GtkSettings _string (r : (_ptr o _pointer)) (_pointer = #f)
                                        -> _void
                                        -> r)
   #:c-id g_object_get)