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