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
|
