class interface FONT_DIALOG creation make (p: OVERLAPPED_WINDOW) -- Create a standard dialog. require valid: p /= Void ensure keep_reference: -- of p. feature(s) from STANDARD_DIALOG -- Execution has_selection: BOOLEAN -- Has the dialog box been processed? execute -- Display the dialog box. require repaint_parent: -- not parent.device.is_ready ensure done: -- has_selection set feature(s) from FONT_DIALOG set_color (clr: COLOR) -- Set the default colour, user will be allowed to -- select text colour. require valid: clr /= Void no_color -- Do not allow the user to select text colour. color: COLOR -- Selected text colour. require done: has_selection ensure is_copy: Result /= Void set_font (ft: LOGICAL_FONT) -- Set the default font. require valid: ft /= Void font: LOGICAL_FONT -- Selected font. require done: has_selection ensure is_copy: Result /= Void end of FONT_DIALOG