Folder Selector

#pragma rtGlobals=1     // Use modern global access method.
 
// Window Recreation
Window Folder_Selector() : Panel
    Makelist()
    PauseUpdate; Silent 1       // building window...
    NewPanel /W=(434,276,689,553) as "Folder Selector"
    SetDrawLayer UserBack
    DrawText 19,34,"Double click on the folder to set as active"
    ListBox list0,pos={19,52},size={75,132},proc=ListBox_G,frame=0
    ListBox list0,listWave=root:lista,mode= 2,selRow= 0
EndMacro
 
// List Box Control
Function ListBox_G(ctrlName,row,col,event) : ListBoxControl
    String ctrlName
    Variable row
    Variable col
    Variable event  //1=mouse down, 2=up, 3=dbl click, 4=cell select with mouse or keys
                    //5=cell select with shift key, 6=begin edit, 7=end
     
    WAVE lista=root:lista
    
if (event == 3)
    String/G nombre         //name of the current Folder
    string cmd
    sprintf cmd," nombre = root:lista[%g]", row
    execute cmd
    if (cmpstr (nombre,"root:") == 0)
        setdatafolder root:
    else
        nombre = "root:"+ nombre
        setdatafolder $nombre
    endif
    print nombre
    setdatafolder $nombre
endif
    return 0
End
 
// Folders List Function
Function Makelist()
string objName
variable n,i
i=0
n = CountObjects(":",4)
Make/O /T /N=(n+1) lista
lista[0] = "root:"
do
    objName = GetIndexedObjName(":", 4, i)
        if (strlen(objName) == 0)
        break
        endif
    lista[i+1]=objName
    i=i+1
    print i
while(1)
end