Newer
Older
-----------------------------------------------------------------------------
-- FOOD PLAN GUI - (c) 2022 Felix Drees - GNU GPLv3 --
-----------------------------------------------------------------------------
{-# LANGUAGE OverloadedLabels #-}
{-# LANGUAGE OverloadedStrings #-}
module Main (main) where
win <- Gtk.windowNew Gtk.WindowTypeToplevel
Gtk.setContainerBorderWidth win 10
Gtk.setWindowTitle win "FOOD PLAN GUI - by Felix Drees - v0.0.1"
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