From 59edb95afc78c27efa41f1ce79c909c91c51d5f3 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sun, 14 Apr 2013 22:34:35 -0700 Subject: [PATCH] gtk-screen: Punt horizontal scrollbars on typein window. Move vertical scrollbars to left side(s). --- src/gtk-screen/gtk-screen.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm index 6e7787e03..c96f54af2 100644 --- a/src/gtk-screen/gtk-screen.scm +++ b/src/gtk-screen/gtk-screen.scm @@ -855,16 +855,17 @@ USA. (set-text-widget-buffer-frame! text window) (set-text-widget-modeline! text modeline) (set-fix-layout-scroll-step! text x-step y-step) - (gtk-scrolled-window-set-policy scroller 'auto 'always) - (gtk-scrolled-window-set-placement scroller 'bottom-left) + (gtk-scrolled-window-set-placement scroller 'bottom-right) (if (not modeline) ;; No modeline: the window/text-widget should NOT expand. (begin + (gtk-scrolled-window-set-policy scroller 'never 'always) (gtk-widget-set-vexpand text #f) (gtk-container-add scroller text) (gtk-container-add vgrid scroller)) ;; With modeline: vgrid and scroller SHOULD expand. (begin + (gtk-scrolled-window-set-policy scroller 'auto 'always) (gtk-container-add scroller text) (gtk-container-add vgrid scroller) (gtk-container-add vgrid modeline))) -- 2.25.1