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