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)