[tekui-devel] tekui: Element: added Children to initializations; List: removed...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/0d3b40454be3
changeset: 389:0d3b40454be3
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Thu Mar 27 16:37:37 2008 +0100
description:
Element: added Children to initializations; List: removed Children
initialization; ScrollGroup: local ArrowButton class specifies a name, adopted
elements are now reset to false instead of nil

diffs (80 lines):

diff -r 7223164dde41 -r 0d3b40454be3 tek/class/ui/element.lua
--- a/tek/class/ui/element.lua	Thu Mar 27 16:25:41 2008 +0100
+++ b/tek/class/ui/element.lua	Thu Mar 27 16:37:37 2008 +0100
@@ -26,7 +26,7 @@ local type = type
 local type = type
 
 module("tek.class.ui.element", tek.class.ui.object)
-_VERSION = "Element 3.2"
+_VERSION = "Element 3.3"
 local Element = _M
 
 -------------------------------------------------------------------------------
@@ -47,6 +47,7 @@ function Element.new(class, self)
 	self.Application = false
 	self.Window = false
 	self.Parent = false
+	self.Children = self.Children or false
 	self.Id = self.Id or false
 	return Object.new(class, self)
 end
diff -r 7223164dde41 -r 0d3b40454be3 tek/class/ui/list.lua
--- a/tek/class/ui/list.lua	Thu Mar 27 16:25:41 2008 +0100
+++ b/tek/class/ui/list.lua	Thu Mar 27 16:37:37 2008 +0100
@@ -20,7 +20,7 @@ local max = math.max
 local max = math.max
 
 module("tek.class.ui.list", tek.class.ui.scrollgroup)
-_VERSION = "List 0.4"
+_VERSION = "List 0.5"
 local List = _M
 
 -------------------------------------------------------------------------------
@@ -37,7 +37,6 @@ function ListArea.new(class, self)
 	self.Margin = DEF_ListArea_MARGIN
 	self.Lines = false
 	self.Height = false
-	self.Children = false
 	return Area.new(class, self)
 end
 
diff -r 7223164dde41 -r 0d3b40454be3 tek/class/ui/scrollgroup.lua
--- a/tek/class/ui/scrollgroup.lua	Thu Mar 27 16:25:41 2008 +0100
+++ b/tek/class/ui/scrollgroup.lua	Thu Mar 27 16:37:37 2008 +0100
@@ -26,7 +26,7 @@ local max = math.max
 local max = math.max
 
 module("tek.class.ui.scrollgroup", tek.class.ui.group)
-_VERSION = "ScrollGroup 1.3"
+_VERSION = "ScrollGroup 1.4"
 
 -------------------------------------------------------------------------------
 --	ArrowButton
@@ -49,7 +49,7 @@ local ArrowRightImage = ui.VectorImage:n
 local ArrowRightImage = ui.VectorImage:new { ImageData = { Coords = coordx,
 	Primitives = prims, MinMax = { 12,12, -2,-12 } } }
 
-local ArrowButton = Image:newClass()
+local ArrowButton = Image:newClass { _NAME = "_arrowbutton" }
 
 function ArrowButton.new(class, self)
 	self = self or { }
@@ -214,12 +214,12 @@ function ScrollGroup.new(class, self)
 			Children = self.Children,
 		}
 
-		self.Children = nil
-		self.GridW = nil
-		self.GridH = nil
-		self.SameSize = nil
-		self.SameWidth = nil
-		self.SameHeight = nil
+		self.Children = false
+		self.GridW = false
+		self.GridH = false
+		self.SameSize = false
+		self.SameWidth = false
+		self.SameHeight = false
 
 	end