Copy Graph Subwindow

// how to copy Graph subwindow embedded in panel
// calling: DuplGraphInPanelSubwndw("PanelName#GraphName")
// You should end up with new graph, copy,... , kill at the end 
// https://www.wavemetrics.com/forum/igor-pro-wish-list/request-duplicategraph-function
 
Function DuplGraphInPanelSubwndw(String gname)
    String rec = WinRecreation(gname, 0)   
    Variable lines=ItemsInList(rec, "\r")
    Variable i
    String newrec = ReFactorWinRec(rec)
    Execute newrec
end
 
Function/S ReFactorWinRec(WRstr)
    string WRstr
   
    string gstr
    string fstr, istr, rstr, estr
   
    // remove the /W component
    gstr = "((?s).+)(Display/W=\(\\d+,\\d+,\\d+,\\d+\))((?s).+)"   
    SplitString/E=gstr WRstr, istr, rstr, estr   
    fstr = istr + "Display" + estr
   
    // remove the /HOST component
    gstr = "((?s).+)(/HOST=#)((?s).+)" 
    SplitString/E=gstr fstr, istr, rstr, estr  
 
    fstr = istr + estr
    return (fstr)
end