Update of /cvsroot/eas-dev/clip-ui/drivers
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv28215/drivers
Modified Files:
driver-gtk.prg driver-gtk2.prg
Log Message:
clip-ui-0.1.3:
- UIWindow is resizeable by default
- Widget with suffix + is expanded in XFL forms
Index: driver-gtk.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk.prg,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- driver-gtk.prg 18 Oct 2006 08:49:59 -0000 1.4
+++ driver-gtk.prg 25 Oct 2006 07:46:28 -0000 1.5
@@ -220,10 +220,10 @@
vbox := UIVBox()
gtk_ContainerAdd( wnd, vbox )
wnd:userSpace := vbox
- if valtype(resizeable) == "L" .and. resizeable
- gtk_WindowSetPolicy(wnd, .T., .T., .T.)
- else
+ if valtype(resizeable) == "L" .and. .not. resizeable
gtk_WindowSetPolicy(wnd, .F., .F., .T.)
+ else
+ gtk_WindowSetPolicy(wnd, .T., .T., .T.)
endif
if empty(parent)
gtk_SignalConnectAfter( wnd, "delete-event", @ui_quit() )
Index: driver-gtk2.prg
===================================================================
RCS file: /cvsroot/eas-dev/clip-ui/drivers/driver-gtk2.prg,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- driver-gtk2.prg 6 Jun 2006 07:24:02 -0000 1.3
+++ driver-gtk2.prg 25 Oct 2006 07:46:28 -0000 1.4
@@ -225,10 +225,10 @@
vbox := UIVBox()
gtk_ContainerAdd( wnd, vbox )
wnd:userSpace := vbox
- if valtype(resizeable) == "L" .and. resizeable
- gtk_WindowSetResizeable(wnd, .T.)
- else
+ if valtype(resizeable) == "L" .and. .not. resizeable
gtk_WindowSetResizeable(wnd, .F.)
+ else
+ gtk_WindowSetResizeable(wnd, .T.)
endif
if empty(parent)
gtk_SignalConnectAfter( wnd, "delete-event", @ui_quit() )
|
