////////////////////////////////////////////////////////////////////////////////
//
// Code::Blocks new file wizard script
//
// Project: fortran source file
// Author:  Wang Qiyu
//
////////////////////////////////////////////////////////////////////////////////

function BeginWizard()
{
    // this is the text that will appear in the start (intro) page
    local intro_msg = _("Welcome to the new fortran source file wizard!\n") +
                      _("This wizard will guide you to create a new fortran source file.\n\n") +
                      _("When you're ready to proceed, please click \"Next\"...");

    // add builtin pages
    Wizard.AddInfoPage(_T("CFileIntro"), intro_msg); // intro
    Wizard.AddFilePathPage(false); // select filename (no header guard for source files)

	Wizard.SetFilePathSelectionFilter(_("Fortran source files")+_T(" (*.f;*.f77;*.f90;*.f95)|*.f;*.f77;*.f90;*.f95"));
}

function CreateFiles()
{
    local fname = Wizard.GetFileName();
    local ed    = GetEditorManager();
    if (IsNull(ed))
    {
        ShowError(_("The wizard could not locate the editor manager."));
    }

    local ed_new = ed.New(fname);
    if (IsNull(ed_new))
    {
        ShowError(_("The wizard could not create a new file.\nMaybe the target folder is write-protected?"));
    }
    else
    {
        // succeeded -> add file to project if needed
        if (Wizard.GetFileAddToProject())
        {
            AddFileToTargets(Wizard, fname);
        }
    }
    return fname;
}
