-- | Initialised the glade GUI and all the view components that are not
-- included directly in it
createView :: IO View
createView = do

  -- Certain aspects of the visual interface can be configured with a config file
  cfg <- readConfigFile

  -- Load Glade builder
  bldr <- loadInterface

  -- Intialise interface
  widgetShowAll =<< Builder.mainWindow bldr
  (soosim, thumb) <- initialiseAnimationArea cfg bldr
  initIconsInfoArea bldr
  initialiseTooltips bldr

  return View
           { uiBuilder  = bldr
           , soosimView = soosim
           , thumbView  = thumb
           }

-- gtkViewAccessor element name type name
createView :: IO View
createView = do

  -- Certain aspects of the visual interface can be configured with a config file
  cfg <- readConfigFile

  -- Load Glade builder
  bldr <- loadInterface

  -- Intialise interface
  widgetShowAll =<< Builder.mainWindow bldr
  (soosim, thumb) <- initialiseAnimationArea cfg bldr
  initIconsInfoArea bldr
  initialiseTooltips bldr

  return View
           { uiBuilder  = bldr
           , soosimView = soosim
           , thumbView  = thumb
           }

-- gtkViewAccessor element name type name
createView = do

  -- Certain aspects of the visual interface can be configured with a config file
  cfg <- readConfigFile

  -- Load Glade builder
  bldr <- loadInterface

  -- Intialise interface
  widgetShowAll =<< Builder.mainWindow bldr
  (soosim, thumb) <- initialiseAnimationArea cfg bldr
  initIconsInfoArea bldr
  initialiseTooltips bldr

  return View
           { uiBuilder  = bldr
           , soosimView = soosim
           , thumbView  = thumb
           }

-- gtkViewAccessor element name type name