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
|
