Update of /cvsroot/eas-dev/clip-ui/drivers
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv3260/drivers
Modified Files:
driver-gtk.prg driver-gtk2.prg
Log Message:
Fix UIFrame order
Index: driver-gtk.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk.prg,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- driver-gtk.prg 5 Jun 2006 20:34:49 -0000 1.2
+++ driver-gtk.prg 6 Jun 2006 07:24:02 -0000 1.3
@@ -1121,8 +1121,8 @@
/** Frame **/
static function ui_createFrame(self, caption, type)
local o, eBox
- o := gtk_FrameNew(, caption)
- eBox := gtk_EventBoxNew()
+ eBox := gtk_FrameNew(, caption)
+ o := gtk_EventBoxNew()
o:layout := eBox
self:setFrameType(o, type)
return o
@@ -1132,12 +1132,12 @@
return NIL
static function ui_setFrameLabel(self, frame, label)
- gtk_FrameSetLabel( frame, label )
+ gtk_FrameSetLabel( frame:layout, label )
return NIL
static function ui_setFrameType(self, frame, type)
if valtype(type) == 'N'
- gtk_FrameSetShadowType( frame, type )
+ gtk_FrameSetShadowType( frame:layout, type )
endif
return NIL
Index: driver-gtk2.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk2.prg,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- driver-gtk2.prg 5 Jun 2006 20:34:49 -0000 1.2
+++ driver-gtk2.prg 6 Jun 2006 07:24:02 -0000 1.3
@@ -1168,8 +1168,8 @@
/** Frame **/
static function ui_createFrame(self, caption, type)
local o, eBox
- o := gtk_FrameNew(, caption)
- eBox := gtk_EventBoxNew()
+ eBox := gtk_FrameNew(, caption)
+ o := gtk_EventBoxNew()
o:layout := eBox
self:setFrameType(o, type)
return o
@@ -1179,12 +1179,12 @@
return NIL
static function ui_setFrameLabel(self, frame, label)
- gtk_FrameSetLabel( frame, label )
+ gtk_FrameSetLabel( frame:layout, label )
return NIL
static function ui_setFrameType(self, frame, type)
if valtype(type) == 'N'
- gtk_FrameSetShadowType( frame, type )
+ gtk_FrameSetShadowType( frame:layout, type )
endif
return NIL
|
