X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=src%2Fchimara-glk.c;h=b7629240b7cc4422b7e8b774003399c2cd2d48be;hb=2e7aa380dbd9660314df829820d3a7bf73b7d4d0;hp=73c128791760ba13aed5f8dd95c141c08ef9228d;hpb=02883c61ed395cbbf25e66e40b8238e1a1b31cc6;p=rodin%2Fchimara.git

diff --git a/src/chimara-glk.c b/src/chimara-glk.c
index 73c1287..b762924 100644
--- a/src/chimara-glk.c
+++ b/src/chimara-glk.c
@@ -330,7 +330,73 @@ allocate_recurse(winid_t win, GtkAllocation *allocation, guint spacing)
 		allocate_recurse(win->window_node->children->next->data, &child2, spacing);
 	}
 	
-	/* For non-pair windows, just give them the size */
+	else if(win->type == wintype_TextGrid)
+	{
+		/* Pass the size allocation on to the framing widget */
+		gtk_widget_size_allocate(win->frame, allocation);
+		/* It says in the spec that when a text grid window is resized smaller,
+		 the bottom or right area is thrown away; when it is resized larger, the
+		 bottom or right area is filled with blanks. */
+		glui32 newwidth = (glui32)(win->widget->allocation.width / win->unit_width);
+		glui32 newheight = (glui32)(win->widget->allocation.height / win->unit_height);
+		gint line;
+		GtkTextBuffer *textbuffer = gtk_text_view_get_buffer( GTK_TEXT_VIEW(win->widget) );
+		GtkTextIter start, end;
+	
+		for(line = 0; line < win->height; line++)
+		{
+			gtk_text_buffer_get_iter_at_line(textbuffer, &start, line);
+			/* If this line is going to fall off the bottom, delete it */
+			if(line >= newheight)
+			{
+				end = start;
+				gtk_text_iter_forward_to_line_end(&end);
+				gtk_text_iter_forward_char(&end);
+				gtk_text_buffer_delete(textbuffer, &start, &end);
+				break;
+			}
+			/* If this line is not long enough, add spaces on the end */
+			if(newwidth > win->width)
+			{
+				gchar *spaces = g_strnfill(newwidth - win->width, ' ');
+				gtk_text_iter_forward_to_line_end(&start);
+				gtk_text_buffer_insert(textbuffer, &start, spaces, -1);
+				g_free(spaces);
+			}
+			/* But if it's too long, delete characters from the end */
+			else if(newwidth < win->width)
+			{
+				end = start;
+				gtk_text_iter_forward_chars(&start, newwidth);
+				gtk_text_iter_forward_to_line_end(&end);
+				gtk_text_buffer_delete(textbuffer, &start, &end);
+			}
+			/* Note: if the widths are equal, do nothing */
+		}
+		/* Add blank lines if there aren't enough lines to fit the new size */
+		if(newheight > win->height)
+		{
+			gchar *blanks = g_strnfill(win->width, ' ');
+		    gchar **blanklines = g_new0(gchar *, (newheight - win->height) + 1);
+		    int count;
+		    for(count = 0; count < newheight - win->height; count++)
+		        blanklines[count] = blanks;
+		    blanklines[newheight - win->height] = NULL;
+		    gchar *text = g_strjoinv("\n", blanklines);
+		    g_free(blanklines); /* not g_strfreev() */
+		    g_free(blanks);
+		    
+			gtk_text_buffer_get_end_iter(textbuffer, &start);
+			gtk_text_buffer_insert(textbuffer, &start, "\n", -1);
+		    gtk_text_buffer_insert(textbuffer, &start, text, -1);
+		    g_free(text);
+		}
+	
+		win->width = newwidth;
+		win->height = newheight;
+	}
+	
+	/* For non-pair, non-text-grid windows, just give them the size */
 	else
 		gtk_widget_size_allocate(win->frame, allocation);
 }