From: Andrey C. <sku...@us...> - 2006-10-25 07:46:31
|
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() ) |