A patch for guile-gtk-0.8-locale

[OKUJI Yoshinori <okuji mbox kyoto-inet or jp>]

  Hello.

  Because I'd like to use my native language, I add `gdk-set-locale'
function to `guile-gtk-0.8'.

----------------------------------------------------------------------
diff -urN guile-gtk-0.8/gtk-funcs.c guile-gtk-0.8-locale/gtk-funcs.c
--- guile-gtk-0.8/gtk-funcs.c	Thu Dec 25 20:56:26 1997
+++ guile-gtk-0.8-locale/gtk-funcs.c	Thu Jan 15 23:10:05 1998
@@ -40,6 +40,19 @@
   return sgtk_boxed2scm (c_ret, &sgtk_gdk_font_info, 1);
 }
 
+SCM_PROC (s_gdk_set_locale, "gdk-set-locale", 0, 0, 0, sgtk_gdk_set_locale);
+SCM
+sgtk_gdk_set_locale ()
+{
+  char* c_ret;
+
+  SCM_DEFER_INTS;
+  c_ret = gdk_set_locale ();
+  SCM_ALLOW_INTS;
+
+  return (c_ret == NULL? SCM_BOOL_F : scm_makfrom0str (c_ret));
+}
+
 SCM_PROC (s_gtk_exit, "gtk-exit", 0, 1, 0, sgtk_exit);
 SCM
 sgtk_exit (SCM p_code)
diff -urN guile-gtk-0.8/gtk-funcs.x guile-gtk-0.8-locale/gtk-funcs.x
--- guile-gtk-0.8/gtk-funcs.x	Fri Dec 26 22:07:35 1997
+++ guile-gtk-0.8-locale/gtk-funcs.x	Thu Jan 15 23:12:40 1998
@@ -1,5 +1,6 @@
 	scm_make_gsubr ( s_gtk_style_get_white_interp ,   1 ,   0 ,   0 ,   sgtk_style_get_white_interp ) ;
 	scm_make_gsubr ( s_gdk_font_load ,   1 ,   0 ,   0 ,   sgtk_gdk_font_load ) ;
+	scm_make_gsubr ( s_gdk_set_locale ,   0 ,   0 ,   0 ,   sgtk_gdk_set_locale ) ;
 	scm_make_gsubr ( s_gtk_exit ,   0 ,   1 ,   0 ,   sgtk_exit ) ;
 	scm_make_gsubr ( s_gtk_main ,   0 ,   0 ,   0 ,   sgtk_main ) ;
 	scm_make_gsubr ( s_gtk_main_quit ,   0 ,   0 ,   0 ,   sgtk_main_quit ) ;
diff -urN guile-gtk-0.8/gtk.defs guile-gtk-0.8-locale/gtk.defs
--- guile-gtk-0.8/gtk.defs	Thu Jan 15 23:19:11 1998
+++ guile-gtk-0.8-locale/gtk.defs	Thu Jan 15 23:00:38 1998
@@ -404,6 +404,10 @@
   GdkFont
   ((string name)))
 
+(define-func gdk_set_locale
+  static_string
+  ())
+
 ;; main
 
 (define-func gtk_exit
----------------------------------------------------------------------


Thanks.
------------------------------------------------------------
^.-.^       OKUJI Yoshinori          Kyoto Univ.
( o )^^^^O  E-mail: okuji@mbox.kyoto-inet.or.jp