indexing
	description: "Objects that ..."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	EM_SHARED_VIDEO_SUBSYSTEM

feature

	Video_subsystem: EM_VIDEO_SUBSYSTEM is
			-- EiffelMedia video subsystem
		once
			create Result.make
		ensure
			video_subsystem_not_void: Result /= Void
		end

end