[Eas-dev-commit] clip-ui/drivers driver-gtk.prg, 1.1, 1.2 driver-gtk2.prg, 1.1, 1.2

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

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

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

Index: driver-gtk.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk.prg,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- driver-gtk.prg	2 Jun 2006 14:13:09 -0000	1.1
+++ driver-gtk.prg	5 Jun 2006 20:34:49 -0000	1.2
@@ -581,9 +581,9 @@
 
 static function ui_createImage(self, file, isString)
 	local o
-        if .not. empty(isString) .and. isString
+	if .not. empty(isString) .and. isString
 		o := gdk_PixmapCreateFromXPMD(,file,)
-        elseif empty(file) .or. FILEATTR(file) == 0
+    elseif empty(file) .or. FILEATTR(file) == 0
 		o := gdk_PixmapCreateFromXPMD(,getSysImage( IMG_EMPTY ),)
 	else
 		o := gdk_PixmapFromXPMNew(, file )
@@ -1120,8 +1120,10 @@
 
 /** Frame **/
 static function ui_createFrame(self, caption, type)
-	local o
+	local o, eBox
 	o := gtk_FrameNew(, caption)
+	eBox := gtk_EventBoxNew()
+	o:layout := eBox
 	self:setFrameType(o, type)
 return o
 

Index: driver-gtk2.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk2.prg,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- driver-gtk2.prg	2 Jun 2006 14:13:09 -0000	1.1
+++ driver-gtk2.prg	5 Jun 2006 20:34:49 -0000	1.2
@@ -1167,8 +1167,10 @@
 
 /** Frame **/
 static function ui_createFrame(self, caption, type)
-	local o
+	local o, eBox
 	o := gtk_FrameNew(, caption)
+	eBox := gtk_EventBoxNew()
+	o:layout := eBox
 	self:setFrameType(o, type)
 return o