    class
    	EV_COLOR_IMP

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

    Ancestors
    	EV_COLOR_I*
    	WEL_COLOR_REF

    Queries
    	blue_8_bit: INTEGER_32
    	Default_name: STRING_8
    	green_8_bit: INTEGER_32
    	interface: EV_COLOR
    	item: INTEGER_32
    	red_8_bit: INTEGER_32
    	valid_color_constant (c: INTEGER_32): BOOLEAN

    Commands
    	destroy
    	initialize
    	make (an_interface: [like interface] EV_COLOR)
    	set_color (color: INTEGER_32)
    	set_rgb (a_red, a_green, a_blue: INTEGER_32)
    	wel_set_blue (a_blue: INTEGER_32)
    	wel_set_green (a_green: INTEGER_32)
    	wel_set_red (a_red: INTEGER_32)