Kill graph windows that aren't included in the named layout

Function cleanDesk(s,mode)
//Kills all graph windows that are not included in the named layout, s
//Mode: 0, leaves windows that are part of the layout visible
//Mode: 1, hides windows that are part of the layout
//Mode: 2, windows that are a part of the layout become visible if they weren't already

    String s
    variable mode
    String list,info,graphList,currentGraph
    variable numItems,numPages,i,j,graphListItems,k,match
   
    list=""
    info = LayoutInfo(s,"Layout")
    numPages = str2num(StringByKey("NUMPAGES",info,":",";"))
   
    For(j=1;j<=numPages;j+=1)
        LayoutPageAction page=j
        info = LayoutInfo(s,"Layout")
        numItems = str2num(StringByKey("NUMOBJECTS",info,":",";"))
        For(i=0;i<numItems;i+=1)
            info = LayoutInfo(s,num2str(i))
            list += StringByKey("NAME",info,":",";")+";"
        EndFor
    EndFor
    graphList = WinList("*",";","WIN:1")
    graphListItems = ItemsInList(graphList,";")
   
    For(k=0;k<graphListItems;k+=1)
        currentGraph =StringFromList(k,graphList,";")
        match = StringMatch(list,"*"+currentGraph+"*")
        If(match == 0)
            KillWindow /Z $currentGraph
        EndIf
    EndFor
   
    If(mode == 1)
        numItems = ItemsInList(list,";")
        For(i=0;i<numItems;i+=1)
            currentGraph = StringFromList(i,list,";")
            DoWindow/HIDE=1 $currentGraph
        EndFor
    ElseIf(mode ==2)
        numItems = ItemsInList(list,";")
        For(i=0;i<numItems;i+=1)
            currentGraph = StringFromList(i,list,";")
            DoWindow/HIDE=0 $currentGraph
        EndFor
    EndIf
End