Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv10476/src/Port
Modified Files:
Window.hs
Log Message:
Simplification
Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Window.hs 13 Jul 2003 10:21:27 -0000 1.13
--- Window.hs 23 Aug 2003 20:05:00 -0000 1.14
***************
*** 114,130 ****
-- | Get the text of the title bar.
getWindowTitle :: WindowHandle -> IO String
! getWindowTitle hwnd
! = do ctitle <- osGetWindowTitle hwnd
! title <- peekCString ctitle
! free ctitle
! return title
! foreign import ccall "osGetWindowTitle" osGetWindowTitle :: WindowHandle -> IO CString
-- | Set the text of the title bar.
setWindowTitle :: WindowHandle -> String -> IO ()
! setWindowTitle hwnd title
! = withCString title $ \ctitle ->
! osSetWindowTitle hwnd ctitle
! foreign import ccall "osSetWindowTitle" osSetWindowTitle :: WindowHandle -> CString -> IO ()
-- | Make the window resizeable or not.
--- 114,124 ----
-- | Get the text of the title bar.
getWindowTitle :: WindowHandle -> IO String
! getWindowTitle hwnd = resultCString (osGetWindowTitle hwnd)
! foreign import ccall osGetWindowTitle :: WindowHandle -> IO CString
-- | Set the text of the title bar.
setWindowTitle :: WindowHandle -> String -> IO ()
! setWindowTitle hwnd title = withCString title (osSetWindowTitle hwnd)
! foreign import ccall osSetWindowTitle :: WindowHandle -> CString -> IO ()
-- | Make the window resizeable or not.
|
