[htoolkit-cvs] gio/src/Graphics/UI/GIO Layout.hs,1.9,1.10

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

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

Modified Files:
	Layout.hs 
Log Message:
Make *fill of high priority than *stretch


Index: Layout.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Layout.hs,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Layout.hs	19 Oct 2003 09:33:20 -0000	1.9
--- Layout.hs	19 Oct 2003 10:06:31 -0000	1.10
***************
*** 529,534 ****
          dw       = max 0 (w - prefW)
          dh       = max 0 (h - prefH)
!         wfill    = map (\col -> any fillX col || all stretchX col) (columns rows)
!         hfill    = map (\row -> any fillY row || all stretchY row) rows
          dws      = deltas dw wfill
          dhs      = deltas dh hfill
--- 529,534 ----
          dw       = max 0 (w - prefW)
          dh       = max 0 (h - prefH)
!         wfill    = map (\col -> any fillX col || (not fillx && all stretchX col)) (columns rows)
!         hfill    = map (\row -> any fillY row || (not filly && all stretchY row)) rows
          dws      = deltas dw wfill
          dhs      = deltas dh hfill