X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=libchimara%2Fgarglk.c;h=e7333a6d2bc1cfaa575b04c9665659bf978f47e3;hb=75009f8f40bbb580194e1722db76f4644bf18641;hp=b72fc5979e8d1c1929d442e9fffa28a45e5e81f8;hpb=beda346223d81061b1c6f8aa444988650c105333;p=projects%2Fchimara%2Fchimara.git
diff --git a/libchimara/garglk.c b/libchimara/garglk.c
index b72fc59..e7333a6 100644
--- a/libchimara/garglk.c
+++ b/libchimara/garglk.c
@@ -32,13 +32,13 @@ garglk_fileref_get_name(frefid_t fref)
* — for example, in the title bar of a window. A typical use of this
* function would be:
* |[ garglk_set_program_name("SuperGlkFrotz 0.1"); ]|
- *
- * This function is not currently implemented.
*/
void
garglk_set_program_name(const char *name)
{
- WARNING(_("Not implemented"));
+ ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
+ glk_data->program_name = g_strdup(name);
+ g_object_notify(G_OBJECT(glk_data->self), "program-name");
}
/**
@@ -56,13 +56,13 @@ garglk_set_program_name(const char *name)
* "Glk port by Tor Andersson\n"
* "Animation, networking, and evil AI by Sven Metcalfe");
* ]|
- *
- * This function is not currently implemented.
*/
void
garglk_set_program_info(const char *info)
{
- WARNING(_("Not implemented"));
+ ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
+ glk_data->program_info = g_strdup(info);
+ g_object_notify(G_OBJECT(glk_data->self), "program-info");
}
/**
@@ -75,13 +75,13 @@ garglk_set_program_info(const char *info)
* anywhere — for example, in the title bar of a window. A typical use of
* this function would be:
* |[ garglk_set_story_name("Lighan Ses Lion, el Zarf"); ]|
- *
- * This function is not currently implemented.
*/
void
garglk_set_story_name(const char *name)
{
- WARNING(_("Not implemented"));
+ ChimaraGlkPrivate *glk_data = g_private_get(glk_data_key);
+ glk_data->story_name = g_strdup(name);
+ g_object_notify(G_OBJECT(glk_data->self), "story-name");
}
/**
@@ -158,6 +158,14 @@ garglk_unput_string_uni(glui32 *str)
WARNING(_("Not implemented"));
}
+/* TODO document */
+void
+garglk_set_zcolors_stream(strid_t str, glui32 fg, glui32 bg)
+{
+ VALID_STREAM(str, return);
+ WARNING(_("Not implemented"));
+}
+
/**
* garglk_set_zcolors:
* @fg: one of the zcolor_
constants.
@@ -178,7 +186,7 @@ garglk_set_zcolors(glui32 fg, glui32 bg)
g_return_if_fail(glk_data->current_stream != NULL);
g_return_if_fail(glk_data->current_stream->window != NULL);
- WARNING(_("Not implemented"));
+ garglk_set_zcolors_stream(glk_data->current_stream, fg, bg);
}
static void
@@ -187,6 +195,17 @@ apply_reverse_color(GtkTextTag *tag, gpointer data)
g_object_set_data( G_OBJECT(tag), "reverse_color", data );
}
+/* TODO document */
+void
+garglk_set_reversevideo_stream(strid_t str, glui32 reverse)
+{
+ VALID_STREAM(str, return);
+
+ GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(str->window->widget) );
+ GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
+ gtk_text_tag_table_foreach( tags, apply_reverse_color, GINT_TO_POINTER(reverse) );
+}
+
/**
* garglk_set_reversevideo:
* @reverse: nonzero for reverse colors, zero for normal colors.
@@ -202,6 +221,5 @@ garglk_set_reversevideo(glui32 reverse)
g_return_if_fail(glk_data->current_stream != NULL);
g_return_if_fail(glk_data->current_stream->window != NULL);
- GtkTextTagTable *tags = gtk_text_buffer_get_tag_table( GTK_TEXT_BUFFER(glk_data->current_stream->window->widget) );
- gtk_text_tag_table_foreach( tags, apply_reverse_color, GINT_TO_POINTER(reverse) );
+ garglk_set_reversevideo_stream(glk_data->current_stream, reverse);
}