note
	decription: "OPTION_B_IMPfor Windows - this delegates to an OPTION_PULL"
	status: "See notice at end of class.";
	date: "$Date$";
	revision: "$Revision$"

class
	OPTION_B_IMP

inherit
	BUTTON_IMP
		redefine
			realized,
			unrealize,
			set_widget_default
		end

	OPTION_B_I

create
	make

feature -- Initialization

	make (an_option_button: OPTION_B; man: BOOLEAN; oui_parent: COMPOSITE)
			-- Create an option_b
		do
			create private_attributes
			an_option_button.set_font_imp (Current)
			managed := man
			parent ?= oui_parent.implementation
		end

	set_option_pull (opw: OPT_PULL_I)
			-- Set the option pull to `opw'
		do
			opt_pull := opw
		end

feature

	set_widget_default
   			-- Set the defaults for current widget.
   		do
 			if managed and then parent.realized then
 				realize
					--| FIXME!! Removed here the call to
					--| parent.child_has_resized because it
					--| could lead to crashes. Crashes occurs
					--| when the associated OPT_PULL is not
					--| realized. To reproduce the crash:
					--| . On a window, put a ROW_COLUMN inside
					--| a SCROLLED_W
					--| . Add a button that, when pressed,
					--| creates a form in the ROW_COLUMN with
					--| at least an OPT_PULL inside
 			elseif parent.realized and then not managed then
 				realize
 				set_managed (False)
 			end
 		end


feature -- Access

	realized: BOOLEAN
			-- Is this widget realized?

feature -- Status report

	selected_button: BUTTON
			-- Button which is selected.
		do
			if opt_pull /= Void then
				Result := opt_pull.selected_button
			end
		end

	title_width: INTEGER
			-- Width of the title

	title: STRING

	opt_pull: OPT_PULL_I
			-- Associated option pull to delegate to

feature -- Status setting

	realize
		do
			realized := true
		end

	set_selected_button (a_button: BUTTON)
			-- Set the selected button to `a_button'
		do
			if opt_pull /= Void then
				opt_pull.set_selected_button (a_button)
			end
		end

	set_title (a_title: STRING)
		do
			if a_title /= Void then
				title := a_title.twin
			else
				title := Void
			end
		end

	unrealize
		do
			realized := false
		end

feature -- Element change

	attach_menu (a_menu: OPT_PULL)
			-- Implemented with parent in make
		do
			opt_pull ?= a_menu.implementation
		end

feature -- Removal

	remove_title
		do
		end

feature {NONE} -- Inapplicable

	process_notification (n: INTEGER)
		do
		end

	wel_destroy, wel_hide, wel_set_focus, enable, disable, invalidate,
	wel_release_capture, wel_set_capture, wel_show
		do
		end

	wel_set_menu (wel_menu: WEL_MENU)
		do
		end

	wel_parent: WEL_COMPOSITE_WINDOW
	wel_set_text (s: STRING) do end
	client_rect: WEL_RECT
	wel_shown, enabled, exists: BOOLEAN
	wel_children: LINKED_LIST [WEL_WINDOW]
	wel_set_width, wel_set_height, wel_set_x, wel_set_y (i:INTEGER) do end
	absolute_x, absolute_y, wel_width, wel_height, wel_x, wel_y: INTEGER
	wel_text: STRING_32
	resize, wel_move (new_width, new_height: INTEGER)
		do
		end

	set_z_order (flags: POINTER)
		do
		end

	wel_item: POINTER
	wel_font: WEL_FONT

 	wel_set_font (f:WEL_FONT)
		do
		end

	disable_default_processing
		do
		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 -- OPTION_B_IMP