class
	WEL_SYSTEM_FONT

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

Ancestors
	WEL_FONT
	WEL_GDI_STOCK

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

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