src/GUI/Common.hs

   1 module GUI.Common (
   2     Globals (..),
   3     State (..),
   4     initState,
   5     maxSize,
   6 ) where
   7
   8 import Mine
   9
  10 import qualified Graphics.UI.Gtk as G
  11 import Data.IORef
  12
  13 maxSize :: Pos
  14 maxSize = Pos 30 16
  15
  16 data Globals = Globals {
  17     gBoard     :: G.DrawingArea,
  18     gStatusbar :: G.Statusbar,
  19     gState     :: IORef State
  20 }
  21
  22 data State = State {
  23     sConfig   :: Config,
  24     sStrategy :: Strategy,
  25     sBoard    :: Maybe Board,
  26     sStop     :: Maybe (IO ()),
  27     sPreviousConfigItem :: Maybe G.RadioMenuItem
  28 }
  29
  30 initState strats = State {
  31     sConfig   = beginner,
  32     sStrategy = head strats,
  33     sBoard    = Nothing,
  34     sStop     = Nothing,
  35     sPreviousConfigItem = Nothing
  36 }