Include Option to Paste Spreadsheet Row Directly as Column Wave

menu "edit", hideable, dynamic
    TableClipMenu("Transpose Paste"), TransposePaste()
end
 
function /s TableClipMenu(str)
    string str
    
    if(WinType("")==2)
        return str
    endif
    return ""
end
 
function TransposePaste()
    
    string clip=getScrapText(), sOut=""
    variable rows=itemsinlist(clip, "\r")
    variable columns=itemsinlist(stringfromlist(0,clip,"\r"), "\t")
    variable i,j
    for(i=0;i<columns;i+=1)
        for(j=0;j<rows;j+=1)
            sOut+=stringfromlist(i,stringfromlist(j, clip,"\r"), "\t")+"\t"
        endfor
        sOut=removeEnding(sOut,"\t")
        sOut+="\r"
    endfor
    putscrapText sOut
    doIgorMenu "Edit", "Paste"
    putscrapText clip
end