[htoolkit-cvs] gio/src/Graphics/UI/GIO Window.hs,1.22,1.23

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

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)