---------------------------------------------------------------------------
-- GUI contents of resource script file: GW_Install.rc
-- Transcription time: 2016/05/10  13:15:21
-- GWenerator project file: GW_Install.gwen
--
-- Translated by the RC2GW or by the GWenerator tool.
-- URL: http://sf.net/projects/gnavi
--
-- This file contains only automatically generated code. Do not edit this.
-- Rework the resource script instead, and re-run the translator.
-- RC Grammar version: 10-May-2016
---------------------------------------------------------------------------

with GWindows.Base;                     use GWindows.Base;
with GWindows.Constants;                use GWindows.Constants;
with GWindows.Windows;                  use GWindows.Windows;
with GWindows.Buttons;                  use GWindows.Buttons;
with GWindows.Buttons.Graphic;          use GWindows.Buttons.Graphic;
with GWindows.Buttons.Owner_Drawn;      use GWindows.Buttons.Owner_Drawn;
with GWindows.Edit_Boxes;               use GWindows.Edit_Boxes;
with GWindows.List_Boxes;               use GWindows.List_Boxes;
with GWindows.Combo_Boxes;              use GWindows.Combo_Boxes;
with GWindows.Static_Controls;          use GWindows.Static_Controls;
with GWindows.Scroll_Bars;              use GWindows.Scroll_Bars;
with GWindows.Common_Controls;          use GWindows.Common_Controls;
with GWindows.Menus;                    use GWindows.Menus;
use GWindows;
with Interfaces.C;                      use Interfaces.C;

