From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Wed, 14 Sep 2011 20:36:30 +0000 (-0700)
Subject: Moved scrollbars to top-right.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2~103
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef8bb60b13beb98d10eee73bd82c479c8dcd556c;p=mit-scheme.git

Moved scrollbars to top-right.
---

diff --git a/src/gtk-screen/gtk-screen.scm b/src/gtk-screen/gtk-screen.scm
index 5fbc72fe0..1c64b0117 100644
--- a/src/gtk-screen/gtk-screen.scm
+++ b/src/gtk-screen/gtk-screen.scm
@@ -922,7 +922,7 @@ USA.
 	  (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 'top-right)
+	  (gtk-scrolled-window-set-placement scroller 'bottom-left)
 	  (gtk-container-add scroller text)
 	  (if (not modeline)
 	      ;; No modeline: the window/text-widget should NOT expand.