    class
    	EV_CHARACTER_FORMAT_IMP

    General
    	cluster: implementation_mswin
    	description:
    		"MsWindows Implementation  of Character format containing color,
    		font and effects information for text formatting."
    	create: make

    Ancestors
    	EV_CHARACTER_FORMAT_I*
    	EV_FONT_CONSTANTS
    	WEL_BIT_OPERATIONS
    	WEL_CHARACTER_FORMAT2
    	WEL_FONT_FAMILY_CONSTANTS
    	WEL_FONT_PITCH_CONSTANTS
    	WEL_SHARED_FONTS

    Queries
    	background_color: EV_COLOR
    	char_set: INTEGER_32
    	color: EV_COLOR
    	effects: EV_CHARACTER_FORMAT_EFFECTS
    	exists: BOOLEAN
    	face_name: STRING_32
    	font: EV_FONT
    	has_effects (an_effects: INTEGER_32): BOOLEAN
    	has_mask (a_mask: INTEGER_32): BOOLEAN
    	height_in_pixels: INTEGER_32
    	height_in_points: INTEGER_32
    	height_in_twips: INTEGER_32
    	item: POINTER
    	log_font: WEL_LOG_FONT
    	mask: INTEGER_32
    	Max_face_name_length: INTEGER_32
    	offset: INTEGER_32
    	out: STRING_8
    	pitch_and_family: INTEGER_32
    	revision_author: INTEGER_32
    	shared: BOOLEAN
    	spacing: INTEGER_32
    	Structure_size: INTEGER_32
    	text_color: WEL_COLOR_REF
    	underline_type: INTEGER_32
    	weight: INTEGER_32
    	wel_background_color: WEL_COLOR_REF
    	wel_effects: INTEGER_32

    Commands
    	add_effects (an_effects: INTEGER_32)
    	add_mask (a_mask: INTEGER_32)
    	disable_bold
    	disable_italic
    	disable_striked_out
    	disable_underlined
    	dispose
    	enable_bold
    	enable_italic
    	enable_striked_out
    	enable_underlined
    	initialize_with_character (a_character: CHARACTER_8)
    	memory_copy (source_pointer: POINTER; length: INTEGER_32)
    	remove_effects (an_effects: INTEGER_32)
    	remove_mask (a_mask: INTEGER_32)
    	set_all_masks
    	set_background_color (a_color: EV_COLOR)
    	set_char_set (a_char_set: INTEGER_32)
    	set_color (a_color: EV_COLOR)
    	set_default_format
    	set_effects (an_effect: EV_CHARACTER_FORMAT_EFFECTS)
    	set_face_name (a_face_name: STRING_GENERAL)
    	set_font (a_font: EV_FONT)
    	set_height_in_pixels (a_height: INTEGER_32)
    	set_height_in_points (a_height: INTEGER_32)
    	set_height_in_twips (a_height: INTEGER_32)
    	set_item (an_item: POINTER)
    	set_mask (a_mask: INTEGER_32)
    	set_offset (an_offset: INTEGER_32)
    	set_pitch_and_family (a_pitch_and_family: INTEGER_32)
    	set_protected
    	set_revision_author (an_author: INTEGER_32)
    	set_shared
    	set_spacing (a_spacing: INTEGER_32)
    	set_text_color (a_color: WEL_COLOR_REF)
    	set_underline_type (a_type: INTEGER_32)
    	set_unshared
    	set_weight (a_weight: INTEGER_32)
    	unset_protected
    	wel_initialize
    	wel_set_background_color (color_ref: WEL_COLOR_REF)
    	wel_set_effects (an_effects: INTEGER_32)