    class
    	EV_GDI_PEN

    General
    	cluster: implementation_mswin
    	description: "EiffelVision implentation for retrieving a WEL_PEN"
    	create: make_with_values

    Ancestors
    	EV_GDI_OBJECT*

    Queries
    	age: INTEGER_32
    	color_blue: INTEGER_32
    	color_green: INTEGER_32
    	color_red: INTEGER_32
    	computed_hash_code: INTEGER_32
    	dashed_line_mode: INTEGER_32
    	hash_code: INTEGER_32
    	is_equal (other: [like Current] EV_GDI_PEN): BOOLEAN
    	is_hashable: BOOLEAN
    	item: WEL_PEN
    	line_width: INTEGER_32
    	value: INTEGER_32
    	weight: INTEGER_32

    Commands
    	delete
    	make_with_values (a_dashed_mode, a_width: INTEGER_32; a_color: WEL_COLOR_REF)
    	set_item (an_item: [like item] WEL_PEN)
    	set_values (a_dashed_mode, a_width: INTEGER_32; a_color: WEL_COLOR_REF)
    	set_weight (a_weight: INTEGER_32)
    	update (new_age: INTEGER_32)