note
	legal: "See notice at end of class."
	status: "See notice at end of class."
class SCALE_ACTIONS_WINDOW

inherit

	ACTIONS_WINDOW
		redefine
			set_other_widgets,
			descendant_actions,
			set_other_widgets_insensitive,
			set_other_widgets_sensitive
		end

create

	make

feature

	output_only_b,
	input_output_b,
	show_value_b,
	hide_value_b,
	set_text_b: ACTION_WINDOW_BUTTON

	set_other_widgets
		do
			set_size (330, 430)
			create output_only_b.associate (Current, b_output_only, "Output only", 20, 300)
			create input_output_b.associate (Current, b_input_output, "Input-output", 180, 300)
			create show_value_b.associate (Current, b_show_value, "Show value", 20, 340)
			create hide_value_b.associate (Current, b_hide_value, "Hide value", 180, 340)
			create set_text_b.associate (Current, b_set_text, "Set text", 20, 380)
		end

	descendant_actions(arg: INTEGER_REF)
		local
			widget: SCALE
		do
			widget ?= demo_window_array.item(main_window.current_demo).main_widget
			inspect arg.item
			when b_output_only then
				widget.set_output_only (True)
			when b_input_output then
				widget.set_output_only (False)
			when b_show_value then
				widget.show_value (True)
			when b_hide_value then
				widget.show_value (False)
			when b_set_text then
				if prompt.is_popped_up then
					prompt.popdown
					prompt.remove_ok_action (Current, b_set_text)
					prompt_type := 0
					prompt.remove_cancel_action (Current, b_cancel)
					widget.set_text (prompt.selection_text)
					set_widgets_sensitive
				else
					prompt.add_ok_action (Current, b_set_text)
					prompt_type := b_set_text
					prompt.add_cancel_action (Current, b_cancel)
					prompt.set_selection_label ("Enter text:")
					prompt.set_selection_text ("")
					set_widgets_insensitive
					prompt.popup
				end
			else
			end
		end

	set_other_widgets_insensitive
		do
			output_only_b.set_insensitive
			input_output_b.set_insensitive
			show_value_b.set_insensitive
			hide_value_b.set_insensitive
			set_text_b.set_insensitive
		end

	set_other_widgets_sensitive
		do
			output_only_b.set_sensitive
			input_output_b.set_sensitive
			show_value_b.set_sensitive
			hide_value_b.set_sensitive
			set_text_b.set_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 -- class SCALE_ACTIONS_WINDOW