[htoolkit-cvs] gio/src/Graphics/UI/GIO Window.hs,1.17,1.18

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

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

Modified Files:
	Window.hs 
Log Message:
bugfix


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Window.hs,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** Window.hs	30 May 2003 21:55:07 -0000	1.17
--- Window.hs	8 Jun 2003 11:19:13 -0000	1.18
***************
*** 95,100 ****
              avail    <- get w view
              isresize <- get w resizeable
!             when ((not isresize && avail /= needed) || (isresize && not (sizeEncloses avail needed)))
!               (do set w [view =: needed]))
         layoutInWindow (hwindow w) lay
         return ()
--- 95,99 ----
              avail    <- get w view
              isresize <- get w resizeable
!             when (not (sizeEncloses avail needed)) (set w [view =: needed]))
         layoutInWindow (hwindow w) lay
         return ()