[tekui-devel] tekui: Scrollbar, Theme, Default Stylesheet: Slicker appearance ...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/1fb04d782a1b
changeset: 48:1fb04d782a1b
user:      Timm S. Mueller <tmueller at schulze-mueller.de>
date:      Sun Feb 01 14:58:04 2009 +0100
description:
Scrollbar, Theme, Default Stylesheet: Slicker appearance of arrows in
scrollbars

diffs (truncated from 149 to 100 lines):

diff -r 4b6a287132f0 -r 1fb04d782a1b doc/manual.html
--- a/doc/manual.html	Thu Jan 22 17:25:10 2009 +0100
+++ b/doc/manual.html	Sun Feb 01 14:58:04 2009 +0100
@@ -2605,7 +2605,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.theme" id="tek.ui.class.theme">Theme (v6.11)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.theme" id="tek.ui.class.theme">Theme (v6.12)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -4244,7 +4244,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.scrollbar" id="tek.ui.class.scrollbar">ScrollBar (v7.3)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.scrollbar" id="tek.ui.class.scrollbar">ScrollBar (v7.4)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -7304,7 +7304,7 @@
 </pre>
 		<hr />
 		<p>
-			Document generated on Fri Jan  2 20:45:50 2009
+			Document generated on Sun Feb  1 14:55:08 2009
 		</p>
 	</div>
 	</body>
diff -r 4b6a287132f0 -r 1fb04d782a1b tek/ui/class/scrollbar.lua
--- a/tek/ui/class/scrollbar.lua	Thu Jan 22 17:25:10 2009 +0100
+++ b/tek/ui/class/scrollbar.lua	Sun Feb 01 14:58:04 2009 +0100
@@ -59,7 +59,7 @@
 local min = math.min
 
 module("tek.ui.class.scrollbar", tek.ui.class.group)
-_VERSION = "ScrollBar 7.3"
+_VERSION = "ScrollBar 7.4"
 
 local ScrollBar = _M
 
@@ -203,7 +203,7 @@
 	self.Notifications = false
 
 	local img1, img2
-	local class1, class2 = "ScrollBarArrowLeft", "ScrollBarArrowRight"
+	local class1, class2 = "scrollbar-arrowleft", "scrollbar-arrowright"
 	local increase = self.Step
 
 	if self.Orientation == "vertical" then
@@ -212,13 +212,13 @@
 			increase = -self.Step
 		else
 			img1, img2 = ArrowUpImage, ArrowDownImage
-			class1, class2 = "ScrollBarArrowUp", "ScrollBarArrowDown"
+			class1, class2 = "scrollbar-arrowup", "scrollbar-arrowdown"
 		end
 	else
 		if self.ArrowOrientation == "vertical" then
 			img1, img2 = ArrowUpImage, ArrowDownImage
 			increase = -self.Step
-			class1, class2 = "ScrollBarArrowUp", "ScrollBarArrowDown"
+			class1, class2 = "scrollbar-arrowup", "scrollbar-arrowdown"
 		else
 			img1, img2 = ArrowLeftImage, ArrowRightImage
 		end
diff -r 4b6a287132f0 -r 1fb04d782a1b tek/ui/class/theme.lua
--- a/tek/ui/class/theme.lua	Thu Jan 22 17:25:10 2009 +0100
+++ b/tek/ui/class/theme.lua	Sun Feb 01 14:58:04 2009 +0100
@@ -26,7 +26,7 @@
 local tonumber = tonumber
 
 module("tek.ui.class.theme", tek.class)
-_VERSION = "Theme 6.11"
+_VERSION = "Theme 6.12"
 local Theme = _M
 
 local DEF_STYLESHEET = ui.prepareProperties
@@ -313,6 +313,30 @@
 		["padding-left"] = 2,
 	},
 
+	[".scrollbar-arrowup"] =
+	{
+		["margin-bottom"] = 0,
+		["border-width"] = 3,
+	},
+
+	[".scrollbar-arrowdown"] =
+	{
+		["margin-top"] = 0,
+		["border-width"] = 3,
+	},
+
+	[".scrollbar-arrowleft"] =
+	{
+		["margin-right"] = 0,
+		["border-width"] = 3,
+	},