Killing waves being in use

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  

function reallyKillWaves(w)
   wave w
   if(waveExists(w))
      string name=nameofwave(w)
      removeWaveFromAllGraphs(name)
      removeWaveFromAllTables(name)
      killwaves  w
   endif
end  

function removeWaveFromAllGraphs(name)
   string name
   
   string graphs=WinList("*",";","WIN:1") // A list of all graphs
   variable isDisplayed
   variable i,j
   for(i=0;i<itemsinlist(graphs);i+=1)
    string graph=stringfromlist(i,graphs)  
    do
       checkDisplayed/w=$graph $name
           isDisplayed = V_flag
       if(isDisplayed)
          RemoveFromGraph /W=$graph $name
       endif
       while(isDisplayed)
   endfor
end

function removeWaveFromAllTables(name)
   string name
   string tables=WinList("*",";","WIN:2") // A list of all tables
   variable i
   for(i=0;i<itemsinlist(tables);i+=1)
    string table=stringfromlist(i,tables)
    checkDisplayed/w=$table $name
    if( v_flag == 1)
        RemoveFromTable /Z/W=$table $name
    endif
   endfor
end