[tekui-devel] tekui: Application, Area, List, ScrollGroup, Slider: added missi...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/7223164dde41
changeset: 388:7223164dde41
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Thu Mar 27 16:25:41 2008 +0100
description:
Application, Area, List, ScrollGroup, Slider: added missing initializations;
Recess Border: theme property name corrected; Canvas: refresh of unused region
now uses Object.Background; FloatText, List: added setState(); Focus property
moved from Gadget to Frame; Group: initializations moved to newRegularGroup();
Object:doNotify() now probes for function type destinations before accessing
them; RadioButton: removed onpress/onrelease notifications; Window: removed
passMsg() to focused element

diffs (truncated from 424 to 100 lines):

diff -r 4e3e3e6d4ac2 -r 7223164dde41 tek/app/ui/tekui.lua
--- a/tek/app/ui/tekui.lua	Thu Mar 27 14:52:45 2008 +0100
+++ b/tek/app/ui/tekui.lua	Thu Mar 27 16:25:41 2008 +0100
@@ -20,6 +20,7 @@ function boing.new(class, self)
 	self.boing = { 0x8000, 0x8000 }
 	self.boing[3] = 0x534
 	self.boing[4] = 0x772
+	self.running = false
 	return ui.frame.new(class, self)
 end
 
diff -r 4e3e3e6d4ac2 -r 7223164dde41 tek/class/ui/application.lua
--- a/tek/class/ui/application.lua	Thu Mar 27 14:52:45 2008 +0100
+++ b/tek/class/ui/application.lua	Thu Mar 27 16:25:41 2008 +0100
@@ -20,7 +20,7 @@ local unpack = unpack
 local unpack = unpack
 
 module("tek.class.ui.application", tek.class.ui.family)
-_VERSION = "Application 1.8"
+_VERSION = "Application 1.9"
 
 -------------------------------------------------------------------------------
 --	class implementation:
@@ -38,6 +38,8 @@ function Application.new(class, self)
 	self.ElementById = { }
 	self.OpenWindows = { }
 	self.MsgActive = { }
+	self.Theme = self.Theme or false
+	self.Title = self.Title or false
 
 	self = Family.new(class, self or { })
 	-- Check linkage of members and connect them recursively:
diff -r 4e3e3e6d4ac2 -r 7223164dde41 tek/class/ui/area.lua
--- a/tek/class/ui/area.lua	Thu Mar 27 14:52:45 2008 +0100
+++ b/tek/class/ui/area.lua	Thu Mar 27 16:25:41 2008 +0100
@@ -34,7 +34,7 @@ local floor = math.floor
 local floor = math.floor
 
 module("tek.class.ui.area", tek.class.ui.element)
-_VERSION = "Area 5.4"
+_VERSION = "Area 5.5"
 local Area = _M
 
 -------------------------------------------------------------------------------
@@ -61,6 +61,8 @@ function Area.new(class, self)
 	self.MarginAndBorder = { }
 	self.Weight = self.Weight or false
 	self.TrackDamage = self.TrackDamage or false
+	self.HAlign = self.HAlign or 0
+	self.VAlign = self.VAlign or 0
 	-- self.HMax = self.HMax or false	-- TODO
 	-- self.VMax = self.VMax or false	-- TODO
 	return Element.new(class, self)
diff -r 4e3e3e6d4ac2 -r 7223164dde41 tek/class/ui/border/recess.lua
--- a/tek/class/ui/border/recess.lua	Thu Mar 27 14:52:45 2008 +0100
+++ b/tek/class/ui/border/recess.lua	Thu Mar 27 16:25:41 2008 +0100
@@ -9,7 +9,7 @@ local unpack = unpack
 local unpack = unpack
 
 module("tek.class.ui.border.recess", tek.class.ui.border)
-_VERSION = "RecessBorder 1.6"
+_VERSION = "RecessBorder 1.7"
 
 -------------------------------------------------------------------------------
 --	Constants & Class data:
@@ -24,7 +24,7 @@ local Recess = _M
 local Recess = _M
 
 function Recess:getBorder(element, border)
-	return border or element.Display.Theme.BorderRecess or DEF_BORDER
+	return border or element.Display.Theme.BorderRecessBorder or DEF_BORDER
 end
 
 function Recess:draw(element, border, rect)
diff -r 4e3e3e6d4ac2 -r 7223164dde41 tek/class/ui/canvas.lua
--- a/tek/class/ui/canvas.lua	Thu Mar 27 14:52:45 2008 +0100
+++ b/tek/class/ui/canvas.lua	Thu Mar 27 16:25:41 2008 +0100
@@ -20,7 +20,7 @@ local overlap = ui.Region.overlapCoords
 local overlap = ui.Region.overlapCoords
 
 module("tek.class.ui.canvas", tek.class.ui.frame)
-_VERSION = "Canvas 1.2"
+_VERSION = "Canvas 1.3"
 local Canvas = _M
 
 local DEF_CANVASAREA_MARGIN = { 0, 0, 0, 0 }
@@ -39,7 +39,6 @@ function Canvas.new(class, self)
 	self.Height = self.Height or 0
 	self.ScrollGroup = false
 	self.UnusedRegion = false
-
 	self.TempMsg = { }
 
 	-- track intra-area damages, so that they can be applied to child object:
@@ -208,7 +207,7 @@ function Canvas:draw()
 function Canvas:draw()
 	local d = self.Drawable
 	local f = self.UnusedRegion
-	local p = d.Pens[self.BackPen or ui.PEN_LISTVIEWBACK]
+	local p = d.Pens[self.Object.Background]