[htoolkit-cvs] port/src/Port Message.hs,NONE,1.1

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

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

Added Files:
	Message.hs 
Log Message:
Portable message boxes


--- NEW FILE: Message.hs ---
{-# OPTIONS -fglasgow-exts -#include Message.h #-}

-----------------------------------------------------------------------------------------
{-| Module      :  Message
    Copyright   :  (c) Krasimir Angelov 2003
    License     :  BSD-style

    Maintainer  :  ka2...@ya...
    Stability   :  provisional
    Portability :  portable

    Message boxes
-}
-----------------------------------------------------------------------------------------

module Graphics.UI.Port.Message
			( messageInfo
			, messageWarning
			, messageQuestion
			, messageError
			) where

import Foreign.C

messageInfo msg = withCString msg osMessageInfo
foreign import ccall osMessageInfo :: CString -> IO ()

messageWarning msg = withCString msg osMessageWarning
foreign import ccall osMessageWarning :: CString -> IO ()

messageQuestion msg = withCString msg osMessageQuestion
foreign import ccall osMessageQuestion :: CString -> IO Bool

messageError msg = withCString msg osMessageError
foreign import ccall osMessageError :: CString -> IO Bool