[tekui-devel] tekui: removed Area:setDisable(); Group: added Disabled notifica...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/4f06631601c4
changeset: 378:4f06631601c4
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Sun Mar 23 18:23:52 2008 +0100
description:
removed Area:setDisable(); Group: added Disabled notification; Object: minor
cleanup; ScrollGroup.HideXSlider attribute no longer exists, now handled by
XSliderMode ("on", "off", "auto"); Slider: Minor cleanup; Window: corrected
initial tab cycle element detection

diffs (truncated from 443 to 100 lines):

diff -r 346b72a03579 -r 4f06631601c4 tek/app/ui/demo.lua
--- a/tek/app/ui/demo.lua	Fri Mar 21 20:57:29 2008 +0100
+++ b/tek/app/ui/demo.lua	Sun Mar 23 18:23:52 2008 +0100
@@ -263,7 +263,7 @@ ui.Application:new
 							HMax = true,
 							AutoWidth = true,
 							KeepMinWidth = true,
-							HideHSlider = true,
+							VSliderMode = "auto",
 							Children =
 							{
 								ui.Group:new
@@ -318,7 +318,7 @@ ui.Application:new
 								},
 							},
 						},
-						ui.Handle:new { },
+						ui.Spacer:new { },
 						ui.FloatText:new
 						{
 							Text = [[
diff -r 346b72a03579 -r 4f06631601c4 tek/app/ui/vgroup.lua
--- a/tek/app/ui/vgroup.lua	Fri Mar 21 20:57:29 2008 +0100
+++ b/tek/app/ui/vgroup.lua	Sun Mar 23 18:23:52 2008 +0100
@@ -18,6 +18,8 @@ ui.application:new
 					Width = 500,
 					Height = 500,
 					GridW = 2,
+					HSliderMode = "on",
+					VSliderMode = "on",
 					Children = {
 						ui.button:new { HMax = true, VMax = true, Label = "foo" },
 						ui.button:new { HMax = true, VMax = true, Label = "foo" },
@@ -27,6 +29,8 @@ ui.application:new
 							Width = 500,
 							Height = 500,
 							GridW = 2,
+							HSliderMode = "on",
+							VSliderMode = "on",
 							Children = {
 								ui.button:new { HMax = true, VMax = true, Label = "foo" },
 								ui.button:new { HMax = true, VMax = true, Label = "foo" },
@@ -36,6 +40,8 @@ ui.application:new
 									Width = 500,
 									Height = 500,
 									GridW = 2,
+									HSliderMode = "on",
+									VSliderMode = "on",
 									Children = {
 										ui.button:new { HMax = true, VMax = true, Label = "foo" },
 										ui.button:new { HMax = true, VMax = true, Label = "foo" },
diff -r 346b72a03579 -r 4f06631601c4 tek/class/ui/area.lua
--- a/tek/class/ui/area.lua	Fri Mar 21 20:57:29 2008 +0100
+++ b/tek/class/ui/area.lua	Sun Mar 23 18:23:52 2008 +0100
@@ -30,7 +30,7 @@ local floor = math.floor
 local floor = math.floor
 
 module("tek.class.ui.area", tek.class.ui.element)
-_VERSION = "Area 4.6"
+_VERSION = "Area 5.0"
 local Area = _M
 
 -------------------------------------------------------------------------------
@@ -329,15 +329,6 @@ end
 end
 
 -------------------------------------------------------------------------------
---	area:setDisable(onoff) - Sets the '''Disabled''' attribute to the
---	specified boolean ('''true''' or '''false''').
--------------------------------------------------------------------------------
-
-function Area:setDisable(onoff)
-	self:setValue("Disabled", onoff)
-end
-
--------------------------------------------------------------------------------
 --	msg = area:filterInput(msg, element): This function filters an input
 --	message. If the implementation feels responsible for processing
 --	messages that are addressed to the specified {{element}}, it is then
diff -r 346b72a03579 -r 4f06631601c4 tek/class/ui/canvas.lua
--- a/tek/class/ui/canvas.lua	Fri Mar 21 20:57:29 2008 +0100
+++ b/tek/class/ui/canvas.lua	Sun Mar 23 18:23:52 2008 +0100
@@ -265,9 +265,10 @@ function Canvas:filterInput(msg, element
 function Canvas:filterInput(msg, element)
 	-- operate on copy of the input message:
 	local m = self.TempMsg
+	local r = self.Rect
 	m[1], m[2], m[3], m[4], m[5], m[6] = unpack(msg)
 	-- correct mouse position:
-	m[4] = m[4] - self.Rect[1] + self.Left
-	m[5] = m[5] - self.Rect[2] + self.Top
+	m[4] = m[4] - r[1] + self.Left
+	m[5] = m[5] - r[2] + self.Top
 	return self.Object:filterInput(m, element)
 end
diff -r 346b72a03579 -r 4f06631601c4 tek/class/ui/floattext.lua
--- a/tek/class/ui/floattext.lua	Fri Mar 21 20:57:29 2008 +0100
+++ b/tek/class/ui/floattext.lua	Sun Mar 23 18:23:52 2008 +0100
@@ -211,8 +211,9 @@ function FloatText.new(class, self)