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