[Eas-dev-commit] eas/libeas functions.prg,1.5,1.6

[Andrey C. <sku...@us...>]

Update of /cvsroot/eas-dev/eas/libeas
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv30604/libeas

Modified Files:
	functions.prg 
Log Message:
Fix translation update and documentation. Fix configure.

Index: functions.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/libeas/functions.prg,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- functions.prg	20 Nov 2006 12:57:55 -0000	1.5
+++ functions.prg	23 Nov 2006 11:24:03 -0000	1.6
@@ -139,6 +139,18 @@
 function setFormObject(window, obj)
 return lcomponent('sys.ui', 'setFormObject', 'window', window, 'obj', obj)
 
+/* Get attribute value for specified object */
+function getAttributeValue(id, source)
+	local a, attr, db
+	// source should has format: 'db:class:attribute'
+	a := split(source, ':')
+	if len(a) != 3
+		return NIL
+	endif
+	db := a[1]
+	attr := a[3]
+return component('sys.db', 'getAttr', 'id', id, 'attr', attr, 'db', db)
+
 /* Dialog box with confirmation of changed document close */
 function dialogBoxConfirmClose(window, class)
 return lcomponent('sys.ui', 'dialogBoxConfirmClose', 'window', window, 'class', class)