%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{code}
module Main() where
\end{code}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{code}
import Graphics.UI.Gtk
    ( mainGUI, onDestroy, mainQuit, initGUI, widgetShowAll, castToWindow )
import Graphics.UI.Gtk.Glade( xmlNew, xmlGetWidget )
import Paths_hdemo( getDataFileName )
\end{code}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\begin{code}
main   :: IO()
main = do
  initGUI
  glade <- getDataFileName "mesheditor.glade"
  Just xml <- xmlNew glade
  window <- xmlGetWidget xml castToWindow "mainWindow"
  onDestroy window mainQuit

  widgetShowAll window
  mainGUI
\end{code}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%