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