-gboolean
-pager_after_expose_event(GtkTextView *textview, GdkEventExpose *event, winid_t win)
-{
- printf("pager check (expose)...\n");
- g_idle_add(pager_check, 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 FALSE;
-//
-// if(!win->currently_paging) {
-// if(scroll_distance > view_height) {
-// start_paging(win);
-// /* Seriously... */
-// /* COMPAT: */
-//#if GTK_CHECK_VERSION(2,14,0)
-// gdk_window_invalidate_rect(gtk_widget_get_window(win->widget), NULL, TRUE);
-//#else
-// gdk_window_invalidate_rect(win->widget->window, NULL, TRUE);
-//#endif
-// }
-// else if(scroll_distance > 0) {
-// if(win->input_request_type != INPUT_REQUEST_NONE) {
-// GtkTextBuffer *buffer = gtk_text_view_get_buffer(GTK_TEXT_VIEW(win->widget));
-// GtkTextMark *end = gtk_text_buffer_get_mark(buffer, "end_position");
-//
-// gtk_text_view_scroll_mark_onscreen(GTK_TEXT_VIEW(win->widget), end);
-// }
-// }
-// }
-
- return 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);
+ }
+ }