Stock Dialogs

Stock dialog buttons return:
YES = -8, NO = -9, OK = -5, CANCEL = -6, CLOSE = -7
-4 if window is closed with Close Window button on Titlebar,

---------------------------------------------
function ShowDialog()
---------------------------------------------
object result = Info(win,"Info Dialog","Here's some text")
-- perhaps do something with result here;
return 1
end function
constant show_dialog = call_back(routine_id("ShowDialog"))

---------------------------------------------
function ShowDialog()
---------------------------------------------
object result = Warn(win,"Warning Dialog",
	"Here's some text",
	GTK_BUTTONS_OK_CANCEL)
-- perhaps do something with result here;
return 1
end function
constant show_dialog = call_back(routine_id("ShowDialog"))

---------------------------------------------
function ShowDialog()
---------------------------------------------
object result = Question(win,"Question Dialog",
	"Are you sure?",
-- perhaps do something with result here;
return 1
end function
constant show_dialog = call_back(routine_id("ShowDialog"))

---------------------------------------------
function ShowDialog()
---------------------------------------------
object result = Error(win,"Error Dialog",
	"User error - replace user",
-- perhaps do something with result here;
return 1
end function
constant show_dialog = call_back(routine_id("ShowDialog"))