Add a textbox containing a graph's name or title

// Adds a textbox containing the graph's name or title.

// Example
// Make/O/N=10 wave0=p
// Display wave0 as "Graph of wave0"
// AddGraphTitleTextbox("")

Function/S WindowTitle(WindowName) // Returns the title of a window given its name.
        String WindowName // Name of graph, table, layout, notebook or control panel.

        String RecMacro
        Variable AsPosition, TitleEnd
        String TitleString

        if (strlen(WindowName) == 0)
                WindowName=WinName(0,1)         // Name of top graph window
        endif

        if (wintype(WindowName) == 0)
                return ""                       // No window by that name
        endif

        RecMacro = WinRecreation(WindowName, 0)
        AsPosition = strsearch(RecMacro, " as \"", 0)
        if (AsPosition < 0)
                TitleString = WindowName        // No title, return name
        else
                AsPosition += 5                 // Found " as ", get following quote mark
                TitleEnd = strsearch(RecMacro, "\"", AsPosition)
                TitleString = RecMacro[AsPosition, TitleEnd-1]
        endif

        return TitleString
End

Function AddGraphNameTextbox(graphName)
    String graphName                // "" for top visible graph
   
    if (strlen(graphName) == 0)
        graphName = WinName(0, 1, 1)
    endif
    if (strlen(graphName) == 0)
        return -1                   // There are no graphs.
    endif
   
    DoWindow $graphName
    if (V_flag == 0)
        return -1                   // There is no graph with that name.
    endif
   
    String text
    sprintf text, "Graph name is %s", graphName
    Textbox /C/N=GraphName /W=$graphName text
    return 0
End

Function AddGraphTitleTextbox(graphName)
    String graphName                // "" for top visible graph
   
    if (strlen(graphName) == 0)
        graphName = WinName(0, 1, 1)
    endif
    if (strlen(graphName) == 0)
        return -1                   // There are no graphs.
    endif
   
    DoWindow $graphName
    if (V_flag == 0)
        return -1                   // There is no graph with that name.
    endif
   
    String title = WindowTitle(graphName)
       
    String text
    sprintf text, "%s", title
    Textbox /C/N=GraphTitle /W=$graphName text
    return 0
End