    class
    	EV_FONT_DIALOG_IMP

    General
    	cluster: implementation_mswin
    	description: "EiffelVision font selection dialog, mswindows implementation."
    	create: make

    Ancestors
    	EV_FONT_DIALOG_I*
    	EV_STANDARD_DIALOG_IMP*
    	WEL_CHOOSE_FONT_DIALOG

    Action sequences
    	cancel_actions: EV_NOTIFY_ACTION_SEQUENCE
    	create_cancel_actions: EV_NOTIFY_ACTION_SEQUENCE
    	create_ok_actions: EV_NOTIFY_ACTION_SEQUENCE
    	ok_actions: EV_NOTIFY_ACTION_SEQUENCE

    Queries
    	blocking_window: EV_WINDOW
    	color: WEL_COLOR_REF
    	exists: BOOLEAN
    	flags: INTEGER_32
    	font: EV_FONT
    	font_type: INTEGER_32
    	has_flag (a_flags: INTEGER_32): BOOLEAN
    	height: INTEGER_32
    	is_equal (other: [like Current] EV_FONT_DIALOG_IMP): BOOLEAN
    	item: POINTER
    	log_font: WEL_LOG_FONT
    	maximum_size: INTEGER_32
    	minimum_height: INTEGER_32
    	minimum_size: INTEGER_32
    	minimum_width: INTEGER_32
    	point_size: INTEGER_32
    	screen_x: INTEGER_32
    	screen_y: INTEGER_32
    	selected: BOOLEAN
    	selected_button: STRING_32
    	shared: BOOLEAN
    	Structure_size: INTEGER_32
    	title: STRING_32
    	valid_font_type_constant (c: INTEGER_32): BOOLEAN
    	width: INTEGER_32
    	x_position: INTEGER_32
    	y_position: INTEGER_32

    Commands
    	activate (a_parent: WEL_COMPOSITE_WINDOW)
    	add_flag (a_flags: INTEGER_32)
    	copy (other: [like Current] EV_FONT_DIALOG_IMP)
    	dispose
    	initialize_with_character (a_character: CHARACTER_8)
    	memory_copy (source_pointer: POINTER; length: INTEGER_32)
    	remove_flag (a_flags: INTEGER_32)
    	set_blocking_window (a_window: EV_WINDOW)
    	set_color (a_color: WEL_COLOR_REF)
    	set_dc (a_dc: WEL_DC)
    	set_flags (a_flags: INTEGER_32)
    	set_font (a_font: EV_FONT)
    	set_height (a: INTEGER_32)
    	set_item (an_item: POINTER)
    	set_log_font (a_log_font: WEL_LOG_FONT)
    	set_maximum_size (size: INTEGER_32)
    	set_minimum_size (size: INTEGER_32)
    	set_position (a, b: INTEGER_32)
    	set_shared
    	set_size (a, b: INTEGER_32)
    	set_title (new_title: STRING_GENERAL)
    	set_unshared
    	set_width (a: INTEGER_32)
    	set_x_position (a: INTEGER_32)
    	set_y_position (a: INTEGER_32)
    	show_modal_to_window (a_window: EV_WINDOW)
    	structure_initialize