[htoolkit-cvs] gio/src/Graphics/UI/GIO Window.hs,1.20,1.21

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

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

Modified Files:
	Window.hs 
Log Message:
Added "origin" attribute.


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Window.hs,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** Window.hs	2 Jul 2003 20:04:45 -0000	1.20
--- Window.hs	13 Jul 2003 10:22:56 -0000	1.21
***************
*** 12,16 ****
  -----------------------------------------------------------------------------------------
  module Graphics.UI.GIO.Window 
!               ( Window, window, domain, resizeable, view, layout, autosize, layoutSize
                , dialog, runDialog
                , drawInWindow
--- 12,16 ----
  -----------------------------------------------------------------------------------------
  module Graphics.UI.GIO.Window 
!               ( Window, window, domain, origin, resizeable, view, layout, autosize, layoutSize
                , dialog, runDialog
                , drawInWindow
***************
*** 123,126 ****
--- 123,129 ----
    = newAttr (\w   -> getVar (vdomain w))
              (\w x -> setVar (vdomain w) x >> relayoutWindow w)
+ 
+ origin :: Attr Window Point
+ origin = newAttr (Lib.getWindowScrollOrigin . hwindow) (Lib.setWindowScrollOrigin . hwindow)
  
  -- | Can the window be resized?