- GHashTable *thing = psppire_dialog_action_get_hash_table (pda);
- GtkBuilder *xml = g_hash_table_lookup (thing, pda);
- if (!xml)
- {
- GtkTextIter iter;
-
- xml = builder_new ("comments.ui");
- g_hash_table_insert (thing, pda, xml);
-
- pda->dialog = get_widget_assert (xml, "comments-dialog");
- act->textview = get_widget_assert (xml, "comments-textview1");
- GtkWidget *label = get_widget_assert (xml, "column-number-label");
- GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (act->textview));
- act->check = get_widget_assert (xml, "comments-checkbutton1");
-
- g_signal_connect_swapped (pda->dialog, "show", G_CALLBACK (retrieve_comments), pda);
-
- {
- PangoContext * context ;
- PangoLayout * layout ;
- PangoRectangle rect;
-
-
- /* Since we're going to truncate lines to 80 chars,
- we need a monospaced font otherwise it'll look silly */
- PangoFontDescription *font_desc =
- pango_font_description_from_string ("monospace");
- {
- GtkStyleContext *style = gtk_widget_get_style_context (GTK_WIDGET (act->textview));
- GtkCssProvider *cssp = gtk_css_provider_new ();
-
- gchar *str = pango_font_description_to_string (font_desc);
- gchar *css =
- g_strdup_printf ("* {font: %s}", str);
- g_free (str);
-
- GError *err = NULL;
- gtk_css_provider_load_from_data (cssp, css, -1, &err);
- if (err)
- {
- g_warning ("Failed to load font css \"%s\": %s", css, err->message);
- g_error_free (err);
- }
- g_free (css);
-
- gtk_style_context_add_provider (style,
- GTK_STYLE_PROVIDER (cssp),
- GTK_STYLE_PROVIDER_PRIORITY_APPLICATION);
- g_object_unref (cssp);
- }
-
- /* And let's just make sure that a complete line fits into the
- widget's width */
- context = gtk_widget_create_pango_context (act->textview);
- layout = pango_layout_new (context);