module GTKMainWindow where

import GTKContext

import Control.Monad.Trans
import Control.Monad.Trans.Reader

import qualified GI.Gtk as Gtk


setupMainWindow :: ReaderT GTKContext IO ()
setupMainWindow = do
  o <- gtkGetObj Gtk.Window "window1"
  _ <- liftIO $ Gtk.widgetShow o
  _ <- liftIO $ Gtk.onWidgetDestroy o Gtk.mainQuit

  return ()
