Added Nitfol and Frotz source code.

[projects/chimara/chimara.git] / src / main.c

diff --git a/src/main.c b/src/main.c
index edcb1d54be1a92cb4c55b48d2e15cbbda2983567..936255952e6a914f53ab4b93fb27ee58f46b685a 100644 (file)
--- a/src/main.c
+++ b/src/main.c
@@ -49,6 +49,18 @@ GtkBuilder *builder = NULL;
 GtkWidget *window = NULL;
 GtkWidget *glk = NULL;
 
+static void
+on_started(ChimaraGlk *glk)
+{
+    g_printerr("Started!\n");
+}
+
+static void
+on_stopped(ChimaraGlk *glk)
+{
+    g_printerr("Stopped!\n");
+}
+
 static void
 create_window(void)
 {
@@ -60,6 +72,11 @@ create_window(void)
        gtk_builder_connect_signals(builder, NULL);
        
        glk = chimara_glk_new();
+       g_object_set(glk, "border-width", 6, "spacing", 6, NULL);
+       chimara_glk_set_default_font_string(CHIMARA_GLK(glk), "Sans 11");
+       chimara_glk_set_monospace_font_string(CHIMARA_GLK(glk), "Monospace 10");
+       g_signal_connect(glk, "started", G_CALLBACK(on_started), NULL);
+       g_signal_connect(glk, "stopped", G_CALLBACK(on_stopped), NULL);
        
        GtkBox *vbox = GTK_BOX( gtk_builder_get_object(builder, "vbox") );                      
        if(vbox == NULL)
@@ -101,7 +118,7 @@ main(int argc, char *argv[])
 
        g_object_unref( G_OBJECT(builder) );
 
-    if( !chimara_glk_run(CHIMARA_GLK(glk), ".libs/first.so", &error) ) {
+    if( !chimara_glk_run(CHIMARA_GLK(glk), "../interpreters/nitfol/.libs/nitfol.so", &error) ) {
         error_dialog(GTK_WINDOW(window), error, "Error starting Glk library: ");
         return 1;
     }