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