class EL_INSTALLER_BOX

(source code)

description

Installer box

note
	description: "Installer box"

	author: "Finnian Reilly"
	copyright: "Copyright (c) 2001-2022 Finnian Reilly"
	contact: "finnian at eiffel hyphen loop dot com"

	license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
	date: "2022-11-15 19:56:05 GMT (Tuesday 15th November 2022)"
	revision: "8"


class
	EL_INSTALLER_BOX

inherit
	EL_VERTICAL_BOX
		rename
			make as make_box
		end

	EL_UI_COMPONENT_FACTORY
		undefine
			default_create, is_equal, copy
		end

	EL_MODULE_ACTION

	EL_MODULE_VISION_2

	EL_SHARED_WORD

feature {NONE} -- Initialization

	make (a_dialog: like dialog; a_border_cms, a_padding_cms: REAL)
		do
			dialog := a_dialog
			make_box (a_border_cms, a_padding_cms)
			cancel_button := new_button (Word.cancel, agent dialog.on_cancel)
		end

feature -- Access

	cancel_button: EV_BUTTON

feature {NONE} -- Internal attributes

	dialog: EL_UNTITLED_INSTALLER_DIALOG

end