From: Andrey C. <sku...@us...> - 2006-10-25 07:46:31
|
Update of /cvsroot/eas-dev/clip-ui In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv28215 Modified Files: ChangeLog clip-ui.ch form.prg utils.prg Log Message: clip-ui-0.1.3: - UIWindow is resizeable by default - Widget with suffix + is expanded in XFL forms Index: ChangeLog =================================================================== RCS file: /cvsroot/eas-dev/clip-ui/ChangeLog,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- ChangeLog 18 Oct 2006 08:49:59 -0000 1.3 +++ ChangeLog 25 Oct 2006 07:46:28 -0000 1.4 @@ -1,3 +1,7 @@ +2006-10-25 clip-ui-0.1.3 + - UIWindow is resizeable by default + - Widget with suffix '+' is expanded in XFL forms + 2006-10-16 - Window now support spacing and padding in form - Pass both id and text for UIChoice Index: clip-ui.ch =================================================================== RCS file: /cvsroot/eas-dev/clip-ui/clip-ui.ch,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- clip-ui.ch 2 Jun 2006 14:12:09 -0000 1.1 +++ clip-ui.ch 25 Oct 2006 07:46:28 -0000 1.2 @@ -11,7 +11,7 @@ /*-------------------------------------------------------------------------*/ /* Header file for common CLIP-UI definition */ -#define lib_version "0.1.2.4" +#define lib_version "0.1.3" /* Default driver name */ #define DEFAULT_DRIVER "gtk" Index: form.prg =================================================================== RCS file: /cvsroot/eas-dev/clip-ui/form.prg,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- form.prg 18 Oct 2006 08:49:59 -0000 1.2 +++ form.prg 25 Oct 2006 07:46:28 -0000 1.3 @@ -158,13 +158,18 @@ /* Return created widget from tag */ static function ui_createWidget(self, tag, parent ) local o:=NIL, class, name, label, c, i, a, e, w, box, t:=tag - local add:=.F., gCol:=1, gRow:=1, gClass, rule + local add:=.F., gCol:=1, gRow:=1, gClass, rule, expanded:=.F. class := t:attribute("class","") name := t:attribute("name","") label := self:i18n( t:attribute("label","") ) rule := t:attribute("rule",NIL) + if right(name,1) == '+' // Widget should be expanded + name := substr(name,1,len(name)-1) + expanded := .T. + endif + switch upper(class) /* Grid */ case "HBOX" @@ -369,7 +374,7 @@ parent:addEnd( o ) endif else - if class=="table" .or. o:className=="UISplitter" .or. o:className=="UIEditText" + if class=="table" .or. o:className=="UISplitter" .or. o:className=="UIEditText" .or. expanded box:add( o, .T., .T. ) else box:add( o, .F., iif(box:className=="UIButtonBar",.T.,.F.) ) @@ -790,7 +795,7 @@ endif aadd(params, retAction) otherwise - ?? "WARNING: unknown tag",p:name,"&\n" + ?? "WARNING: Illegal tag <"+str(p:name)+">'&\n" endswitch next Index: utils.prg =================================================================== RCS file: /cvsroot/eas-dev/clip-ui/utils.prg,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- utils.prg 2 Jun 2006 14:12:09 -0000 1.1 +++ utils.prg 25 Oct 2006 07:46:28 -0000 1.2 @@ -116,7 +116,7 @@ function getLocaleStrings( parent, locale ) local section:=NIL, mStr:=map(), tag, i if empty(locale) - locale := substr(getenv("LANG"),1,2) + locale := left(getenv("LANG"),2) endif // Find appropriate section <locale lang="XX"> |