keera-posture-0.1.3: src/Controller/Conditions/PreferencesDetectionCamera.hs

-- | Keeps the camera selection in sync between model and view
module Controller.Conditions.PreferencesDetectionCamera where

import Control.Applicative
import CombinedEnvironment
import Data.ReactiveValue
import Graphics.UI.Gtk.Reactive
import Hails.MVC.Model.ProtectedModel.Reactive

installHandlers :: CEnv -> IO()
installHandlers cenv = do
  -- View
  cameraEntry <- spinButtonValueIntEditReactive <$>
                   (preferencesNotebookSourceSpin $ mainWindowBuilder $
                          view cenv)
  -- Model
  let cameraField' = mkFieldAccessor cameraField (model cenv)

  -- Condition
  cameraEntry =:= cameraField'