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