gambas-source-code/gui/gb.gui.base/.src/Message.class

' Gambas class file

'Export
' GB_DESC CMessageDesc[] =
' {
'   GB_DECLARE("Message", 0), GB_VIRTUAL_CLASS(),
' 
'   GB_STATIC_METHOD("_exit", NULL, CMESSAGE_exit, NULL),
' 
'   GB_STATIC_METHOD("_call", "i", CMESSAGE_info, "(Message)s[(Button)s]"),
'   GB_STATIC_METHOD("Info", "i", CMESSAGE_info, "(Message)s[(Button)s]"),
'   GB_STATIC_METHOD("Warning", "i", CMESSAGE_warning, "(Message)s[(Button1)s(Button2)s(Button3)s]"),
'   GB_STATIC_METHOD("Question", "i", CMESSAGE_question, "(Message)s[(Button1)s(Button2)s(Button3)s]"),
'   GB_STATIC_METHOD("Error", "i", CMESSAGE_error, "(Message)s[(Button1)s(Button2)s(Button3)s]"),
'   GB_STATIC_METHOD("Delete", "i", CMESSAGE_delete, "(Message)s[(Button1)s(Button2)s(Button3)s]"),
'   
'   GB_STATIC_PROPERTY("Title", "s", CMESSAGE_title),
'   
'   GB_END_DECLARE
' };
' 

Static Public Sub _call(Message As String, Button As String) As Integer
  
  Return Info(Message, Button)
  
End

Static Public Sub Info((Message) As String, (Button) As String) As Integer
  
  
  
End