[tekui-devel] tekui: Class: improved debugging, now also reports failed read a...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/4e3e3e6d4ac2
changeset: 387:4e3e3e6d4ac2
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Thu Mar 27 14:52:45 2008 +0100
description:
Class: improved debugging, now also reports failed read accesses; Group,
Socket border: Theme property name fixed; Element: initializes Id; FloatText,
List: internal class name prefixed with underscore; Area, Group, List,
MenuItem, Text, Theme, Window: corrected/added missing initializations;
MenuItem: now uses Window.ActivePopup instead of Parent.ActivePopup

diffs (truncated from 615 to 100 lines):

diff -r dec1fdab244a -r 4e3e3e6d4ac2 tek/class.lua
--- a/tek/class.lua	Thu Mar 27 13:49:14 2008 +0100
+++ b/tek/class.lua	Thu Mar 27 14:52:45 2008 +0100
@@ -23,10 +23,10 @@ local getmetatable = getmetatable
 local getmetatable = getmetatable
 local setmetatable = setmetatable
 
--- local DEBUG = true
+local DEBUG = true
 
 module "tek.class"
-_VERSION = "Class 4.0"
+_VERSION = "Class 4.1"
 
 local Class = _M
 
@@ -46,10 +46,16 @@ if DEBUG then
 
 		local mt = { __private = { } }
 
-		mt.__index = mt
+		function mt.__index(tab, key)
+			local val = mt[key]
+			if not val then
+				db.warn("%s <= %s", tab:getClassName(), key)
+			end
+			return val
+		end
 
 		function mt.__newindex(tab, key, val)
-			db.warn("=> %s: %s=%s", tab:getClassName(), key, val)
+			db.warn("%s => %s=%s", tab:getClassName(), key, val)
 			mt[key] = val
 		end
 
diff -r dec1fdab244a -r 4e3e3e6d4ac2 tek/class/ui/area.lua
--- a/tek/class/ui/area.lua	Thu Mar 27 13:49:14 2008 +0100
+++ b/tek/class/ui/area.lua	Thu Mar 27 14:52:45 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.3"
+_VERSION = "Area 5.4"
 local Area = _M
 
 -------------------------------------------------------------------------------
@@ -59,7 +59,10 @@ function Area.new(class, self)
 	self.Rect = false
 	self.MinMax = { }
 	self.MarginAndBorder = { }
-	self.Weight = false
+	self.Weight = self.Weight or false
+	self.TrackDamage = self.TrackDamage or false
+	-- self.HMax = self.HMax or false	-- TODO
+	-- self.VMax = self.VMax or false	-- TODO
 	return Element.new(class, self)
 end
 
diff -r dec1fdab244a -r 4e3e3e6d4ac2 tek/class/ui/border/group.lua
--- a/tek/class/ui/border/group.lua	Thu Mar 27 13:49:14 2008 +0100
+++ b/tek/class/ui/border/group.lua	Thu Mar 27 14:52:45 2008 +0100
@@ -12,7 +12,7 @@ local unpack = unpack
 local unpack = unpack
 
 module("tek.class.ui.border.group", tek.class.ui.border)
-_VERSION = "GroupBorder 1.8"
+_VERSION = "GroupBorder 1.9"
 
 -------------------------------------------------------------------------------
 --	Constants & Class data:
@@ -27,7 +27,7 @@ local Group = _M
 local Group = _M
 
 local function getsizes(element, border)
-	border = border or element.Display.Theme.BorderGroup or DEF_BORDER
+	border = border or element.Display.Theme.BorderGroupBorder or DEF_BORDER
 	if element and element.Legend then
 		local lfont = element:getPrivate().LegendFont
 		if lfont then
diff -r dec1fdab244a -r 4e3e3e6d4ac2 tek/class/ui/border/socket.lua
--- a/tek/class/ui/border/socket.lua	Thu Mar 27 13:49:14 2008 +0100
+++ b/tek/class/ui/border/socket.lua	Thu Mar 27 14:52:45 2008 +0100
@@ -9,7 +9,7 @@ local unpack = unpack
 local unpack = unpack
 
 module("tek.class.ui.border.socket", tek.class.ui.border)
-_VERSION = "SocketBorder 1.6"
+_VERSION = "SocketBorder 1.7"
 
 -------------------------------------------------------------------------------
 --	Constants & Class data:
@@ -24,7 +24,7 @@ local Socket = _M
 local Socket = _M
 
 function Socket:getBorder(element, border)
-	return border or element.Display.Theme.BorderSocket or DEF_BORDER
+	return border or element.Display.Theme.BorderSocketBorder or DEF_BORDER
 end