class WEL_PEN General cluster: wel.gdi description: "Drawing object used to draw lines and borders." create: make_solid, make_indirect, make_by_pointer, make Ancestors WEL_GDI_ANY WEL_PS_CONSTANTS 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