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

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

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