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

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

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.