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