Get List of Named Window Hook Functions

// returns list of named window hook functions
// name(string) = name of window (default topmost)
// hook(string) = name of string to find (default all)
// example - check whether the topmost graph has any of my named hook functions
// string myhookfunctions = GetLoNamedWindowHookFunctions(hook="jjw*")
// print myhookfunctions --> hook(jjw0)=gotozero; hook(jjw1)=gotoone;

Function/S GetLoNamedWindowHookFunctions([name,hook])
	string name, hook
	variable all
	
	string wrecStr, lStr=""
	variable sp=0, cp, ep
	
	if (ParamIsDefault(name))
		name = WinName(0,1)
		if (strlen(name)==0)
			return ""
		endif
	endif

	wrecstr = WinRecreation(name,0)	
//	notebook winrec, text = wrecStr		// uncomment and have notebook winrec fo winrecreation string
	
	do
		cp = strsearch(wrecStr,"hook(",sp)
		if (cp == -1)
			break
		endif
		ep = strsearch(wrecStr,"\r",cp)
		lStr += wrecStr[cp,ep-1] + ";"
		sp = ep+1
	while(1)
	
	if (ParamIsDefault(hook))
		hook = lStr
	else
		hook = "hook("+hook+")=*"
		hook = ListMatch(lStr,hook)
	endif	
	return hook
	
end