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)
|
