Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv20415/src/Graphics/UI/GIO
Modified Files:
Controls.hs
Log Message:
bugfix
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** Controls.hs 10 Oct 2003 14:21:52 -0000 1.34
--- Controls.hs 12 Oct 2003 07:55:50 -0000 1.35
***************
*** 721,725 ****
lay <- getVar (gblayout c)
(l,t,r,b) <- Port.getGroupBoxBordersSize (gbhandle c)
! layoutInRect (Rect l t (fr-r) (fb-b)) lay
return ()
--- 721,725 ----
lay <- getVar (gblayout c)
(l,t,r,b) <- Port.getGroupBoxBordersSize (gbhandle c)
! layoutInRect (Rect l t (fr-fl-r) (fb-ft-b)) lay
return ()
|
