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

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv1230/gio/src/Graphics/UI/GIO

Modified Files:
	Controls.hs 
Log Message:
Improved dynamic layout for GroupBox and Notebook


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** Controls.hs	12 Oct 2003 07:55:50 -0000	1.35
--- Controls.hs	12 Oct 2003 21:33:47 -0000	1.36
***************
*** 729,733 ****
                       old_lay <- getVar (gblayout w)
                       updateControlsVisibility old_lay new_lay
!                      setVar (gblayout w) new_lay)
    autosize   = readAttr "autosize"   (\c -> return True)
    layoutSize = readAttr "layoutSize" (\c -> getVar (gblayout c) >>= getLayoutSize)
--- 729,734 ----
                       old_lay <- getVar (gblayout w)
                       updateControlsVisibility old_lay new_lay
!                      setVar (gblayout w) new_lay
!                      Port.relayoutContainer (gbhandle w))
    autosize   = readAttr "autosize"   (\c -> return True)
    layoutSize = readAttr "layoutSize" (\c -> getVar (gblayout c) >>= getLayoutSize)
***************
*** 832,837 ****
                       let new_lay = pack c
                       old_lay <- getVar (pglayout w)
!                      updateControlsVisibility old_lay new_lay
!                      setVar (pglayout w) new_lay)
    autosize   = readAttr "autosize"   (\c -> return True)
    layoutSize = readAttr "layoutSize" (\c -> getVar (pglayout c) >>= getLayoutSize)
--- 833,839 ----
                       let new_lay = pack c
                       old_lay <- getVar (pglayout w)
!                      updateControlsVisibility old_lay new_lay                     
!                      setVar (pglayout w) new_lay
!                      Port.relayoutContainer (pghandle w))
    autosize   = readAttr "autosize"   (\c -> return True)
    layoutSize = readAttr "layoutSize" (\c -> getVar (pglayout c) >>= getLayoutSize)