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