[tekui-devel] tekui: DirList: added class member 'DirectoryCaption'; Text:

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/54f8949eff61
changeset: 33:54f8949eff61
user:      Timm S. Mueller <tmueller at schulze-mueller.de>
date:      Sat Nov 08 01:15:29 2008 +0100
description:
DirList: added class member 'DirectoryCaption'; Text:
KeepMinWidth/KeepMinHeight calculation now excludes Padding; TextInput:
improved cursor positioning, added sanity check in setCursor(); Window:
removing shortcuts was broken, corrected

diffs (truncated from 273 to 100 lines):

diff -r 1aa1be1e652b -r 54f8949eff61 doc/manual.html
--- a/doc/manual.html	Thu Nov 06 23:19:59 2008 +0100
+++ b/doc/manual.html	Sat Nov 08 01:15:29 2008 +0100
@@ -419,7 +419,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.dirlist" id="tek.ui.class.dirlist">DirList (v9.1)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.dirlist" id="tek.ui.class.dirlist">DirList (v9.2)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -1988,7 +1988,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.text" id="tek.ui.class.text">Text (v12.2)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.text" id="tek.ui.class.text">Text (v12.3)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -4742,7 +4742,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.textinput" id="tek.ui.class.textinput">TextInput (v7.0)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.textinput" id="tek.ui.class.textinput">TextInput (v7.1)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -4873,7 +4873,7 @@
 			</p>
 			<hr />
 		</div>
-		<div class="node"><h2><a name="tek.ui.class.window" id="tek.ui.class.window">Window (v8.0)</a></h2>
+		<div class="node"><h2><a name="tek.ui.class.window" id="tek.ui.class.window">Window (v8.1)</a></h2>
 			<div class="definition"><dfn>LINEAGE</dfn>
 				<blockquote>
 					<p>
@@ -7271,7 +7271,7 @@ Class.checkDescend(Button, Area)
 </pre>
 		<hr />
 		<p>
-			Document generated on Thu Nov  6 23:06:31 2008
+			Document generated on Sat Nov  8 01:10:41 2008
 		</p>
 	</div>
 	</body>
diff -r 1aa1be1e652b -r 54f8949eff61 tek/ui/class/dirlist.lua
--- a/tek/ui/class/dirlist.lua	Thu Nov 06 23:19:59 2008 +0100
+++ b/tek/ui/class/dirlist.lua	Sat Nov 08 01:15:29 2008 +0100
@@ -68,7 +68,7 @@ local sort = table.sort
 local sort = table.sort
 
 module("tek.ui.class.dirlist", tek.ui.class.group)
-_VERSION = "DirList 9.1"
+_VERSION = "DirList 9.2"
 
 local DirList = _M
 
@@ -249,6 +249,15 @@ function DirList.new(class, self)
 		end })
 
 
+	self.DirectoryCaption = Text:new
+	{
+		Text = L.DIRECTORY,
+		Width = "auto",
+		Class = "caption",
+		TextHAlign = "right",
+		KeepMinWidth = true,
+	}
+
 	self.Orientation = "vertical"
 
 	if self.Kind == "requester" then
@@ -260,12 +269,7 @@ function DirList.new(class, self)
 				Orientation = "horizontal",
 				Children =
 				{
-					Text:new
-					{
-						Text = L.DIRECTORY,
-						Width = "auto",
-						Class = "caption",
-					},
+					self.DirectoryCaption,
 					self.PathField,
 					self.ParentButton,
 				}
@@ -315,12 +319,7 @@ function DirList.new(class, self)
 				Orientation = "horizontal",
 				Children =
 				{
-					Text:new
-					{
-						Text = L.DIRECTORY,
-						Width = "auto",
-						Class = "caption",
-					},