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?
|
