class
	WEL_LOG_PEN

General
	cluster: wel
	description: "Defines the style, width and color of a pen."
	create: make_by_pen, make

Ancestors
	WEL_PS_CONSTANTS
	WEL_STRUCTURE*

Queries
	color: WEL_COLOR_REF
	exists: BOOLEAN
	is_equal (other: [like Current] WEL_LOG_PEN): BOOLEAN
	item: POINTER
	shared: BOOLEAN
	Structure_size: INTEGER_32
	style: INTEGER_32
	valid_pen_style_constant (c: INTEGER_32): BOOLEAN
	width: INTEGER_32

Commands
	copy (other: [like Current] WEL_LOG_PEN)
	dispose
	initialize
	initialize_with_character (a_character: CHARACTER_8)
	memory_copy (source_pointer: POINTER; length: INTEGER_32)
	set_color (a_color: WEL_COLOR_REF)
	set_item (an_item: POINTER)
	set_shared
	set_style (a_style: INTEGER_32)
	set_unshared
	set_width (a_width: INTEGER_32)

Constraints
	color not void
	positive width