+/* Check whether paging should be done. This function is called after the
+ * textview has finished validating text positions. */
+void
+pager_after_size_allocate(GtkTextView *textview, GdkRectangle *allocation, winid_t win)
+{
+ /* Move the pager to the last visible character in the buffer */
+ gint view_height, scroll_distance;
+ move_pager_and_get_scroll_distance(GTK_TEXT_VIEW(win->widget), &view_height, &scroll_distance, FALSE);
+
+ if(view_height <= 1)
+ /* Paging is unusable when window is too small */
+ return;
+
+ /* If not in interactive mode, then just scroll to the bottom. */
+ ChimaraGlk *glk = CHIMARA_GLK(gtk_widget_get_ancestor(GTK_WIDGET(textview), CHIMARA_TYPE_GLK));
+ g_assert(glk);
+ if(!chimara_glk_get_interactive(glk)) {
+ GtkTextIter end;
+ gtk_text_buffer_get_end_iter(gtk_text_view_get_buffer(textview), &end);
+ gtk_text_view_scroll_to_iter(textview, &end, 0.0, TRUE, 0.0, 0.0);
+ return;
+ }
+
+ /* Scroll past text already read by user. This is automatic scrolling, so disable the pager_ajustment_handler
+ * first, that acts on the belief the scolling is performed by the user. */
+ GtkAdjustment *adj = gtk_scrolled_window_get_vadjustment(GTK_SCROLLED_WINDOW(win->scrolledwindow));
+ g_signal_handler_block(adj, win->pager_adjustment_handler);
+ GtkTextBuffer *buffer = gtk_text_view_get_buffer(GTK_TEXT_VIEW(win->widget));
+ GtkTextMark *pager_position = gtk_text_buffer_get_mark(buffer, "pager_position");
+ gtk_text_view_scroll_to_mark(GTK_TEXT_VIEW(win->widget), pager_position, 0.0, TRUE, 0.0, 0.0);
+ g_signal_handler_unblock(adj, win->pager_adjustment_handler);
+
+ if(!win->currently_paging) {
+ if(scroll_distance > view_height) {
+ start_paging(win);
+ gdk_window_invalidate_rect(gtk_widget_get_window(win->widget), NULL, TRUE);
+ }
+ }
+}
+
+void
+pager_update(winid_t win)