gtk: Remove deprecated functions: g_value_get_char, g_thread_init...

diff --git a/src/gtk/Includes/gobject/gvaluetypes.cdecl b/src/gtk/Includes/gobject/gvaluetypes.cdecl
index cf10e2a10b062b8174a93535f5e7066e6c4ee470..6f2b5e1ed8283a054d5fba7e7c35025d90ff907e 100644 (file)
--- a/src/gtk/Includes/gobject/gvaluetypes.cdecl
+++ b/src/gtk/Includes/gobject/gvaluetypes.cdecl
@@ -4,10 +4,10 @@ glib-2.0/gobject/gvaluetypes.h |#
 
 (include "gvalue")
 
-(extern void g_value_set_char
+(extern void g_value_set_schar
        (value (* GValue))
-       (v_char gchar))
-(extern gchar g_value_get_char
+       (v_char gint8))
+(extern gint8 g_value_get_schar
        (value (* (const GValue))))
 (extern void g_value_set_uchar
        (value (* GValue))

diff --git a/src/gtk/gobject.scm b/src/gtk/gobject.scm
index 6ab1af5905e04eff2ab73bb42940a364c7e91232..24a4adbc8c851a19c2938f3d43d5c1f384afb239 100644 (file)
--- a/src/gtk/gobject.scm
+++ b/src/gtk/gobject.scm
@@ -224,7 +224,7 @@ USA.
             ((int:= type (C-enum "G_TYPE_INTERFACE"))
              (unimplemented "an interface"))
             ((int:= type (C-enum "G_TYPE_CHAR"))
-             (C-call "g_value_get_char" gvalue))
+             (C-call "g_value_get_schar" gvalue))
             ((int:= type (C-enum "G_TYPE_UCHAR"))
              (C-call "g_value_get_uchar" gvalue))
             ((int:= type (C-enum "G_TYPE_BOOLEAN"))
@@ -299,7 +299,7 @@ USA.
                 (let ((fundamental (C-call "G_TYPE_FUNDAMENTAL" gtype)))
                   (cond
                    ((int:= fundamental (C-enum "G_TYPE_CHAR"))
-                    (C-call "g_value_set_char"
+                    (C-call "g_value_set_schar"
                             gvalue (check-prop-char value name)))
                    ((int:= fundamental (C-enum "G_TYPE_UCHAR"))
                     (C-call "g_value_set_uchar"

diff --git a/src/gtk/gtkio.c.stay b/src/gtk/gtkio.c.stay
index 1b16ffc3e08231ed59f8b4ed536fcbb796a9fce9..42b67ce77a53bf3df03ff55e092818a783886999 100644 (file)
--- a/src/gtk/gtkio.c.stay
+++ b/src/gtk/gtkio.c.stay
@@ -280,13 +280,9 @@ scheme_source_dispatch (GSource * source,
 
   gboolean ret = FALSE;
 
-  gdk_threads_enter ();
-
   if (!g_source_is_destroyed (source))
     ret = do_scheme (source);
 
-  gdk_threads_leave ();
-
   return ret;
 }
 
@@ -387,9 +383,6 @@ start_gtk (int *argc, char ***argv)
     return (initted);
 
   init_signal_handling ();
-  g_thread_init (NULL);
-  gdk_threads_init ();
-  gdk_threads_enter ();
 
   if (gtk_init_check (argc, argv)) {
     initted = TRUE;
@@ -408,7 +401,6 @@ start_gtk (int *argc, char ***argv)
     gtk_main ();
     destroy_scheme_source ();
   }
-  gdk_threads_leave ();
   return initted;
 }