Skip to content
Snippets Groups Projects
Main.hs 1.21 KiB
Newer Older
-----------------------------------------------------------------------------
--             FOOD PLAN GUI - (c) 2022 Felix Drees - GNU GPLv3            --
-----------------------------------------------------------------------------

felix's avatar
felix committed
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Data.GI.Base()
felix's avatar
felix committed
import qualified GI.Gtk as Gtk


main :: IO ()
main = do
  _ <- Gtk.init Nothing
felix's avatar
felix committed

  win <- Gtk.windowNew Gtk.WindowTypeToplevel
  Gtk.setContainerBorderWidth win 10
  Gtk.setWindowTitle win "FOOD PLAN GUI - by Felix Drees - v0.0.1"
felix's avatar
felix committed
  Gtk.setWindowResizable win False
  Gtk.setWindowDefaultWidth win 400
  Gtk.setWindowDefaultHeight win 400
  Gtk.setWindowWindowPosition win Gtk.WindowPositionCenter
  Gtk.windowSetDecorated win True

  lable1 <- Gtk.labelNew Nothing
  Gtk.labelSetMarkup lable1 "<b>Test 1</b>"

{-
  btn1 <- Gtk.buttonNew
  Gtk.buttonSetRelief btn1 Gtk.ReliefStyleNone
  Gtk.buttonSetTxt btn1 "Button 1"
-}

  grid <- Gtk.gridNew
  Gtk.gridSetColumnSpacing grid 10
  Gtk.gridSetRowSpacing grid 10
  Gtk.gridSetColumnHomogeneous grid True

  #attach grid lable1 0 0 1 1
  #add win grid
felix's avatar
felix committed

  {- TODO ... -}

  _ <- Gtk.onWidgetDestroy win Gtk.mainQuit
felix's avatar
felix committed
  #showAll win
  Gtk.main