void
on_css_filechooser_file_set(GtkFileChooserButton *button, ChimaraGlk *glk)
{
GError *error = NULL;
extern GSettings *prefs_settings;
char *filename = gtk_file_chooser_get_filename( GTK_FILE_CHOOSER(button) );
if(!chimara_glk_set_css_from_file(glk, filename, &error)) {
error_dialog(NULL, error, "There was a problem reading the CSS file: ");
g_settings_set(prefs_settings, "css-file", "ms", NULL);
} else {
g_settings_set(prefs_settings, "css-file", "ms", filename);
}
g_free(filename);
}
static gboolean
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 */
return FALSE;
#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"));
/* Set the default value of the "View/Toolbar" menu item upon creation of a
new window to the "show-toolbar-default" setting, but bind the setting
one-way only - we don't want toolbars to disappear suddenly */
GtkToggleAction *toolbar_action = GTK_TOGGLE_ACTION(load_object("toolbar"));
gtk_toggle_action_set_active(toolbar_action, g_settings_get_boolean(state_settings, "show-toolbar-default"));
g_settings_bind(state_settings, "show-toolbar-default", toolbar_action, "active", G_SETTINGS_BIND_SET);
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 */
return FALSE;
}
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 */
return FALSE;
}
/* 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 { font-family: 'Comic Sans MS'; }");*/
GtkBox *vbox = GTK_BOX( gtk_builder_get_object(builder, "vbox") );
if(vbox == NULL)
return FALSE;
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);
/* Connect the accelerators */
GtkAccelGroup *accels = gtk_ui_manager_get_accel_group(uimanager);
gtk_window_add_accel_group(GTK_WINDOW(window), accels);
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));
return TRUE;
}
/* Create the preferences dialog. */
void
preferences_create(ChimaraGlk *glk)
{
/* Initialize the tree of style names */
GtkTreeStore *style_list = GTK_TREE_STORE( load_object("style-list") );
GtkTreeIter buffer, grid, buffer_child, grid_child;
gtk_tree_store_append(style_list, &buffer, NULL);
gtk_tree_store_append(style_list, &grid, NULL);
gtk_tree_store_set(style_list, &buffer, 0, "Text buffer", -1);
gtk_tree_store_set(style_list, &grid, 0, "Text grid", -1);
unsigned i, num_tags;
const char * const *tag_names = chimara_glk_get_tag_names(glk, &num_tags);
for(i=0; i<num_tags; i++) {
gtk_tree_store_append(style_list, &buffer_child, &buffer);
gtk_tree_store_append(style_list, &grid_child, &grid);
gtk_tree_store_set(style_list, &buffer_child, 0, tag_names[i], -1);
gtk_tree_store_set(style_list, &grid_child, 0, tag_names[i], -1);
}
/* Set selection mode to single select */
GtkTreeView *view = GTK_TREE_VIEW( load_object("style-treeview") );
GtkTreeSelection *selection = gtk_tree_view_get_selection(view);
gtk_tree_selection_set_mode(selection, GTK_SELECTION_SINGLE);
g_signal_connect(selection, "changed", G_CALLBACK(style_tree_select_callback), glk);
/* Bind the preferences to the entries in the preferences file */
extern GSettings *prefs_settings;
GObject *flep = G_OBJECT( load_object("flep") );
g_settings_bind(prefs_settings, "flep", flep, "active", G_SETTINGS_BIND_DEFAULT);
GtkFileChooser *blorb_chooser = GTK_FILE_CHOOSER( load_object("blorb_file_chooser") );
GtkFileChooser *css_chooser = GTK_FILE_CHOOSER( load_object("css-filechooser") );
char *filename;
g_settings_get(prefs_settings, "resource-path", "ms", &filename);
if(filename) {
gtk_file_chooser_set_filename(blorb_chooser, filename);
g_free(filename);
}
g_settings_get(prefs_settings, "css-file", "ms", &filename);
if(filename) {
if(!chimara_glk_set_css_from_file(glk, filename, NULL)) {
/* If the setting didn't point to a CSS file, fail silently and
null the setting */
g_settings_set(prefs_settings, "css-file", "ms", NULL);
} else {
gtk_file_chooser_set_filename(css_chooser, filename);
}
g_free(filename);
}
/* Populate the list of available interpreters */
GtkListStore *interp_list = GTK_LIST_STORE( load_object("available_interpreters") );
unsigned int count;
GtkTreeIter tree_iter;
for(count = 0; count < CHIMARA_IF_NUM_INTERPRETERS; count++) {
gtk_list_store_append(interp_list, &tree_iter);
gtk_list_store_set(interp_list, &tree_iter,
0, interpreter_to_display_string(count),
-1);
}
/* Get the list of preferred interpreters from the preferences */
GVariantIter *iter;
char *format, *plugin;
g_settings_get(prefs_settings, "preferred-interpreters", "a{ss}", &iter);
while(g_variant_iter_loop(iter, "{ss}", &format, &plugin)) {
ChimaraIFFormat format_num = parse_format(format);
if(format_num == CHIMARA_IF_FORMAT_NONE)
continue;
ChimaraIFInterpreter interp_num = parse_interpreter(plugin);
if(interp_num == CHIMARA_IF_INTERPRETER_NONE)
continue;
chimara_if_set_preferred_interpreter(CHIMARA_IF(glk), format_num, interp_num);
}
g_variant_iter_free(iter);
/* Display it all in the list */
preferred_list = GTK_LIST_STORE( load_object("interpreters") );
for(count = 0; count < CHIMARA_IF_NUM_FORMATS; count++) {
gtk_list_store_append(preferred_list, &tree_iter);
gtk_list_store_set(preferred_list, &tree_iter,
0, format_to_display_string(count),
1, interpreter_to_display_string(chimara_if_get_preferred_interpreter(CHIMARA_IF(glk), count)),
-1);
}
}
