Main.hs

{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Data.GI.Base
import qualified GI.Gtk as Gtk


main :: IO ()
main = do
  Gtk.init Nothing

  win <- Gtk.windowNew Gtk.WindowTypeToplevel
  Gtk.setContainerBorderWidth win 10
  Gtk.setWindowTitle win "FOOD PLAN HS - by Felix Drees - v0.0.1"
  Gtk.setWindowResizable win False
  Gtk.setWindowDefaultWidht win 800
  Gtk.setWindowDefaultHeight win 800
  Gtk.setWindowPosition win Gtk.WindowPositionCenter
  Gtk.windowSetDecorated win False

  {- TODO ... -}

  Gtk.onWidgetDestroy win Gtk.mainQuit
  #showAll win
  Gtk.main