titan-1.0.2: src/Model/ReactiveModel/ModelEvents.hs

module Model.ReactiveModel.ModelEvents where

import qualified Hails.MVC.Model.ReactiveModel as GRM
import Hails.MVC.Model.ReactiveModel.Events

-- Implement this interface if you want automatic update notification
-- import Hails.MVC.Model.ProtectedModel.UpdatableModel

data ModelEvent = UncapturedEvent
                | Initialised
                | SelectedFrameChanged
                | SelectedFrameInputChanged
                | CurSimFrameChanged
                | FramesChanged
 deriving (Eq,Ord)

instance GRM.Event ModelEvent where
  undoStackChangedEvent = UncapturedEvent

-- instance UpdateNotifiableEvent ModelEvent where
--   updateNotificationEvent = MaxVersionAvailable

instance InitialisedEvent ModelEvent where
  initialisedEvent = Initialised