-- (c) Copyright - See License.txt

--

--****

-- == Windows Message Box

--

-- <>

--

namespace msgbox

include std/dll.e

include std/machine.e

without warning

--****

-- === Style Constants

--

-- Possible style values for message_box() style sequence

--

public constant

--** Abort, Retry, Ignore

--** User must respond before doing something else

--** First button is default button

--** Second button is default button

--** Third button is default button

--** Fourth button is default button

--** Windows 95: Help button generates help event

--** Exclamation-point appears in the box

--** A hand appears

--** Lowercase letter i in a circle appears

--** A question-mark icon appears

--** Message box contains one push button: OK

--** Message box contains OK and Cancel

--** Message box contains Retry and Cancel

--** Windows 95: The text is right-justified

--** Windows 95: For Hebrew and Arabic systems

--** Windows NT: The caller is a service

--** Message box becomes the foreground window

--** All applications suspended until user responds

--** Similar to MB_APPLMODAL

--** Message box contains Yes and No

--** Message box contains Yes, No, and Cancel

--****

-- === Return Value Constants

--

-- possible values returned by MessageBox(). 0 means failure

public constant

--** Abort button was selected.

--** Cancel button was selected.

--** Ignore button was selected.

--** No button was selected.

--** OK button was selected.

--** Retry button was selected.

--** Yes button was selected.

atom lib

integer msgbox_id, get_active_id

lib = open_dll("user32.dll")

msgbox_id = define_c_func(lib, "MessageBoxA", {C_UINT, C_POINTER,

C_POINTER, C_UINT}, C_INT)

if msgbox_id = -1 then

puts(2, "couldn't find MessageBoxA\n")

abort(1)

end if

get_active_id = define_c_func(lib, "GetActiveWindow", {}, C_UINT)

if get_active_id = -1 then

puts(2, "couldn't find GetActiveWindow\n")

abort(1)

end if

end ifdef

--****

-- === Routines

--

--**

-- Displays a window with a title, message, buttons and an icon, usually known as a message box.

--

-- Parameters:

-- # ##text##: a sequence, the message to be displayed

-- # ##title##: a sequence, the title the box should have

-- # ##style##: an object which defines which,icon should be displayed, if any, and which buttons will be presented.

--

-- Returns:

-- An **integer**, the button which was clicked to close the message box, or 0 on failure.

--

-- Comments:

-- See [[:Style Constants]] above for a complete list of possible values for ##style## and

-- [[:Return Value Constants]] for the returned value. If ##style## is a sequence, its elements will be

-- or'ed together.

integer or_style

atom text_ptr, title_ptr, ret

end if

end if

else

end if

text_ptr, title_ptr, or_style})

end function