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