@@ -4,57 +4,57 @@ Description: Basic set of widgets and building blocks for reflex-vty application
44-}
55{-# Language UndecidableInstances #-}
66
7−module Reflex.Vty.Widget
8− ( VtyWidgetCtx(..)
9− , VtyWidget(..)
10− , VtyWidgetOut(..)
11− , ImageWriter(..)
12− , runVtyWidget
13− , mainWidget
14− , mainWidgetWithHandle
15− , HasDisplaySize(..)
16− , HasFocus(..)
17− , HasVtyInput(..)
18− , HasVtyWidgetCtx(..)
19− , Region(..)
20− , regionSize
21− , regionBlankImage
22− , Drag(..)
23− , drag
24− , MouseDown(..)
25− , MouseUp(..)
26− , mouseDown
27− , mouseUp
28− , ScrollDirection(..)
29− , mouseScroll
30− , pane
31− , splitV
32− , splitH
33− , splitVDrag
34− , boxTitle
35− , box
36− , boxStatic
37− , RichTextConfig(..)
38− , richText
39− , text
40− , scrollableText
41− , display
42− , BoxStyle(..)
43− , hyphenBoxStyle
44− , singleBoxStyle
45− , roundedBoxStyle
46− , thickBoxStyle
47− , doubleBoxStyle
48− , fill
49− , hRule
50− , filterKeys
51− , KeyCombo
52− , key
53− , keys
54− , keyCombo
55− , keyCombos
56− , blank
57− ) where
7+module Reflex.Vty.Widget where
8+ -- ( VtyWidgetCtx(..)
9+ -- , VtyWidget(..)
10+ -- , VtyWidgetOut(..)
11+ -- , ImageWriter(..)
12+ -- , runVtyWidget
13+ -- , mainWidget
14+ -- , mainWidgetWithHandle
15+ -- , HasDisplayRegion(..)
16+ -- , HasFocus(..)
17+ -- , HasVtyInput(..)
18+ -- , HasVtyWidgetCtx(..)
19+ -- , Region(..)
20+ -- , regionSize
21+ -- , regionBlankImage
22+ -- , Drag(..)
23+ -- , drag
24+ -- , MouseDown(..)
25+ -- , MouseUp(..)
26+ -- , mouseDown
27+ -- , mouseUp
28+ -- , ScrollDirection(..)
29+ -- , mouseScroll
30+ -- , pane
31+ -- , splitV
32+ -- , splitH
33+ -- , splitVDrag
34+ -- , boxTitle
35+ -- , box
36+ -- , boxStatic
37+ -- , RichTextConfig(..)
38+ -- , richText
39+ -- , text
40+ -- , scrollableText
41+ -- , display
42+ -- , BoxStyle(..)
43+ -- , hyphenBoxStyle
44+ -- , singleBoxStyle
45+ -- , roundedBoxStyle
46+ -- , thickBoxStyle
47+ -- , doubleBoxStyle
48+ -- , fill
49+ -- , hRule
50+ -- , filterKeys
51+ -- , KeyCombo
52+ -- , key
53+ -- , keys
54+ -- , keyCombo
55+ -- , keyCombos
56+ -- , blank
57+ -- ) where
5858
5959import Control.Applicative (liftA2)
6060import Control.Monad.Fix (MonadFix)
@@ -184,7 +184,12 @@ mainWidgetWithHandle vty child =
184184
185185-- | Like 'mainWidgetWithHandle', but uses a default vty configuration
186186mainWidget
187− :: (forall t m. (MonadVtyApp t m, MonadNodeId m) => VtyWidget t m (Event t ()))
187+ :: (forall t m.
188+ ( MonadVtyApp t m
189+ , HasImageWriter t m
190+ , MonadNodeId m
191+ , HasDisplayRegion t m
192+ ) => VtyWidget t m (Event t ()))
188193 -> IO ()
189194mainWidget child = do
190195 vty <- getDefaultVty