class
	WEL_BLACK_PEN

General
	cluster: wel.gdistock
	description: "Black pen."
	create: make

Ancestors
	WEL_GDI_STOCK
	WEL_PEN

Queries
	color: WEL_COLOR_REF
	exists: BOOLEAN
	gdi_objects_count: INTEGER
	item: POINTER
	log_pen: WEL_LOG_PEN
	object_id: INTEGER
	reference_tracked: BOOLEAN
	references_count: INTEGER
	shared: BOOLEAN
	style: INTEGER
	to_integer: INTEGER
	valid_pen_style_constant (c: INTEGER): BOOLEAN
	width: INTEGER

Commands
	decrement_reference
	delete
	dispose
	enable_reference_tracking
	increment_reference
	set_item (an_item: POINTER)
	set_shared
	set_unshared