[tekui-devel] tekui: README, CursorBorder: minor corrections; Gadget: added on...

[Timm S. Mueller]

details:   http://hg.teklib.org/tekui/rev/b6638f52f8b4
changeset: 470:b6638f52f8b4
user:      Timm S. Mueller <tmueller at neoscientists.org>
date:      Thu May 08 11:44:04 2008 +0200
description:
README, CursorBorder: minor corrections; Gadget: added onPress() method,
corrected formatting; Theme: added BorderCursorBorder property

diffs (truncated from 159 to 100 lines):

diff -r 55368ea2c2de -r b6638f52f8b4 README
--- a/README	Tue May 06 19:20:28 2008 +0200
+++ b/README	Thu May 08 11:44:04 2008 +0200
@@ -60,9 +60,9 @@ need of a GUI solution for their device 
 === 1.3. Development model ===
 
 tekUI's development model is fairly simple; if you find this software
-useful, you are probably a software developer who has arranged to fit
-it to a certain device or application. Submit your additions and we
-will happily include them to the repository.
+useful, you have probably arranged to fit it to a certain device or
+application. Submit your additions and we will happily include them to
+the repository.
 
 === 1.4. Commercial support and services ===
 
diff -r 55368ea2c2de -r b6638f52f8b4 tek/class/ui/border/cursor.lua
--- a/tek/class/ui/border/cursor.lua	Tue May 06 19:20:28 2008 +0200
+++ b/tek/class/ui/border/cursor.lua	Thu May 08 11:44:04 2008 +0200
@@ -9,7 +9,7 @@ local unpack = unpack
 local unpack = unpack
 
 module("tek.class.ui.border.cursor", tek.class.ui.border)
-_VERSION = "CursorBorder 2.0"
+_VERSION = "CursorBorder 2.1"
 
 -------------------------------------------------------------------------------
 --	Constants & Class data:
@@ -25,7 +25,7 @@ local CursorBorder = _M
 
 function CursorBorder:getBorder(element, border)
 	return unpack(border or
-		element.Display.Theme.BorderCursorBorderBorder or DEF_BORDER)
+		element.Display.Theme.BorderCursorBorder or DEF_BORDER)
 end
 
 function CursorBorder:draw(element, border, r1, r2, r3, r4)
diff -r 55368ea2c2de -r b6638f52f8b4 tek/class/ui/gadget.lua
--- a/tek/class/ui/gadget.lua	Tue May 06 19:20:28 2008 +0200
+++ b/tek/class/ui/gadget.lua	Thu May 08 11:44:04 2008 +0200
@@ -16,23 +16,24 @@
 --	NOTIFICATIONS::
 --		- {{Active}} (boolean)
 --			Signifies a change of the Gadget's activation
---			state. Invokes the onActivate() method. While active, the position of the
---			mouse pointer is being verified (which is also reflected by the {{Hover}}
---			attribute). When its {{Active}} state changes, the Gadget's behavior
---			depends on its {{Mode}} attribute:
+--			state. Invokes the onActivate() method. While active, the position
+--			of the mouse pointer is being verified (which is also reflected by
+--			the {{Hover}} attribute). When its {{Active}} state changes, the
+--			Gadget's behavior depends on its {{Mode}} attribute:
 --				* in '''button''' mode, the {{Selected}} attribute is set to
 --				the value of the {{Hover}} attribute. The {{Pressed}} attribute
 --				is set to the value of the {{Active}} attribute, if it caused a
 --				change of the {{Selected}} state.
---				* in '''toggle''' mode, the {{Selected}} attribute of the Gadget is
---				logically toggled, and the {{Pressed}} attribute is set to '''true'''.
+--				* in '''toggle''' mode, the {{Selected}} attribute of the
+--				Gadget is logically toggled, and the {{Pressed}} attribute is
+--				set to '''true'''.
 --				* in '''touch''' mode, the {{Selected}} and {{Pressed}}
 --				attributes are set to '''true''', if the Gadget wasn't selected
 --				already.
 --		- {{Disabled}} (boolean)
---			Signifies a change of the Gadget's ability to interact with the user.
---			Invokes the onDisable() method. When an element is getting disabled, it
---			loses its focus, too.
+--			Signifies a change of the Gadget's ability to interact with the
+--			user. Invokes the onDisable() method. When an element is getting
+--			disabled, it loses its focus, too.
 --		- {{Hilite}} (boolean)
 --			Signifies a change of the Gadget's highligting state.
 --			Invokes onHilite().
@@ -40,9 +41,8 @@
 --			Signifies a change of the Gadget being hovered by the
 --			pointing device. Invokes onHover().
 --		- {{Pressed}} (boolean)
---			This attribute is reserved for notification handlers set by child
---			classes or by the user.
---		-	{{Selected}} (boolean)
+--			Signifies that a button was pressed or released. Invokes onPress().
+--		- {{Selected}} (boolean)
 --			Signifies a change of the Gadget's selection state.
 --			Invokes onSelect().
 --
@@ -53,7 +53,7 @@ local Frame = ui.Frame
 local Frame = ui.Frame
 
 module("tek.class.ui.gadget", tek.class.ui.frame)
-_VERSION = "Gadget 5.2"
+_VERSION = "Gadget 6.0"
 
 local Gadget = _M
 
@@ -67,6 +67,7 @@ local NOTIFY_HILITE = { ui.NOTIFY_SELF, 
 local NOTIFY_HILITE = { ui.NOTIFY_SELF, "onHilite", ui.NOTIFY_VALUE }
 local NOTIFY_DISABLED = { ui.NOTIFY_SELF, "onDisable", ui.NOTIFY_VALUE }
 local NOTIFY_SELECTED = { ui.NOTIFY_SELF, "onSelect", ui.NOTIFY_VALUE }
+local NOTIFY_PRESSED = { ui.NOTIFY_SELF, "onPress", ui.NOTIFY_VALUE }