/*	Allows changes in ImageMagick and Gifsicle paths so that different versions can be tested 
	v210917: First version (just ImageMagick path)
	v211018: Gifsicle added and changed prefs to being app specific to be consistent with recent macros v211213: fixed function
	v220121: GnuWin32 added  v220628 Changed from convert to magick.exe for IM7.
	v230720: Removed GnuWin32 ('g32') as all tiff operations now performed with 64-bit ImageMagick. v230720b: Consolidated dialogs. Only logs output on failure.
	v230803: Replaced getDir for 1.54g10.
*/
	macroL = "Set_External_App_Paths_v230803.ijm";
	if (!startsWith(getInfo("os.name"),"Windows")) exit ("Sorry, this macro currently only works with Windows");
	fS = File.separator;
	ijPath = getDirectory("imagej");
	appsPath = substring(ijPath,0,lengthOf(ijPath)-1);
	appsPath = substring(appsPath,0,lastIndexOf(appsPath,fS));
	cProg = "C:"+fS+"Program Files";
	defAppPaths = newArray(cProg + fS + "Utilities", cProg + " \(x86\)" + fS + "Utilities", cProg, cProg + " \(x86\)", appsPath,ijPath+"Apps");
	prefsPrefix = "asc.external.paths.";
	iMLoc = ""+fS+"ImageMagick"+fS;
	iMApp = "magick.exe";
	iMAppPrefsSet = prefsPrefix + "imagemagick." + iMApp;
	gSLoc = ""+fS+"Gifsicle"+fS;
	gSApp = "gifsicle.exe";
	gSAppPrefsSet = prefsPrefix + "gifsicle." + gSApp;
	iMAppPath = findAppPath("ImageMagick",iMApp,"not found");
	if (File.exists(iMAppPath)) iMAppFound = true;
	else iMAppFound = false;
	if (iMAppFound) iMRadioButtons = newArray(iMAppPath);
	else iMRadioButtons = newArray();
	for (i=0, j=iMRadioButtons.length; i<defAppPaths.length; i++){
		appPath = defAppPaths[i]+iMLoc+iMApp;
		if (File.exists(appPath)){
			if (appPath!=iMAppPath){
				iMRadioButtons[j] = appPath;
				j++;
			}
		}
	}
	iMRadioButtons = Array.concat(iMRadioButtons,"Use entered location below");
	gSAppPath = findAppPath("Gifsicle",gSApp,"not found");
	if (File.exists(gSAppPath)) gSAppFound = true;
	else gSAppFound = false;
	gSRadioButtons = newArray();
	jStart = 0;
	if (gSAppFound){
		gSRadioButtons[0] = gSAppPath;
		jStart++;
	}
	for(i=0, j=jStart; i<lengthOf(defAppPaths);i++){
		gSAppPath = defAppPaths[i]+gSLoc+gSApp;
		if (File.exists(gSAppPath)){
		// && gSAppPath!=gSAppPath) {
			if (gSAppPath!=gSAppPath){
				gSRadioButtons[j] = gSAppPath;
				j++;
			}
		}
	}
	gSRadioButtons = Array.concat(gSRadioButtons,"Use entered location below");
	Dialog.create(macroL);
		Dialog.addMessage("Select location to be saved at " + iMAppPrefsSet + ":");
		if (iMAppFound) Dialog.addMessage("Current setting: " + iMAppPath);
		Dialog.addRadioButtonGroup("Select path to be saved:_____",iMRadioButtons,iMRadioButtons.length,1,iMRadioButtons[0]);
		Dialog.addDirectory("Locate ImageMagick:","C:"+fS+"Program Files"+fS);
		Dialog.addMessage("Select location to be saved at " + gSAppPrefsSet + ":");
		if (gSAppFound) Dialog.addMessage("Current setting: " + call("ij.Prefs.get",gSAppPrefsSet,"Not Set"));
		Dialog.addRadioButtonGroup("Select path to be saved:_____",gSRadioButtons,gSRadioButtons.length,1,gSRadioButtons[0]);
		Dialog.addDirectory("Locate Gifsicle:","C:"+fS+"Program Files");
	Dialog.show;
		iMAppPath = Dialog.getRadioButton();
		if (startsWith(iMAppPath,"Use")) iMAppPath = Dialog.getString() + iMApp;
		gSAppPath = Dialog.getRadioButton();
		if (startsWith(gSAppPath,"Use")) gSAppPath = Dialog.getString() + gSApp;
	if (File.exists(iMAppPath)){
		call("ij.Prefs.set",iMAppPrefsSet, iMAppPath);
		testSetting = call("ij.Prefs.get",iMAppPrefsSet,"whoops");
		if (testSetting=="whoops") IJ.log("Setting test failed: " + iMAppPrefsSet + ", " + testSetting);
	}
	else IJ.log(iMAppPath + " not found so " + iMAppPrefsSet + " not set");
	if (File.exists(gSAppPath)){
		call("ij.Prefs.set",gSAppPrefsSet, gSAppPath);
		testSetting = call("ij.Prefs.get",gSAppPrefsSet,"whoops");
		if (testSetting=="whoops") IJ.log("Setting test failed: " + gSAppPrefsSet + ", " + testSetting);
	}
	else IJ.log(gSAppPath + " not found so " + gSAppPrefsSet + " not set");			
	/*
		( 8(|)  ( 8(|) ASC Functions	@@@@@:-)	@@@@@:-)
	*/	
		function findAppPath(appName,appEx,defaultPath) {
		/* v210921 1st version: appName is assumed to be the app folder name, appEx is the executable, default is the default return value
			v211018: assumes specific executable path stored in prefs Prints message rather than exits when app not found
			v211213: fixed defaultPath error
			v211214: Adds additional location as packaged within a Fiji/IJ distribution
			v220121: Changed fS line
			v230803: Replaced getDir with getDirectory for ImageJ 1.54g10 
		*/
		functionL = "findAppPath_v230803";
		fS = File.separator;
		ijPath = getDirectory("imagej");
		appsPath = substring(ijPath,0,lengthOf(ijPath)-1);
		appsPath = substring(appsPath,0,lastIndexOf(appsPath,fS));
		appFound = false;
		prefsName = "asc.external.paths." + toLowerCase(appName) + "." + appEx;
		appPath = call("ij.Prefs.get", prefsName, defaultPath);
		appLoc = ""+fS+appName+fS+appEx;
		cProg = "C:"+fS+"Program Files";		
		defAppPaths = newArray(cProg+fS+"Utilities"+appLoc,cProg+" \(x86\)"+fS+"Utilities"+appLoc,cProg+appLoc,cProg+" \(x86\)"+appLoc,appsPath+appLoc,ijPath+"Apps"+appLoc);
		if (!File.exists(appPath)) { 
			for(i=0;i<lengthOf(defAppPaths);i++){
				if (File.exists(defAppPaths[i])){
					appPath = defAppPaths[i];
					call("ij.Prefs.set", prefsName, appPath);
					appFound = true;
					i = lengthOf(defAppPaths);
				}
			}
		}
		else appFound = true;
		if (appFound==false){
			Dialog.create("Find location of " + appEx + " version: " + functionL);
			Dialog.addMessage(appEx + " can provide additional functionality to this macro\nbut has not been found in the expected locations");
			Dialog.addCheckbox("Get me out of here, I don't want to try and find " + appName + ", whatever that is",false);
			Dialog.addFile("Locate " + appEx + ":","C:"+fS+"Program Files");
			Dialog.addMessage("If found, the location will be saved in prefs for future use:\n" + prefsName);
			Dialog.show;
			if (Dialog.getCheckbox) appFound = false;
			else {
				appPath = Dialog.getString();
				if (!File.exists(appPath)) print(appEx + " not found");
				else {
					call("ij.Prefs.set", prefsName, appPath);
					appFound = true;
				}
			}
		}
		if (appFound) return appPath;
		else return defaultPath;
	}