From d3a8560cc5d3f6b74b83f0c03c07868468a96e73 Mon Sep 17 00:00:00 2001
From: Eric Wasylishen <ewasylishen@gmail.com>
Date: Sat, 28 Sep 2013 20:40:42 +0000
Subject: [PATCH] * Source/GSThemeDrawing.m: Add GSScrollerDefaultWidth user
 default so non-code themes can change -[GSTheme defaultScrollerWidth]

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/gui/trunk@37163 72102866-910b-0410-8b05-ffd578937521
---
 ChangeLog               |  5 +++++
 Source/GSThemeDrawing.m | 13 ++++++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index e3f310ce1..0441c5ec8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-28  Eric Wasylishen <ewasylishen@gmail.com>
+
+	* Source/GSThemeDrawing.m: Add GSScrollerDefaultWidth user default
+	so non-code themes can change -[GSTheme defaultScrollerWidth]
+
 2013-09-28  Eric Wasylishen <ewasylishen@gmail.com>
 
 	* Source/NSScroller.m: Add GSScrollerKnobOvershoot default which
diff --git a/Source/GSThemeDrawing.m b/Source/GSThemeDrawing.m
index c096e969e..52051efc2 100644
--- a/Source/GSThemeDrawing.m
+++ b/Source/GSThemeDrawing.m
@@ -531,7 +531,18 @@
 
 - (float) defaultScrollerWidth
 {
-  return 18.0;
+  NSUserDefaults *defs = [NSUserDefaults standardUserDefaults];
+  float defaultScrollerWidth;
+
+  if ([defs objectForKey: @"GSScrollerDefaultWidth"] != nil)
+    {
+      defaultScrollerWidth = [defs floatForKey: @"GSScrollerDefaultWidth"];
+    }
+  else
+    {
+      defaultScrollerWidth = 18.0;
+    }
+  return defaultScrollerWidth;
 }
 
 - (NSColor *) toolbarBackgroundColor