hsudoku-0.1.0.0: src/Hsudoku.hs

{-|
Module: Main
Description: The main module of the sudoku executable
Copyright: (c) Marcel Moosbrugger, 2017
License     : MIT

Contains the main function which sets up the UI of the
sudoku executable.
-}
module Main where

import           Data.GI.Base
import qualified GI.Gtk        as Gtk
import           Sudoku.Type
import           UserInterface

-- | The main function which opens a new GTK window in which sudoku games can be
-- played.
main :: IO ()
main = do
    Gtk.init Nothing

    ui <- buildSudokuUI "gui/hsudoku.ui"
    cellsBindHandlers (cells ui) (popover ui)
    numbersBindHandlers (numberButtons ui) (popover ui)
    on (inputClear ui) #clicked $ writePopoverRelativeCell (popover ui) $ blankval
    on (inputSolve ui) #clicked $ solvePopoverRelativeCell (popover ui)
    on (solveButton ui) #clicked $ solveAll (cells ui)
    on (checkButton ui) #clicked $ checkAll (cells ui)
    gameButtonsBindHandlers (gameButtons ui) (cells ui) (menu ui)
    on (menuButton ui) #clicked $ showMenu (menu ui) (popover ui)

    #showAll (window ui)
    Gtk.main