Added a test program which runs two ChimaraGlk widgets side by side in the same progr...

[rodin/chimara.git] / tests / test-multisession.c

diff --git a/tests/test-multisession.c b/tests/test-multisession.c
new file mode 100644 (file)
index 0000000..7f984c8
--- /dev/null
+++ b/tests/test-multisession.c
@@ -0,0 +1,70 @@
+/* Program for testing multisessionality, i.e. whether two ChimaraGlk widgets
+ can run in the same application. */
+
+#include <glib.h>
+#include <gtk/gtk.h>
+#include <libchimara/chimara-glk.h>
+
+static void
+on_started(ChimaraGlk *glk, const gchar *data)
+{
+    g_printerr("%s started!\n", data);
+}
+
+static void
+on_stopped(ChimaraGlk *glk, const gchar *data)
+{
+    g_printerr("%s stopped!\n", data);
+}
+
+int
+main(int argc, char **argv)
+{
+       if( !g_thread_supported() )
+               g_thread_init(NULL);
+
+       gdk_threads_init();
+    
+       gtk_set_locale();
+       gtk_init(&argc, &argv);
+
+       GtkWidget *window = gtk_window_new(GTK_WINDOW_TOPLEVEL);
+       gtk_widget_set_size_request(window, 800, 500);
+       
+       GtkWidget *hpaned = gtk_hpaned_new();
+       gtk_paned_set_position(GTK_PANED(hpaned), 400);
+       
+       GtkWidget *frotz = chimara_glk_new();
+       chimara_glk_set_default_font_string(CHIMARA_GLK(frotz), "Lucida Sans Unicode 12");
+       chimara_glk_set_monospace_font_string(CHIMARA_GLK(frotz), "Lucida Console 12");
+       g_signal_connect(frotz, "started", G_CALLBACK(on_started), "Frotz");
+       g_signal_connect(frotz, "stopped", G_CALLBACK(on_stopped), "Frotz");
+       
+       GtkWidget *nitfol = chimara_glk_new();
+       chimara_glk_set_default_font_string(CHIMARA_GLK(nitfol), "Bitstream Charter 12");
+       chimara_glk_set_monospace_font_string(CHIMARA_GLK(nitfol), "Luxi Mono 12");
+       g_signal_connect(nitfol, "started", G_CALLBACK(on_started), "Nitfol");
+       g_signal_connect(nitfol, "stopped", G_CALLBACK(on_stopped), "Nitfol");
+
+       gtk_paned_pack1(GTK_PANED(hpaned), frotz, TRUE, TRUE);
+       gtk_paned_pack2(GTK_PANED(hpaned), nitfol, TRUE, TRUE);
+       gtk_container_add(GTK_CONTAINER(window), hpaned);
+
+       gtk_widget_show_all(window);
+
+       if(!chimara_glk_run(CHIMARA_GLK(frotz), "../interpreters/frotz/.libs/frotz.so", argc, argv, NULL))
+               return 1;
+       if(!chimara_glk_run(CHIMARA_GLK(nitfol), "../interpreters/nitfol/.libs/nitfol.so", argc, argv, NULL))
+               return 1;
+
+    gdk_threads_enter();
+       gtk_main();
+       gdk_threads_leave();
+
+       chimara_glk_stop(CHIMARA_GLK(frotz));
+       chimara_glk_stop(CHIMARA_GLK(nitfol));
+
+       return 0;
+}
+       
+       
\ No newline at end of file