module Monomer.Graph.GraphMsg
    ( GraphMsg(..)
    ) where

import Monomer.Common.BasicTypes
import Monomer.Core.WidgetTypes

data GraphMsg
    = GraphSetTranslation Point
    | GraphSetScale Point
    | GraphReset
    | GraphStopAnimations
    | GraphFinished Int Millisecond
    deriving (GraphMsg -> GraphMsg -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GraphMsg -> GraphMsg -> Bool
$c/= :: GraphMsg -> GraphMsg -> Bool
== :: GraphMsg -> GraphMsg -> Bool
$c== :: GraphMsg -> GraphMsg -> Bool
Eq, Int -> GraphMsg -> ShowS
[GraphMsg] -> ShowS
GraphMsg -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GraphMsg] -> ShowS
$cshowList :: [GraphMsg] -> ShowS
show :: GraphMsg -> String
$cshow :: GraphMsg -> String
showsPrec :: Int -> GraphMsg -> ShowS
$cshowsPrec :: Int -> GraphMsg -> ShowS
Show)