MaxSlide Script

global MaxSlide
(
    if MaxSlide != undefined do ( closerolloutfloater MaxSlide)
    MainMenu = newrolloutfloater "MaxSlide" 200 460

    local BSPathRollout
    local BSProjectFiles
    local allFiles = #()

    /*
    fn loadXML importPath =
    (
    	projectFile = openFile mode:"rt"
    	while not EOF openFile do
    	(
    		lineScan
    	)
    )
    */

    rollout BSPathRollout "BodySlide Folder"
    (
        editText BodySlideDir "Select Bodyslide Directory" labelOnTop:true
        button openBSDir "Browse..."
        button loadProjects "Set Working Directory"
        Listbox displayedFiles "Project Files" labelOnTop:true

        on openBSDir pressed do
        (
            local directory = getSavePath caption:"Select Bodyslide Folder"
            if directory != undefined do
            (
                BodySlideDir.text = directory + "\\"
            )
        )

        on loadProjects pressed do
        (
        	ProjectDir = (BodySlideDir.text + "\\SliderSets")
            allFiles = getFiles(ProjectDir + "\\*.xml")
            if(allFiles == null) do
            (
                MessageBox ("Invalid BodySlide Directory")
            )
            sort allFiles
            fileNameDisplay = deepcopy allFiles
            for i=1 to allFiles.count do
            (
               	fileNameDisplay[i] = substring allFiles[i] (ProjectDir.count+1) -1
            )
            displayedFiles.items = fileNameDisplay
        )

        on displayedFiles selected i do
        (
        	projectFile = XMLDocument()
        	projectFile.LoadXML allFiles[currentIndex]
        	slidersetNode = projectFile.GetRootNode()
        	print "Successful XML Loaded"

        )

        /*
        on displayedFiles doubleClicked i do
        (
        	currentIndex = i
        )
        */
    )

    addRollout BSPathRollout MainMenu rolledup:false
)