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

        global BSPathRollout
        global BSProjectFiles

        rollout BSPathRollout "BodySlide Folder"
        (
                editText BodySlideDir "Select Bodyslide Directory" labelOnTop:true
                button openBSDir "Browse..."
                button loadSliders "Load Slider Sets"
                Multilistbox displayedFiles "Files" labelOnTop:true

                on openBSDir pressed do
                (
                        local directory = getSavePath caption:"Select Bodyslide Folder" initialDir:BSDirectory
                        if directory != undefined do
                        (
                                BodySlideDir.text = directory + "\\"
                        )
                )
                on loadSliders pressed do
                (
                        allFiles = getFiles(BodySlideDir.text + "\\*.xml")
                        if(allfiles == null)
                        (
                                MessageBox ("Invalid BodySlide Directory")
                        )

                        sort allFiles
                        displayedFiles.items = allFiles
                )
        )

        addRollout BSPathRollout MainMenu rolledup:false
)