34 lines
1 KiB
Text
34 lines
1 KiB
Text
' 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
|
|
|