[htoolkit-cvs] port/src/Port Window.hs,1.12,1.13

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv3786/src/Port

Modified Files:
	Window.hs 
Log Message:
osScrollWindowTo function is renamed to osSetWindowScrollOrigin.
Added osGetWindowScrollOrigin function


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Window.hs	8 Jun 2003 19:42:15 -0000	1.12
--- Window.hs	13 Jul 2003 10:21:27 -0000	1.13
***************
*** 13,17 ****
  -----------------------------------------------------------------------------------------
  module Graphics.UI.Port.Window
!              ( 
               -- * Creation
                 createWindow, createDialog
--- 13,17 ----
  -----------------------------------------------------------------------------------------
  module Graphics.UI.Port.Window
!              (
               -- * Creation
                 createWindow, createDialog
***************
*** 20,24 ****
               , dismissWindow, dismissAllWindows
               , destroyWindow, destroyAllWindows
-              , scrollWindowTo
               , invalidateWindowFrame
               , invalidateWindow
--- 20,23 ----
***************
*** 28,31 ****
--- 27,31 ----
               , setWindowColor
               , setWindowDomainSize
+ 	     , setWindowScrollOrigin, getWindowScrollOrigin
               , setWindowViewSize,  getWindowViewSize
               , setWindowTitle,     getWindowTitle
***************
*** 162,167 ****
  getWindowViewSize :: WindowHandle -> IO Size
  getWindowViewSize hwnd
!   = withCSizeResult $ \csize ->
!     osGetWindowViewSize hwnd csize
  foreign import ccall osGetWindowViewSize :: WindowHandle -> Ptr CInt -> IO ()
  
--- 162,166 ----
  getWindowViewSize :: WindowHandle -> IO Size
  getWindowViewSize hwnd
!   = withCSizeResult (osGetWindowViewSize hwnd)
  foreign import ccall osGetWindowViewSize :: WindowHandle -> Ptr CInt -> IO ()
  
***************
*** 181,190 ****
  foreign import ccall osSetWindowDomainSize :: WindowHandle -> CInt -> CInt -> IO ()
  
! -- | Scroll the view frame to a specific point.
! scrollWindowTo :: WindowHandle -> Point -> IO ()
! scrollWindowTo hwnd point
!   = withCPoint point $ \cx cy ->
!     osScrollWindowTo hwnd cx cy
! foreign import ccall osScrollWindowTo :: WindowHandle -> CInt -> CInt -> IO ()
  
  -- | Get the horizontal and vertical scroll distance for a /large/ scroll action.
--- 180,194 ----
  foreign import ccall osSetWindowDomainSize :: WindowHandle -> CInt -> CInt -> IO ()
  
! -- | Set the scroll origin for the specified window
! setWindowScrollOrigin :: WindowHandle -> Point -> IO ()
! setWindowScrollOrigin hwnd point
!   = withCPoint point (osSetWindowScrollOrigin hwnd)
! foreign import ccall osSetWindowScrollOrigin :: WindowHandle -> CInt -> CInt -> IO ()
! 
! -- | Get the scroll origin for the specified window
! getWindowScrollOrigin :: WindowHandle -> IO Point
! getWindowScrollOrigin hwnd
!   = withCPointResult (osGetWindowScrollOrigin hwnd)
! foreign import ccall osGetWindowScrollOrigin :: WindowHandle -> Ptr CInt -> IO ()
  
  -- | Get the horizontal and vertical scroll distance for a /large/ scroll action.