note
	description: "[
		The widget representing this port
		]"
	author: "Jimmy J. Johnson"

class
	JOHNSTON_ISLAND_WIDGET

inherit

--	GREEN_PORT_WIDGET
--		undefine
--			paint
--		redefine
--			initialize,
--			create_interface_objects,
--			position_widgets
--		end

	ISLAND_PORT_WIDGET
		redefine
			create_interface_objects,
--			initialize,
			position_widgets
		end

create
	make

feature {NONE} -- Initialization

	create_interface_objects
			-- Initialize attributes
		do
			Precursor {ISLAND_PORT_WIDGET}
--			Precursor {GREEN_PORT_WIDGET}
		end

--	initialize
--			-- Set up the widgets in Current.
--		do
--			Precursor {ISLAND_PORT_WIDGET}
----			Precursor {GREEN_PORT_WIDGET}
--			hide_arrow
--			dot.show
--		end

	position_widgets
			-- Move Current and contained widgets to correct
			-- location and set their their sizes
		do
			Precursor {ISLAND_PORT_WIDGET}
--			Precursor {GREEN_PORT_WIDGET}
			center_on (639, 370)
			center_widget_on_other (marker, dot)
			translate_widget (name_mt, -1, 1)
			translate_widget (marker, -2, -5)
			dot.set_foreground_color (Cyan)
			dot.show
		end

feature -- Status report

	is_red: BOOLEAN = False
			-- Does Current represent a red (i.e. major) port?

end
