class
	EL_ACTIVE_SERVICE_SCREEN

inherit
	EL_SERVICE_SCREEN
		redefine
			is_active, new_command_parts, sort_prefix, Transition_name
		end

	EL_STRING_8_CONSTANTS

create
	make, make_default

feature {NONE} -- Initialization

	make (other: EL_SERVICE_SCREEN; a_id: INTEGER)
		do
			set_from_other (other, Empty_string_8)
			id := a_id
			sort_name := Sort_prefix + name
		end

feature -- Access

	id: INTEGER
		-- screen id

feature -- Status query

	is_active: BOOLEAN = True

feature {NONE} -- Implementation

	new_command_parts: EL_ZSTRING_LIST
		do
			create Result.make_from_array (<< Screen,  "-r", id.out >>)
		end

feature {NONE} -- Constants

	Sort_prefix: ZSTRING
		once
			Result := "A-"
		end

	Transition_name: ZSTRING
		once
			Result := "View"
		end

end