package GW_Install_Resource_GUI is

  type Conflict_dialog_Type is new Window_Type with record

    IDOK: Default_Dialog_Button_Type;    -- closes parent window after click
    IDOK_permanent: Default_Button_Type; -- doesn't close parent window after click
    IDCANCEL: Dialog_Button_Type;    -- closes parent window after click
    IDCANCEL_permanent: Button_Type; -- doesn't close parent window after click
    -- Label: IDC_STATIC
    Installed_version: List_Box_Type;
    Installer_Version: List_Box_Type;
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
  end record; -- Conflict_dialog_Type

  -- Dialog at resource line 44

  --  a) Create_As_Dialog & create all contents -> ready-to-use dialog
  --
  procedure Create_Full_Dialog
     (Window      : in out Conflict_dialog_Type;
      Parent      : in out GWindows.Base.Base_Window_Type'Class;
      Title       : in     GString := "Version check";
      Left        : in     Integer := Use_Default; -- Default = as designed
      Top         : in     Integer := Use_Default; -- Default = as designed
      Width       : in     Integer := Use_Default; -- Default = as designed
      Height      : in     Integer := Use_Default; -- Default = as designed
      Help_Button : in     Boolean := False;
      Is_Dynamic  : in     Boolean := False);

  --  b) Create all contents, not the window itself (must be
  --      already created) -> can be used in/as any kind of window.
  --
  procedure Create_Contents
     ( Window      : in out Conflict_dialog_Type;
       for_dialog  : in     Boolean; -- True: buttons do close the window
       resize      : in     Boolean:= False -- optionnally resize Window as designed
     );

  type Goodbye_dialog_Type is new Window_Type with record

    IDOK: Default_Dialog_Button_Type;    -- closes parent window after click
    IDOK_permanent: Default_Button_Type; -- doesn't close parent window after click
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    Static_0005: Icon_Type;
    -- Label: IDC_STATIC
    Static_0007: Bitmap_Type;
    GNAT_URL: Label_Type;
    MinGW_URL: Label_Type;
    Static_0008: Bitmap_Type;
    GNAVI_SF_URL: Label_Type;
    GNAVI_Discuss_URL: Label_Type;
    GNAVI_URL: Label_Type;
    Static_0009: Bitmap_Type;
    ResEdit_URL: Label_Type;
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
  end record; -- Goodbye_dialog_Type

  -- Dialog at resource line 72

  --  a) Create_As_Dialog & create all contents -> ready-to-use dialog
  --
  procedure Create_Full_Dialog
     (Window      : in out Goodbye_dialog_Type;
      Parent      : in out GWindows.Base.Base_Window_Type'Class;
      Title       : in     GString := "GWindows installation complete";
      Left        : in     Integer := Use_Default; -- Default = as designed
      Top         : in     Integer := Use_Default; -- Default = as designed
      Width       : in     Integer := Use_Default; -- Default = as designed
      Height      : in     Integer := Use_Default; -- Default = as designed
      Help_Button : in     Boolean := False;
      Is_Dynamic  : in     Boolean := False);

  --  b) Create all contents, not the window itself (must be
  --      already created) -> can be used in/as any kind of window.
  --
  procedure Create_Contents
     ( Window      : in out Goodbye_dialog_Type;
       for_dialog  : in     Boolean; -- True: buttons do close the window
       resize      : in     Boolean:= False -- optionnally resize Window as designed
     );

  type Goodbye_dialog_2_Type is new Window_Type with record

    IDOK: Default_Dialog_Button_Type;    -- closes parent window after click
    IDOK_permanent: Default_Button_Type; -- doesn't close parent window after click
    Static_0001: Icon_Type;
    -- Label: IDC_STATIC
    Static_0003: Group_Box_Type;
    Open_folder: Check_Box_Type;
    Open_user_guide: Check_Box_Type;
    Static_0004: Group_Box_Type;
    Build_gwenerator: Check_Box_Type;
    Open_gwenerator_folder: Check_Box_Type;
    Open_gwenerator_doc: Check_Box_Type;
    Static_0005: Group_Box_Type;
    Build_gnatcom: Check_Box_Type;
    Open_gnatcom_folder: Check_Box_Type;
  end record; -- Goodbye_dialog_2_Type

  -- Dialog at resource line 95

  --  a) Create_As_Dialog & create all contents -> ready-to-use dialog
  --
  procedure Create_Full_Dialog
     (Window      : in out Goodbye_dialog_2_Type;
      Parent      : in out GWindows.Base.Base_Window_Type'Class;
      Title       : in     GString := "GWindows installation complete";
      Left        : in     Integer := Use_Default; -- Default = as designed
      Top         : in     Integer := Use_Default; -- Default = as designed
      Width       : in     Integer := Use_Default; -- Default = as designed
      Height      : in     Integer := Use_Default; -- Default = as designed
      Help_Button : in     Boolean := False;
      Is_Dynamic  : in     Boolean := False);

  --  b) Create all contents, not the window itself (must be
  --      already created) -> can be used in/as any kind of window.
  --
  procedure Create_Contents
     ( Window      : in out Goodbye_dialog_2_Type;
       for_dialog  : in     Boolean; -- True: buttons do close the window
       resize      : in     Boolean:= False -- optionnally resize Window as designed
     );

  type Main_install_dialog_Type is new Window_Type with record

    Static_0001: Group_Box_Type;
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    Setup_title: Label_Type;
    Static_0005: Group_Box_Type;
    -- Label: IDC_STATIC
    -- Label: IDC_STATIC
    Directory_edit: Edit_Box_Type;
    Directory_select_button: Dialog_Button_Type;    -- closes parent window after click
    Directory_select_button_permanent: Button_Type; -- doesn't close parent window after click
    UNICODE_choice: Radio_Button_Type;
    ANSI_choice: Radio_Button_Type;
    Static_0008: Group_Box_Type;
    Static_0009: Bitmap_Type;
    GNATCOM_check: Check_Box_Type;
    GWen_check: Check_Box_Type;
    IDOK: Default_Dialog_Button_Type;    -- closes parent window after click
    IDOK_permanent: Default_Button_Type; -- doesn't close parent window after click
    IDCANCEL: Dialog_Button_Type;    -- closes parent window after click
    IDCANCEL_permanent: Button_Type; -- doesn't close parent window after click
  end record; -- Main_install_dialog_Type

  -- Dialog at resource line 123

  --  a) Create_As_Dialog & create all contents -> ready-to-use dialog
  --
  procedure Create_Full_Dialog
     (Window      : in out Main_install_dialog_Type;
      Parent      : in out GWindows.Base.Base_Window_Type'Class;
      Title       : in     GString := "GWindows installer, version ";
      Left        : in     Integer := Use_Default; -- Default = as designed
      Top         : in     Integer := Use_Default; -- Default = as designed
      Width       : in     Integer := Use_Default; -- Default = as designed
      Height      : in     Integer := Use_Default; -- Default = as designed
      Help_Button : in     Boolean := False;
      Is_Dynamic  : in     Boolean := False);

  --  b) Create all contents, not the window itself (must be
  --      already created) -> can be used in/as any kind of window.
  --
  procedure Create_Contents
     ( Window      : in out Main_install_dialog_Type;
       for_dialog  : in     Boolean; -- True: buttons do close the window
       resize      : in     Boolean:= False -- optionnally resize Window as designed
     );

  type Unpack_dialog_Type is new Window_Type with record

    Unpack_progress: Progress_Control_Type;
    File_name: Label_Type;
    Static_0001: Icon_Type;
    Static_0002: Icon_Type;
  end record; -- Unpack_dialog_Type

  -- Dialog at resource line 137

  --  a) Create_As_Dialog & create all contents -> ready-to-use dialog
  --
  procedure Create_Full_Dialog
     (Window      : in out Unpack_dialog_Type;
      Parent      : in out GWindows.Base.Base_Window_Type'Class;
      Title       : in     GString := "Unpacking by Zip-Ada";
      Left        : in     Integer := Use_Default; -- Default = as designed
      Top         : in     Integer := Use_Default; -- Default = as designed
      Width       : in     Integer := Use_Default; -- Default = as designed
      Height      : in     Integer := Use_Default; -- Default = as designed
      Help_Button : in     Boolean := False;
      Is_Dynamic  : in     Boolean := False);

  --  b) Create all contents, not the window itself (must be
  --      already created) -> can be used in/as any kind of window.
  --
  procedure Create_Contents
     ( Window      : in out Unpack_dialog_Type;
       for_dialog  : in     Boolean; -- True: buttons do close the window
       resize      : in     Boolean:= False -- optionnally resize Window as designed
     );

  package Version_info is
    Authors: constant String:= "Gautier de Montmollin";
    FileDescription: constant String:= "Installer for the GWindows programming framework";
    FileVersion: constant String:= "10-May-2016";
    LegalCopyright: constant String:= "© 2012 .. 2016 G. de Montmollin (MIT license)";
    ProductName: constant String:= "GWindows Installer";
    Translation: constant:= 1033;
  end Version_info;


  ------------------------------------------------
  -- Defined resource symbols --> Ada constants --
  ------------------------------------------------

  -- NB: only items with a defined symbol get a constant here
  -- These constants are needed for getting button and menu feedbacks.

  IDC_STATIC             : constant:=     -1;
  GNAVI_Logo             : constant:=    133;
  Conflict_dialog        : constant:=    135;
  Unpack_dialog          : constant:=    137;
  Main_install_dialog    : constant:=    138;
  Goodbye_dialog         : constant:=    141;
  Zip_icon               : constant:=    143;
  Ada_doc_icon           : constant:=    145;
  Success_icon           : constant:=    147;
  ResEdit_Logo           : constant:=    149;
  GNAT_Logo              : constant:=    151;
  Goodbye_dialog_2       : constant:=    153;
  Directory_select_button: constant:=   1000;
  GNAVI_URL              : constant:=   1000;
  Build_gwenerator       : constant:=   1001;
  File_name              : constant:=   1001;
  GNAT_URL               : constant:=   1001;
  Setup_title            : constant:=   1001;
  Directory_edit         : constant:=   1002;
  GNAVI_SF_URL           : constant:=   1002;
  Open_folder            : constant:=   1002;
  Unpack_progress        : constant:=   1002;
  Installed_version      : constant:=   1003;
  Open_user_guide        : constant:=   1003;
  ResEdit_URL            : constant:=   1003;
  GNAVI_Discuss_URL      : constant:=   1004;
  GNATCOM_check          : constant:=   1006;
  MinGW_URL              : constant:=   1006;
  Open_gwenerator_doc    : constant:=   1006;
  Installer_Version      : constant:=  40018;
  ANSI_choice            : constant:=  40019;
  UNICODE_choice         : constant:=  40021;
  GWen_check             : constant:=  40023;
  Open_gwenerator_folder : constant:=  40023;
  Open_gnatcom_folder    : constant:=  40025;
  Build_gnatcom          : constant:=  40026;

  -- ** Some helper utilities (spec).

  procedure Dlg_to_Scn(
    xd,yd,wd,hd:  in Integer;
    xs,ys,ws,hs: out Integer);

  procedure Use_GUI_Font(Window: in out GWindows.Base.Base_Window_Type'Class);

  function Num_resource(id: Natural) return GString;  --  Just turn 123 into "#123".


  -- Last line of resource script file: 199

end GW_Install_Resource_GUI;
