INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "standard dialogs"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class MESSAGE_BOX
inherit

DIALOG
rename
make as make_dialog,
set_default_button as set_dialog_default_button
redefine
build,
run
end
creation

load,
make
feature

message_text: STRING

title_text: STRING

message_box_type: INTEGER

ABORT_RETRY_IGNORE: INTEGER

OK: INTEGER

OK_CANCEL: INTEGER

RETRY_CANCEL: INTEGER

YES_NO: INTEGER

YES_NO_CANCEL: INTEGER

icon_type: INTEGER

ICON_INFORMATION: INTEGER

ICON_EXCLAMATION: INTEGER

ICON_QUESTION: INTEGER

ICON_STOP: INTEGER

default_button: INTEGER

selected_button: INTEGER

ABORT_BUTTON: INTEGER

CANCEL_BUTTON: INTEGER

IGNORE_BUTTON: INTEGER

NO_BUTTON: INTEGER

OK_BUTTON: INTEGER

RETRY_BUTTON: INTEGER

YES_BUTTON: INTEGER
feature

make (message: STRING; title: STRING; type: INTEGER; icon: INTEGER)
-- Makes a message dialog box.

set_message (some_text: STRING)
-- Sets the text to be displayed in the message box

set_title (some_text: STRING)
-- Sets the text to be displayed in the caption bar of the dialog
-- box

set_message_box_type (typ: INTEGER)

set_icon_type (ico: INTEGER)

set_default_button (a_button: INTEGER)
require
valid_message_box_button: a_button >= abort_button and a_button <= yes_button

build (rc: RESOURCE_CONTAINER; p: POINTER)
end -- class MESSAGE_BOX

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES