[Eas-dev-commit] clip-ui/example test_ui.prg,1.1,1.2

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

Update of /cvsroot/eas-dev/clip-ui/example
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv26073/example

Modified Files:
	test_ui.prg 
Log Message:
UIFrame now support :layout widget for setup background ("color.bg")

Index: test_ui.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/example/test_ui.prg,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- test_ui.prg	2 Jun 2006 14:12:10 -0000	1.1
+++ test_ui.prg	5 Jun 2006 20:34:49 -0000	1.2
@@ -10,6 +10,7 @@
 /*   License, or (at your option) any later version.                       */
 /*-------------------------------------------------------------------------*/
 #include <clip-ui.ch>
+#include <clip-gtk2.ch>
 
 /* Test of clip-ui library usage */
 
@@ -232,7 +233,9 @@
 
 /* Form widgets */
 static function BankDocReq(w,grid)
-	local drv, lab, data, top, bottomLine, sd, pol, plat, i,  t, f1, f2, t1, t2, b1, b2, b3, e1, e2, cb1, cb2, sum, hbsum, rs, rg
+	local drv, lab, data, top, bottomLine, sd, pol, plat 
+	local i,  t, f1, f2, t1, t2, b1, b2, b3, e1, e2, cb1, cb2
+	local sum, hbsum, rs, rg, wIcon, wB
 	drv := getDriver()
 
 	data := map()
@@ -315,14 +318,18 @@
 	// Payer
 	f1 := UIFrame()
 	grid:add(f1)
-	drv:setStyle(f1,"color.bg","darkblue")
 	f1:setLabel("Payer")
-	f1:setType(FRAME_RAISED)
-	t1 := UIVBox(,,3)
+	f1:setType(FRAME_PLAIN)//RAISED)
+	t1 := UIHBox(,,3)
 	f1:add( t1 )
+	
+	wB := f1:layout
+	drv:setStyle(f1,"color.bg","green")
+	drv:setStyle(wB,"color.bg","green")
+	
 	cb1 := UIComboBox({'JSC "Brown and son"'},1)
 	w:setName("payer", cb1)
-	t1:add(cb1)
+	gtk_ContainerAdd(t1, cb1)
 
 	// Payee
 	f2 := UIFrame("Payee",FRAME_SUNKEN)