|
From: <kr_...@us...> - 2003-08-22 06:27:33
|
Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv7892/src/Graphics/UI/GIO
Modified Files:
Window.hs
Log Message:
bugfix: the "view" attribute is added to the export list
Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Window.hs,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -d -r1.22 -r1.23
*** Window.hs 20 Aug 2003 21:37:26 -0000 1.22
--- Window.hs 21 Aug 2003 20:09:45 -0000 1.23
***************
*** 11,15 ****
-}
-----------------------------------------------------------------------------------------
! module Graphics.UI.GIO.Window (Window, window, dialog, runDialog) where
import qualified Graphics.UI.Port as Lib
--- 11,15 ----
-}
-----------------------------------------------------------------------------------------
! module Graphics.UI.GIO.Window (Window, window, dialog, view, runDialog) where
import qualified Graphics.UI.Port as Lib
***************
*** 114,121 ****
-- | The size of the current view area.
view :: Attr Window Size
! view
= newAttr (Lib.getWindowViewSize . hwindow)
(Lib.setWindowViewSize . hwindow)
!
instance Dismissible Window where
dismissWidget w = Lib.dismissWindow (hwindow w)
--- 114,121 ----
-- | The size of the current view area.
view :: Attr Window Size
! view
= newAttr (Lib.getWindowViewSize . hwindow)
(Lib.setWindowViewSize . hwindow)
!
instance Dismissible Window where
dismissWidget w = Lib.dismissWindow (hwindow w)
|