From ad005e96850ae2063f74dd97f61e41a4cbea6516 Mon Sep 17 00:00:00 2001
From: Sergey Cherepanov <s.g.cherepanov@gmail.com>
Date: Sat, 24 Nov 2012 18:40:56 +1100
Subject: [PATCH] Add infrastructure for wrappers for gtkmain.h.

---
 lib/gtk/Makefile.am |  1 +
 lib/gtk/gtk.h       |  2 ++
 lib/gtk/gtkmain.c   | 34 ++++++++++++++++++++++++++++++++++
 lib/gtk/init.c      |  1 +
 4 files changed, 38 insertions(+)
 create mode 100644 lib/gtk/gtkmain.c

diff --git a/lib/gtk/Makefile.am b/lib/gtk/Makefile.am
index 4598e10..da9eb50 100644
--- a/lib/gtk/Makefile.am
+++ b/lib/gtk/Makefile.am
@@ -9,6 +9,7 @@ gtk_la = gtk.la
 endif
 
 libelk_gtk_la_SOURCES = \
+	gtkmain.c \
 	$(NULL)
 libelk_gtk_la_CFLAGS = @GTK_CFLAGS@
 libelk_gtk_la_LDFLAGS = -no-undefined
diff --git a/lib/gtk/gtk.h b/lib/gtk/gtk.h
index b67e050..45ce7ce 100644
--- a/lib/gtk/gtk.h
+++ b/lib/gtk/gtk.h
@@ -31,3 +31,5 @@
 #include <scheme.h>
 #include <gtk/gtk.h>
 #include "config.h"
+
+extern void elk_init_gtk_gtkmain (void);
diff --git a/lib/gtk/gtkmain.c b/lib/gtk/gtkmain.c
new file mode 100644
index 0000000..86c3cee
--- /dev/null
+++ b/lib/gtk/gtkmain.c
@@ -0,0 +1,34 @@
+/* gtkmain.c
+ *
+ * $Id$
+ *
+ * Copyright 1990, 1991, 1992, 1993, 1994, 1995, Oliver Laumann, Berlin
+ * Copyright 2002, 2003 Sam Hocevar <sam@hocevar.net>, Paris
+ *
+ * This software was derived from Elk 1.2, which was Copyright 1987, 1988,
+ * 1989, Nixdorf Computer AG and TELES GmbH, Berlin (Elk 1.2 has been written
+ * by Oliver Laumann for TELES Telematic Services, Berlin, in a joint project
+ * between TELES and Nixdorf Microprocessor Engineering, Berlin).
+ *
+ * Oliver Laumann, TELES GmbH, Nixdorf Computer AG and Sam Hocevar, as co-
+ * owners or individual owners of copyright in this software, grant to any
+ * person or company a worldwide, royalty free, license to
+ *
+ *    i) copy this software,
+ *   ii) prepare derivative works based on this software,
+ *  iii) distribute copies of this software or derivative works,
+ *   iv) perform this software, or
+ *    v) display this software,
+ *
+ * provided that this notice is not removed and that neither Oliver Laumann
+ * nor Teles nor Nixdorf are deemed to have made any representations as to
+ * the suitability of this software for any purpose nor are held responsible
+ * for any defects of this software.
+ *
+ * THERE IS ABSOLUTELY NO WARRANTY FOR THIS SOFTWARE.
+ */
+
+#include "gtk.h"
+
+void elk_init_gtk_gtkmain () {
+}
diff --git a/lib/gtk/init.c b/lib/gtk/init.c
index a2ecf85..7f65e52 100644
--- a/lib/gtk/init.c
+++ b/lib/gtk/init.c
@@ -31,5 +31,6 @@
 #include "gtk.h"
 
 void elk_init_gtk_init () {
+    elk_init_gtk_gtkmain ();
     P_Provide (Intern ("gtk.la"));
 }