[Eas-dev-commit] clip-ui ChangeLog, 1.3, 1.4 clip-ui.ch, 1.1, 1.2 form.prg, 1.2, 1.3 utils.prg, 1.1, 1.2

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

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