function ReallyKillWaves(w)
  wave w
 
  string name=nameofwave(w)
  string graphs=WinList("*",";","WIN:1") // A list of all graphs
  variable i,j
  for(i=0;i<itemsinlist(graphs);i+=1)
    string graph=stringfromlist(i,graphs)
    string traces=TraceNameList(graph,";",3)
    if(listmatch(traces,name)) // Assumes that each wave is plotted at most once on a graph.  
      RemoveFromGraph /W=$graph $name
    endif
  endfor
 
  string tables=WinList("*",";","WIN:3") // A list of all tables
  for(i=0;i<itemsinlist(tables);i+=1)
    string table=stringfromlist(i,tables)
    j=0
    do
      string column=StringByKey(table,j)
      if(strlen(column))
        RemoveFromTable /Z/W=$table $column
        j+=1
      else
        break
      endif
    while(1)
  endfor 
 
  killwaves /z w
end