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