    class
    	WEL_SYSTEM_FONT

    General
    	cluster: wel
    	description: "System font."
    	create: make

    Ancestors
    	WEL_FONT
    	WEL_GDI_STOCK*

    Queries
    	exists: BOOLEAN
    	gdi_objects_count: INTEGER_32
    	height: INTEGER_32
    	item: POINTER
    	log_font: WEL_LOG_FONT
    	object_id: INTEGER_32
    	point: INTEGER_32
    	reference_tracked: BOOLEAN
    	references_count: INTEGER_32
    	shared: BOOLEAN
    	string_height (a_string: STRING_GENERAL): INTEGER_32
    	string_size (a_string: STRING_GENERAL): TUPLE [INTEGER_32, INTEGER_32]
    	string_size_extended (a_string: STRING_GENERAL): TUPLE [INTEGER_32, INTEGER_32, INTEGER_32, INTEGER_32]
    	string_width (a_string: STRING_GENERAL): INTEGER_32
    	width: INTEGER_32

    Commands
    	decrement_reference
    	delete
    	dispose
    	enable_reference_tracking
    	increment_reference
    	set_height (a_height: INTEGER_32)
    	set_height_in_points (a_height_in_points: INTEGER_32)
    	set_indirect (a_log_font: WEL_LOG_FONT)
    	set_item (an_item: POINTER)
    	set_shared
    	set_unshared