[tekui-devel] tekui: UI, Theme: Pen numbers cleanup up and reordered; Theme: i...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/8a7552fe1775
changeset: 447:8a7552fe1775
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Thu Apr 24 19:42:10 2008 +0200
description:
UI, Theme: Pen numbers cleanup up and reordered; Theme: improved default
colors; Application: More verbose element connecting; FloatText: derived from
Area instead of ScrollGroup; List: derived from Gadget instead of ScrollGroup;
ScrollGroup: setTop/setLeft now notify XPosition/YPosition again; Text: now
has a Foreground attribute, draw() now uses PEN_BUTTONACTIVETEXT if element is
selected; Tab border added, Hilite border removed; Group: isolated an internal
TabButton class; changed some border defaults; CheckMark, FloatText, Frame,
Gadget, Group, List, Text, TextInput: setState() now calling superclass before
overriding with own values; PopItem:setState() added

diffs (truncated from 1621 to 100 lines):

diff -r 9dcd46da41f4 -r 8a7552fe1775 tek/app/ui/demo.lua
--- a/tek/app/ui/demo.lua	Wed Apr 23 23:30:04 2008 +0200
+++ b/tek/app/ui/demo.lua	Thu Apr 24 19:42:10 2008 +0200
@@ -17,10 +17,12 @@ ui.Application:new
 			Title = "About tekUI",
 			Children =
 			{
-				ui.Text:new { FontSpec = ":24", Label = "About tekUI" },
-				ui.FloatText:new
-				{
-					Text = [[ Blafasel ]]
+				ui.Text:new { FontSpec = "__large", Label = "About tekUI" },
+				ui.ScrollGroup:new
+				{
+					VSliderMode = "auto",
+					AutoWidth = true,
+					Object = ui.FloatText:new { Text = [[ Blafasel ]] }
 				}
 			}
 		},
@@ -250,7 +252,7 @@ ui.Application:new
 						},
 					},
 				},
-				ui.Text:new { FontSpec = ":24", Label = "tekUI demo" },
+				ui.Text:new { FontSpec = "__large", Label = "tekUI demo" },
 				ui.Group:new
 				{
 					Children =
@@ -324,16 +326,22 @@ ui.Application:new
 							},
 						},
 						ui.Spacer:new { },
-						ui.FloatText:new
-						{
-							Text = [[
-								Welcome to the tekUI Demo.
-								In the list to the left you find some examples
-								to demonstrate the abilities of the tekUI toolkit.
-								Please note that the whole demo is written as a
-								single constructor; no functions are needed to
-								achieve its functionality.
-							]]
+						ui.ScrollGroup:new
+						{
+							VSliderMode = "on",
+							AutoWidth = true,
+							KeepMinWidth = true,
+							Object = ui.FloatText:new
+							{
+								Text = [[
+									Welcome to the tekUI Demo.
+									In the list to the left you find some examples
+									to demonstrate the abilities of the tekUI toolkit.
+									Please note that the whole demo is written as a
+									single constructor; no functions are needed to
+									achieve its functionality.
+								]]
+							},
 						},
 					},
 				},
diff -r 9dcd46da41f4 -r 8a7552fe1775 tek/app/ui/filereq.lua
--- a/tek/app/ui/filereq.lua	Wed Apr 23 23:30:04 2008 +0200
+++ b/tek/app/ui/filereq.lua	Thu Apr 24 19:42:10 2008 +0200
@@ -2,23 +2,6 @@
 
 require "tek.lib.debug".level = 4
 local ui = require "tek.lib.ui"
-
--- app = ui.Application:new
--- {
--- 	Children =
--- 	{
--- 		ui.Window:new
--- 		{
--- 			Children =
--- 			{
--- 				ui.List:new { Text = "Hallo" }
--- 			}
--- 		}
--- 	}
--- }:run()
-
-
-
 
 ui.Application:new
 {
@@ -36,7 +19,6 @@ ui.Application:new
 				{
 					Children =
 					{
--- 						ui.List:new { Text = "Hallo", HSliderMode = "off", Weight = 0x0 },
 						ui.Handle:new
 						{
 							Mode = "button",
@@ -55,7 +37,15 @@ ui.Application:new
 								}
 							}