note
	description: "Objects that represent an EV_DIALOG.%
		%The original version of this class was generated by EiffelBuild."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class
	RADIO_BUTTON_CREATION_DIALOG

inherit
	RADIO_BUTTON_CREATION_DIALOG_IMP

create
	make

feature {NONE} -- Initialization

	make
			-- Creation method
		do
			create_all_widgets
			create_all_actions

			create ok_actions
			create cancel_actions

			default_create
		end

	user_initialization
			-- Called by `initialize'.
			-- Any custom user initialization that
			-- could not be performed in `initialize',
			-- (due to regeneration of implementation class)
			-- can be added here.
		do
			close_request_actions.extend (agent destroy)
			normal_radio_button.enable_select
		end

	create_all_widgets
			-- Create all widgets
		do
			create l_ev_vertical_box_1
			create l_ev_horizontal_box_1
			create l_ev_vertical_box_2
			create normal_radio_button
			create font_radio_button
			create width_radio_button
			create l_ev_vertical_box_3
			create font_frame
			create l_ev_horizontal_box_2
			create font_field
			create choose_font_button
			create width_frame
			create width_spin_button
			create l_ev_horizontal_box_3
			create l_ev_cell_1
			create ok_button
			create cancel_button
		end

	create_all_actions
			-- Create all actions
		do
			create string_constant_set_procedures.make (10)
			create string_constant_retrieval_functions.make (10)
			create integer_constant_set_procedures.make (10)
			create integer_constant_retrieval_functions.make (10)
			create pixmap_constant_set_procedures.make (10)
			create pixmap_constant_retrieval_functions.make (10)
			create integer_interval_constant_retrieval_functions.make (10)
			create integer_interval_constant_set_procedures.make (10)
			create font_constant_set_procedures.make (10)
			create font_constant_retrieval_functions.make (10)
			create pixmap_constant_retrieval_functions.make (10)
			create color_constant_set_procedures.make (10)
			create color_constant_retrieval_functions.make (10)
		end

feature -- Access

	font: detachable EV_FONT
			-- Selected Font.

	max_width: INTEGER
			-- Max width
		do
			Result := width_spin_button.value
		end

	ok_actions: EV_NOTIFY_ACTION_SEQUENCE
			-- Call when OK button is selected.

	cancel_actions: EV_NOTIFY_ACTION_SEQUENCE
			-- Call when Cancel button is selected.

feature -- Status report

	is_font: BOOLEAN
		do
			Result := font_radio_button.is_selected
		end

	is_width: BOOLEAN
		do
			Result := width_radio_button.is_selected
		end

	is_normal: BOOLEAN
		do
			Result := normal_radio_button.is_selected
		end

feature {NONE} -- Implementation

	font_selected (a_dialog: EV_FONT_DIALOG)
			-- A font is selected.
		require
			a_dialog_not_void: a_dialog /= Void
		local
			l_font: EV_FONT
		do
			l_font := a_dialog.font
			font := l_font
			font_field.set_text (l_font.name)
			font_field.set_tooltip (l_font.name)
		end

feature {NONE} -- Implementation


	on_choose_font_button_selected
			-- Called by `select_actions' of `choose_font_button'.
		local
			l_dialog: EV_FONT_DIALOG
		do
			create l_dialog
			l_dialog.ok_actions.extend (agent font_selected (l_dialog))
			l_dialog.show_modal_to_window (Current)
		end


	on_ok_button_selected
			-- Called by `select_actions' of `ok_button'.
		do
			ok_actions.call (Void)
			destroy
		end


	on_cancel_button_selected
			-- Called by `select_actions' of `cancel_button'.
		do
			cancel_actions.call (Void)
			destroy
		end

	on_normal_radio_button_selected
			-- Called by `select_actions' of `normal_radio_button'.
		do
			font_frame.disable_sensitive
			width_frame.disable_sensitive
		end

	on_font_radio_button_selected
			-- Called by `select_actions' of `font_radio_button'.
		do
			font_frame.enable_sensitive
			width_frame.disable_sensitive
		end

	on_width_radio_button_selected
			-- Called by `select_actions' of `width_radio_button'.
		do
			font_frame.disable_sensitive
			width_frame.enable_sensitive
		end

note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"


end