mirror of
https://github.com/fjvallarino/monomer.git
synced 2024-09-20 08:17:37 +03:00
140 lines
2.8 KiB
Haskell
140 lines
2.8 KiB
Haskell
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Types where
|
|
|
|
import Control.Lens (makeLenses)
|
|
import Data.Default
|
|
import Data.Text (Text)
|
|
import Data.Time
|
|
import GHC.Generics
|
|
|
|
import Monomer
|
|
|
|
data Fruit
|
|
= Apple
|
|
| Orange
|
|
| Pear
|
|
deriving (Eq, Show)
|
|
|
|
data App = App {
|
|
_clickCount :: !Int,
|
|
_msgCount :: !Int,
|
|
_rational1 :: Rational,
|
|
_int1 :: Int,
|
|
_mint1 :: Maybe Int,
|
|
_int1Valid :: Bool,
|
|
_mint1Valid :: Bool,
|
|
_integer1 :: Integer,
|
|
_validInteger1 :: Bool,
|
|
_float1 :: Float,
|
|
_float1Valid :: Bool,
|
|
_mfloat1 :: Maybe Float,
|
|
_mfloat1Valid :: Bool,
|
|
_double1 :: Double,
|
|
_textField1 :: Text,
|
|
_textField2 :: Text,
|
|
_dropdown1 :: Text,
|
|
_fruit :: Fruit,
|
|
_condition1 :: Bool,
|
|
_condition2 :: Bool,
|
|
_condition3 :: Bool,
|
|
_showAlert :: Bool,
|
|
_showConfirm :: Bool,
|
|
_splitPos :: Double,
|
|
_dragList1 :: [Int],
|
|
_dragList2 :: [Int],
|
|
_color :: Color,
|
|
_testDay :: Day,
|
|
_testDayValid :: Bool,
|
|
_mtestDay :: Maybe Day,
|
|
_mtestDayValid :: Bool,
|
|
_testTimeOfDay :: TimeOfDay,
|
|
_testTimeOfDayValid :: Bool,
|
|
_mtestTimeOfDay :: Maybe TimeOfDay,
|
|
_mtestTimeOfDayValid :: Bool
|
|
} deriving (Eq, Show)
|
|
|
|
instance Default App where
|
|
def = App {
|
|
_clickCount = 0,
|
|
_msgCount = 0,
|
|
_rational1 = 0,
|
|
_int1 = 0,
|
|
_int1Valid = True,
|
|
_mint1 = Nothing,
|
|
_mint1Valid = True,
|
|
_integer1 = 0,
|
|
_validInteger1 = True,
|
|
_float1 = 0,
|
|
_float1Valid = True,
|
|
_mfloat1 = Nothing,
|
|
_mfloat1Valid = True,
|
|
_double1 = 0,
|
|
_textField1 = "This is a long piece of text used to test mouse selection",
|
|
_textField2 = "",
|
|
_dropdown1 = "",
|
|
_fruit = Orange,
|
|
_condition1 = False,
|
|
_condition2 = False,
|
|
_condition3 = False,
|
|
_showAlert = False,
|
|
_showConfirm = False,
|
|
_splitPos = 0.5,
|
|
_dragList1 = [1..100],
|
|
_dragList2 = [],
|
|
_color = def,
|
|
_testDay = fromGregorian 2015 06 07,
|
|
_testDayValid = True,
|
|
_mtestDay = Nothing,
|
|
_mtestDayValid = True,
|
|
_testTimeOfDay = TimeOfDay 15 30 16,
|
|
_testTimeOfDayValid = True,
|
|
_mtestTimeOfDay = Nothing,
|
|
_mtestTimeOfDayValid = True
|
|
}
|
|
|
|
makeLenses ''App
|
|
|
|
data AppEvent
|
|
= IgnoreEvt
|
|
| RunShortTask
|
|
| RunLongTask
|
|
| PrintTextFields
|
|
| AppButton
|
|
| IncreaseMessage
|
|
| UpdateText Text
|
|
| IncButton
|
|
| PrintMessage Text
|
|
| CheckboxSt Bool
|
|
| RadioSt Fruit
|
|
| ImageMsg ImageLoadError
|
|
| DropdownVal Text
|
|
| DropdownIdx Int Text
|
|
| DropTo1 Int
|
|
| DropTo2 Int
|
|
| ShowAlert
|
|
| CloseAlert
|
|
| ShowConfirm
|
|
| AcceptConfirm
|
|
| CancelConfirm
|
|
| ChangeTitle Text
|
|
| SliderPos Double
|
|
| InitApp
|
|
| DisposeApp
|
|
| ExitApp
|
|
| ResizeApp Rect
|
|
| CancelExitApp
|
|
| MaxWindow
|
|
| MinWindow
|
|
| FullWindow
|
|
| RestoreWindow
|
|
| RestoreWindowSchedule
|
|
| ToFrontWindow
|
|
| ToFrontWindowSchedule
|
|
| StartAnimation
|
|
| StopAnimation
|
|
| UpdateColor Color
|
|
| FocusColor Path
|
|
| BlurColor Path
|
|
deriving (Eq, Show)
|