note description: "EiffelVision standard dialog. Implementation interface." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date$" revision: "$Revision$" deferred class EV_STANDARD_DIALOG_I inherit EV_ANY_I redefine interface end EV_POSITIONABLE_I redefine interface end EV_STANDARD_DIALOG_ACTION_SEQUENCES_I EV_DIALOG_NAMES export {NONE} all end feature -- Access title: STRING_32 -- Title of dialog shown in title bar. deferred end blocking_window: detachable EV_WINDOW -- Window this dialog is a transient for. deferred end feature -- Status report selected_button: detachable IMMUTABLE_STRING_32 -- Label of the last clicked button. deferred end feature -- Status setting hide -- Request that `Current' not be displayed even when its parent is. -- If successful, make `is_show_requested' `False'. require not_destroyed: not is_destroyed deferred end show_modal_to_window (a_window: EV_WINDOW) -- Show the dialog modal with respect to `a_window'. deferred end set_title (a_title: READABLE_STRING_GENERAL) -- Set the title of the dialog. require a_title_not_void: a_title /= Void deferred end feature {NONE} -- Implementation internal_accept: IMMUTABLE_STRING_32 -- The text of the "ok" type button of `Current'. -- e.g. not the cancel button. -- Normally "OK", but redefined in some descendents -- such as EV_PRINT_DIALOG where the text is "Print" -- This allows us to do this redefinition in a platform -- independent way, and to always set `selected_button' -- to `internal_select' without having to redfine the -- feature in which this setting takes place. do Result := ev_ok end feature {EV_ANY, EV_ANY_I} -- Implementation interface: detachable EV_STANDARD_DIALOG note option: stable attribute end; note copyright: "Copyright (c) 1984-2014, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end -- class EV_STANDARD_DIALOG_I