{-|
Module      : EventLoop.Config
Description : All string literals used through the "EventLoop" module
Copyright   : (c) Sebastiaan la Fleur, 2014
License     : BSD3
Maintainer  : sebastiaan.la.fleur@gmail.com
Stability   : experimental
Portability : All

All string literals used through the "EventLoop" module
-}
module EventLoop.Config where

import FPPrac

------------------
-- | The server listening address used. It is set to localhost (127.0.0.1).
ipadres = "127.0.0.1"
-- | The server port number used. It is set to 9161.
port = 9161 :: Int

-----------
-- Response modes
graphicalS      = "graphical"
commandS        = "command"
modeS           = "mode"
drawS           = "draw"
movegroupS      = "movegroup"
moveelementS    = "moveelement"
removegroupS    = "removegroup"
removeelementS  = "removeelement"

gobjectS    = "gobject"
nameS       = "name"
groupnameS  = "groupname"
positionS   = "position"
relativeS   = "relative"

-- GObject options
containerS  = "containers"
primS       = "prim"
childrenS   = "children"

-- JSONObject/Primitive options
typeS   = "type"
textS   = "text"
lineS   = "line"
rectS   = "rect"
arcS    = "arc"

edgecolorS      = "edgecolor"
edgethicknessS  = "edgethickness"
colorS          = "color"
positionsS      = "positions"

sizeS = "size"
fontS = "font"
fromcenterS = "fromcenter"

widthS = "width"
heightS = "height"
radiusS = "radius"
startangS = "startang"
endangS = "endang"

-- Color
rS = "r"
bS = "b"
gS = "g"

-- Position
xS = "x"
yS = "y"

----------
-- Request options

buttonS = "button"

-- Mouse
mouseS = "mouse"
mousetypeS = "mousetype"
mouseclickS = "mouseclick"
mouseupS = "mouseup"
mousedownS = "mousedown"
leftS = "left"
middleS = "middle"
rightS = "right"
elementS = "element"

-- Keyboard
keyboardS = "keyboard"

-- SystemMessage
systemmessageS = "systemmessage"
backgroundS = "background"
setupS = "setup"
timeS = "time"

-- SystemMessageAnswers
sysmessageanswersS = "systemmessageanswers"
sysmessageanswerS = "systemmessageanswer"
messageS = "message"
answersS = "answers"
canvassetupS = "canvassetup"
dimensionS = "dimension"
timerS = "timer"
useS = "use"
closeS = "close"


-- Dimension
hS = "h"
wS = "w"