--Generated automatically by GuiSurfer

module GuiTypes where

import Data.Map

type EventRef = String
type CondRef = String
type WindowName = String
type ExpRef = Int

type GuiModel = Map (EventRef,CondRef) [ExpRef]

type Pres = Map ExpRef (EventRef,Bool)
type End = [ExpRef]
type Close = [ExpRef]
type Window = WindowName
type NewWindow = Map ExpRef WindowName

type State = Map EventRef Bool
type StateRef = String
newtype N = N ([CondRef],[EventRef])
        deriving (Eq,Show)

type Type = String
type AstList = [[String]]
type InitPos = Int
type EndPos = Int
type SourcePosList = [(InitPos,EndPos)]
type Exp = (Type,AstList,InitPos,EndPos,SourcePosList)
type Exps = Map ExpRef Exp
type Events = Map EventRef Exp
type Conds = Map CondRef [Exp]