From 388ef489be020c4f409ea04691dc31e87eebe66f Mon Sep 17 00:00:00 2001
From: Sergey Cherepanov <s.g.cherepanov@gmail.com>
Date: Sat, 24 Nov 2012 19:35:58 +1100
Subject: [PATCH] Add wrappers for gtk_init() and gtk_main().

---
 examples/gtk/hello-world.scm |  3 +++
 lib/gtk/gtkmain.c            | 30 ++++++++++++++++++++++++++++++
 2 files changed, 33 insertions(+)

diff --git a/examples/gtk/hello-world.scm b/examples/gtk/hello-world.scm
index fabe9f9..57e197b 100644
--- a/examples/gtk/hello-world.scm
+++ b/examples/gtk/hello-world.scm
@@ -1,3 +1,6 @@
 ;;; -*-Scheme-*-
 
 (require 'gtk.la)
+
+(gtk-init (command-line-args))
+(gtk-main)
diff --git a/lib/gtk/gtkmain.c b/lib/gtk/gtkmain.c
index 86c3cee..c0f9460 100644
--- a/lib/gtk/gtkmain.c
+++ b/lib/gtk/gtkmain.c
@@ -29,6 +29,36 @@
  */
 
 #include "gtk.h"
+#include "intern.h"
+
+static Object P_Gtk_Init (Object args) {
+    int argc;
+    char **argv;
+    int i;
+
+    Check_List (args);
+    argc = Fast_Length (args) + 1;
+    argv = (char **)Safe_Malloc (sizeof (char *) * argc);
+    argv[0] = appname ? appname : "elk";
+    for (i = 1; i < argc; i++) {
+        Object arg = Car (args);
+        Check_Type (arg, T_String);
+        argv[i] = Get_String (arg);
+        args = Cdr (args);
+    }
+    gtk_init (&argc, &argv);
+    free (argv);
+
+    return Void;
+}
+
+static Object P_Gtk_Main () {
+    gtk_main ();
+
+    return Void;
+}
 
 void elk_init_gtk_gtkmain () {
+    Define_Primitive (P_Gtk_Init, "gtk-init", 1, 1, EVAL);
+    Define_Primitive (P_Gtk_Main, "gtk-main", 0, 0, EVAL);
 }