Adjustments to make Qt example work

keera-hails-reactive-qt/examples/Example.hs

@@ -52,14 +52,14 @@ add_grid = do
 
   -- Add Text boxes
   l1  <- reactiveQLineEdit
-  addWidget gridLayout (l1, 0 :: Int, 1::Int)
+  addWidget gridLayout =<< qWidget l1 -- , 0 :: Int, 1::Int)
 
   l2  <- reactiveQLineEdit
-  addWidget gridLayout (l2, 1 :: Int, 1::Int)
+  addWidget gridLayout =<< qWidget l2 --, 1 :: Int, 1::Int)
 
   -- Add Button
   tb <- reactiveQPushButton "Copy Up"
-  addWidget gridLayout (tb, 1 :: Int, 2::Int)
+  addWidget gridLayout =<< qWidget tb --, 1 :: Int, 2::Int)
 
   -- Make widgets reactive
   e1  <- lineEditText l1
@@ -73,10 +73,3 @@ add_grid = do
   setColumnStretch gridLayout (2, 20)
   setLayout gridGroupBox gridLayout
   return $ objectCast gridGroupBox
-
--- | Temporary: will be moved to Keera Hails' Reactive Values library.
-governingR :: (ReactiveValueRead a b m,  ReactiveValueRead c d m)
-           => a -> c -> ReactiveFieldRead m d
-governingR r c = ReactiveFieldRead getter notifier
-  where getter   = reactiveValueRead c
-        notifier = reactiveValueOnCanRead r

keera-hails-reactive-qt/hails-reactive-qt.cabal

@@ -56,4 +56,4 @@ Library
   -- Packages needed in order to build this package.
   Build-depends: base >= 4
                , qt
-               , hails-reactivevalues
+               , keera-hails-reactivevalues

keera-hails-reactive-qt/src/Graphics/UI/Qt/Reactive.hs

@@ -1,4 +1,6 @@
-{-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE ScopedTypeVariables  #-}
+{-# LANGUAGE TypeSynonymInstances #-}
+{-# LANGUAGE FlexibleInstances #-}
 module Graphics.UI.Qt.Reactive
    ( buttonClick
    , lineEditText
@@ -19,14 +21,16 @@ import Qtc.Classes.Qccs
 import Qtc.Core.Base
 import Qtc.Gui.QLineEdit
 import Qtc.Gui.QPushButton
+import Qtc.Gui.QWidget
 
 -- * Line edits
 
-type ReactQLineEdit = QLineEditSc CReactQLineEdit
-data CReactQLineEdit = CReactQLineEdit 
-
-reactiveQLineEdit :: IO ReactQLineEdit 
-reactiveQLineEdit = qSubClass $ qLineEdit () 
+type ReactQLineEdit = QLineEditSc ()
+
+instance QqWidget ReactQLineEdit
+
+reactiveQLineEdit :: IO ReactQLineEdit
+reactiveQLineEdit = qSubClass $ qLineEdit ()
 
 -- | Make a line edit's text reactive.
 lineEditText :: ReactQLineEdit -> IO (ReactiveFieldReadWrite IO String)