    class
    	EV_TIMEOUT_IMP

    General
    	cluster: implementation_mswin
    	description: "Eiffel Vision timeout. Mswindows implementation."
    	create: make

    Ancestors
    	EV_TIMEOUT_I*
    	IDENTIFIED

    Queries
    	count: INTEGER_32
    	id: INTEGER_32
    	id_freed: BOOLEAN
    	id_object (an_id: INTEGER_32): IDENTIFIED
    	interval: INTEGER_32
    	is_timeout_executing: BOOLEAN

    Commands
    	destroy
    	free_id
    	on_timeout
    	reset_count
    	set_interval (an_interval: INTEGER_32)