    class
    	WEL_BLACK_PEN

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

    Ancestors
    	WEL_GDI_STOCK*
    	WEL_PEN

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

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