-
-/* Use a custom GSettings backend for our preferences file */
-#define G_SETTINGS_ENABLE_BACKEND
-#include <gio/gsettingsbackend.h>
-
-#include "error.h"
-#include <libchimara/chimara-glk.h>
-#include <libchimara/chimara-if.h>
-
-#include "preferences.h"
-
-/* Static global pointers to widgets */
-static GtkUIManager *uimanager = NULL;
-static GtkWidget *window = NULL;
-static GtkWidget *glk = NULL;
-
-/* Global global pointers */
-GtkBuilder *builder = NULL;
-GtkWidget *aboutwindow = NULL;
-GtkWidget *prefswindow = NULL;
-GtkWidget *toolbar = NULL;
-GSettings *prefs_settings = NULL;
-GSettings *state_settings = NULL;
-
-GObject *
-load_object(const gchar *name)
-{
- GObject *retval;
- if( (retval = gtk_builder_get_object(builder, name)) == NULL) {
- error_dialog(NULL, NULL, "Error while getting object '%s'", name);
- g_error("Error while getting object '%s'", name);
- }
- return retval;
-}
-
-static void
-change_window_title(ChimaraGlk *glk, GParamSpec *pspec, GtkWindow *window)
-{
- gchar *program_name, *story_name, *title;
- g_object_get(glk, "program-name", &program_name, "story-name", &story_name, NULL);
- if(!program_name) {
- gtk_window_set_title(window, "Chimara");
- return;
- }
- else if(!story_name)
- title = g_strdup_printf("%s - Chimara", program_name);
- else
- title = g_strdup_printf("%s - %s - Chimara", program_name, story_name);
-
- g_free(program_name);
- g_free(story_name);
- gtk_window_set_title(window, title);
- g_free(title);
-}
-
-static void
-create_window(void)
-{
- GError *error = NULL;
-
- builder = gtk_builder_new();
- if( !gtk_builder_add_from_file(builder, PACKAGE_DATA_DIR "/chimara.ui", &error) ) {
-#ifdef DEBUG
- g_error_free(error);
- error = NULL;
- if( !gtk_builder_add_from_file(builder, PACKAGE_SRC_DIR "/chimara.ui", &error) ) {
-#endif /* DEBUG */
- error_dialog(NULL, error, "Error while building interface: ");
- return;
-#ifdef DEBUG
- }
-#endif /* DEBUG */
- }
-
- window = GTK_WIDGET(load_object("chimara"));
- aboutwindow = GTK_WIDGET(load_object("aboutwindow"));
- prefswindow = GTK_WIDGET(load_object("prefswindow"));
- GtkActionGroup *actiongroup = GTK_ACTION_GROUP(load_object("actiongroup"));
- GtkToggleAction *toolbar_action = GTK_TOGGLE_ACTION(load_object("toolbar"));
-
- const gchar **ptr;
- GtkRecentFilter *filter = gtk_recent_filter_new();
- /* TODO: Use mimetypes and construct the filter dynamically depending on
- what plugins are installed */
- const gchar *patterns[] = {
- "*.z[1-8]", "*.[zg]lb", "*.[zg]blorb", "*.ulx", "*.blb", "*.blorb", NULL
- };
-
- for(ptr = patterns; *ptr; ptr++)
- gtk_recent_filter_add_pattern(filter, *ptr);
- GtkRecentChooser *recent = GTK_RECENT_CHOOSER(load_object("recent"));
- gtk_recent_chooser_add_filter(recent, filter);
-
- uimanager = gtk_ui_manager_new();
- if( !gtk_ui_manager_add_ui_from_file(uimanager, PACKAGE_DATA_DIR "/chimara.menus", &error) ) {
-#ifdef DEBUG
- g_error_free(error);
- error = NULL;
- if( !gtk_ui_manager_add_ui_from_file(uimanager, PACKAGE_SRC_DIR "/chimara.menus", &error) ) {
-#endif /* DEBUG */
- error_dialog(NULL, error, "Error while building interface: ");
- return;
-#ifdef DEBUG
- }
-#endif /* DEBUG */
- }
-
- glk = chimara_if_new();
- g_object_set(glk,
- "ignore-errors", TRUE,
- /*"interpreter-number", CHIMARA_IF_ZMACHINE_TANDY_COLOR,*/
- NULL);
- if( !chimara_glk_set_css_from_file(CHIMARA_GLK(glk), PACKAGE_DATA_DIR "/style.css", &error) ) {
-#ifdef DEBUG
- g_error_free(error);
- error = NULL;
- if( !chimara_glk_set_css_from_file(CHIMARA_GLK(glk), PACKAGE_SRC_DIR "/style.css", &error) ) {
-#endif /* DEBUG */
- error_dialog(NULL, error, "Couldn't open CSS file: ");
- return;
-#ifdef DEBUG
- }
-#endif /* DEBUG */
- }
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_Z5,
- CHIMARA_IF_INTERPRETER_FROTZ);
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_Z6,
- CHIMARA_IF_INTERPRETER_NITFOL);
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_Z8,
- CHIMARA_IF_INTERPRETER_FROTZ);
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_Z_BLORB,
- CHIMARA_IF_INTERPRETER_FROTZ);
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_GLULX,
- CHIMARA_IF_INTERPRETER_GLULXE);
- chimara_if_set_preferred_interpreter(CHIMARA_IF(glk),
- CHIMARA_IF_FORMAT_GLULX_BLORB,
- CHIMARA_IF_INTERPRETER_GLULXE);
-
- /* DON'T UNCOMMENT THIS your eyes will burn
- but it is a good test of programmatically altering just one style
- chimara_glk_set_css_from_string(CHIMARA_GLK(glk),
- "buffer.normal { font-family: 'Comic Sans MS'; }");*/
-
- GtkBox *vbox = GTK_BOX( gtk_builder_get_object(builder, "vbox") );
- if(vbox == NULL)
- {
- error_dialog(NULL, NULL, "Could not find vbox");
- return;
- }
-
- gtk_ui_manager_insert_action_group(uimanager, actiongroup, 0);
- GtkWidget *menubar = gtk_ui_manager_get_widget(uimanager, "/menubar");
- toolbar = gtk_ui_manager_get_widget(uimanager, "/toolbar");
- gtk_widget_set_no_show_all(toolbar, TRUE);
- if(gtk_toggle_action_get_active(toolbar_action))
- gtk_widget_show(toolbar);
- else
- gtk_widget_hide(toolbar);
-
- gtk_box_pack_end(vbox, glk, TRUE, TRUE, 0);
- gtk_box_pack_start(vbox, menubar, FALSE, FALSE, 0);
- gtk_box_pack_start(vbox, toolbar, FALSE, FALSE, 0);
-
- gtk_builder_connect_signals(builder, glk);
- g_signal_connect(glk, "notify::program-name", G_CALLBACK(change_window_title), window);
- g_signal_connect(glk, "notify::story-name", G_CALLBACK(change_window_title), window);
-
- /* Create preferences window */
- preferences_create(CHIMARA_GLK(glk));
-}