Menu entry for experiment templates

#pragma rtGlobals=1     // Use modern global access method.

static StrConstant templatePath   = "C:myTemplates" // change this to a path with igor packed experiment templates
static StrConstant templateSuffix = ".pxt"

Menu "File"
    SubMenu "Experiment Templates"
        getExperimentTemplates(),/Q, loadExperimentTemplate()
    End
End


function/S getExperimentTemplates()

    NewPath/Z/Q/O expTemplatePath templatePath
    return IndexedFile(expTemplatePath,-1,templateSuffix)
end

function loadExperimentTemplate()

    GetLastUserMenuInfo     // sets S_value, V_value, etc.
    string fileName = S_value
    if(cmpstr(fileName,"") == 0)
        print "Can't load the template due to empty filename, aborting"
        return -1
    else
        Execute/P "LOADFILE " + templatePath + ":" + fileName
    endif
end