Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv15641/src/Port
Modified Files:
Message.hs
Log Message:
Add new message box types. Haddock style comments are provided.
Index: Message.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Message.hs,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Message.hs 3 Mar 2003 21:19:41 -0000 1.1
--- Message.hs 14 Mar 2003 17:14:54 -0000 1.2
***************
*** 10,35 ****
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
--- 10,79 ----
Portability : portable
! The message functions create, display, and operate a message box. The
! message box contains an application-defined message and any combination
! of predefined icons and push buttons.
-}
-----------------------------------------------------------------------------------------
module Graphics.UI.Port.Message
! ( messageAlert
! , messageConfirm
, messageWarning
, messageQuestion
, messageError
+ , QuestionAnswer(..)
+ , messageCancelQuestion
+ , messageConfirmSave
) where
import Foreign.C
! -- | The messageAlert box provides an OK button and an image which indicates that
! -- the given message is just for information.
! messageAlert :: String -> IO ()
! messageAlert msg = withCString msg osMessageAlert
! foreign import ccall osMessageAlert :: CString -> IO ()
+ -- | The messageConfirm box, like the 'messageAlert' box provides an OK button, and in addition
+ -- a Cancel button. An image indicates that the given message is just for information.
+ -- The function returns True when the box is closed with the OK button; in all other cases it returns False.
+ messageConfirm :: String -> IO Bool
+ messageConfirm msg = withCString msg osMessageConfirm
+ foreign import ccall osMessageConfirm :: CString -> IO Bool
+
+ -- | The messageWarning box provides an OK button and an image which indicates that
+ -- the given message is a warning.
+ messageWarning :: String -> IO ()
messageWarning msg = withCString msg osMessageWarning
foreign import ccall osMessageWarning :: CString -> IO ()
+ -- | The messageQuestion box provides Yes and No buttons and an image which indicates that
+ -- the given message is a question. The function returns True for Yes button and False for No answer.
+ messageQuestion :: String -> IO Bool
messageQuestion msg = withCString msg osMessageQuestion
foreign import ccall osMessageQuestion :: CString -> IO Bool
+ -- | The messageError box provides OK and Cancel buttons and an image which indicates that
+ -- it is an error message. The function returns True when the box is closed
+ -- with the OK button; in all other cases it returns False.
+ messageError :: String -> IO Bool
messageError msg = withCString msg osMessageError
foreign import ccall osMessageError :: CString -> IO Bool
+
+
+ data QuestionAnswer = Yes | No | Cancel deriving Show
+
+ toQuestionAnswer 0 = No
+ toQuestionAnswer 1 = Yes
+ toQuestionAnswer _ = Cancel
+
+ -- | The messageCancelQuestion box like the 'messageQuestion' box provides an Yes and No buttons,and in addition
+ -- a Cancel button. An image indicates that the given message is a question.
+ messageCancelQuestion :: String -> IO QuestionAnswer
+ messageCancelQuestion msg = fmap toQuestionAnswer (withCString msg osMessageCancelQuestion)
+ foreign import ccall osMessageCancelQuestion :: CString -> IO Int
+
+ -- | The messageConfirmSave box is applicable when the application asks whether the document should be saved or not.
+ messageConfirmSave :: String -> IO QuestionAnswer
+ messageConfirmSave msg = fmap toQuestionAnswer (withCString msg osMessageConfirmSave)
+ foreign import ccall osMessageConfirmSave :: CString -> IO Int
|
