-- |Loads the main ui file for the gui.
loadUI :: FilePath -> IO ()
loadUI gladepath = do
        initGUI

        builder <- builderNew
        builderAddFromFile builder gladepath

        ui <- buildUI builder

        widgetShowAll $ mainWindow ui

        mainGUI
loadUI :: FilePath -> IO ()
loadUI gladepath = do
        initGUI

        builder <- builderNew
        builderAddFromFile builder gladepath

        ui <- buildUI builder

        widgetShowAll $ mainWindow ui

        mainGUI
loadUI gladepath = do
        initGUI

        builder <- builderNew
        builderAddFromFile builder gladepath

        ui <- buildUI builder

        widgetShowAll $ mainWindow ui

        mainGUI