    class
    	EV_FONT_DIALOG

    General
    	cluster: interface
    	description: "EiffelVision font selection dialog."
    	create: make_with_title, default_create

    Ancestors
    	EV_STANDARD_DIALOG*

    Action sequences
    	cancel_actions: EV_NOTIFY_ACTION_SEQUENCE
    	ok_actions: EV_NOTIFY_ACTION_SEQUENCE

    Queries
    	blocking_window: EV_WINDOW
    	data: ANY
    	font: EV_FONT
    	height: INTEGER_32
    	is_destroyed: BOOLEAN
    	minimum_height: INTEGER_32
    	minimum_width: INTEGER_32
    	selected_button: STRING_32
    	title: STRING_32
    	width: INTEGER_32
    	x_position: INTEGER_32
    	y_position: INTEGER_32

    Commands
    	copy (other: [like Current] EV_FONT_DIALOG)
    	destroy
    	set_data (some_data: [like data] ANY)
    	set_font (a_font: EV_FONT)
    	set_height (a_height: INTEGER_32)
    	set_position (a_x, a_y: INTEGER_32)
    	set_size (a_width, a_height: INTEGER_32)
    	set_title (a_title: STRING_GENERAL)
    	set_width (a_width: INTEGER_32)
    	set_x_position (a_x: INTEGER_32)
    	set_y_position (a_y: INTEGER_32)
    	show_modal_to_window (a_window: EV_WINDOW)