[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.34,1.35

[<kr_...@us...>]

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 ()