X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=libchimara%2Fgarglk.c;h=df5c6b35e4f0240289fa1c2bd983b3418ce51b0f;hb=a2719c489bac9e4c1902e5476140a924a7d42b78;hp=b72fc5979e8d1c1929d442e9fffa28a45e5e81f8;hpb=beda346223d81061b1c6f8aa444988650c105333;p=projects%2Fchimara%2Fchimara.git

diff --git a/libchimara/garglk.c b/libchimara/garglk.c
index b72fc59..df5c6b3 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"); ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 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");
  * ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 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 &mdash; 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"); ]|
- *
- * <warning><para>This function is not currently implemented.</para></warning>
  */
 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");
 }
 
 /**
@@ -184,7 +184,11 @@ garglk_set_zcolors(glui32 fg, glui32 bg)
 static void
 apply_reverse_color(GtkTextTag *tag, gpointer data)
 {
-	g_object_set_data( G_OBJECT(tag), "reverse_color", data );
+	const gchar *tag_name;
+	g_object_get(tag, "name", &tag_name, NULL);
+
+	if( g_str_has_prefix(tag_name, "glk-") )
+		g_object_set_data( G_OBJECT(tag), "reverse_color", data );
 }
 
 /**
@@ -202,6 +206,7 @@ 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) );
+	GtkTextBuffer *buffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(glk_data->current_stream->window->widget) );
+	GtkTextTagTable *tags = gtk_text_buffer_get_tag_table(buffer);
 	gtk_text_tag_table_foreach( tags, apply_reverse_color, GINT_TO_POINTER(reverse) );
 }