@@ -445,9 +445,9 @@ runImageWriter
445445 -> m (a, Behavior t [Image])
446446runImageWriter = runBehaviorWriterT . unImageWriter
447447
448−-- * theming
448+-- * Theming
449449
450−-- | A class for things that can dynamically gain and lose focus
450+-- | A class for things that can be visually styled
451451class (Reflex t, Monad m) => HasTheme t m | m -> t where
452452 theme :: m (Behavior t V.Attr)
453453 default theme :: (f m' ~ m, Monad m', MonadTrans f, HasTheme t m') => m (Behavior t V.Attr)
@@ -466,7 +466,7 @@ instance HasTheme t m => HasTheme t (ImageWriter t m)
466466instance HasTheme t m => HasTheme t (DisplayRegion t m)
467467instance HasTheme t m => HasTheme t (FocusReader t m)
468468
469−-- | A widget that has access to information about whether it is focused
469+-- | A widget that has access to theme information
470470newtype ThemeReader t m a = ThemeReader
471471 { unThemeReader :: ReaderT (Behavior t V.Attr) m a }
472472 deriving
@@ -505,7 +505,7 @@ instance MFunctor (ThemeReader t) where
505505
506506instance MonadNodeId m => MonadNodeId (ThemeReader t m)
507507
508−-- | Run a 'FocusReader' action with the given focus value
508+-- | Run a 'ThemeReader' action with the given focus value
509509runThemeReader
510510 :: (Reflex t, Monad m)
511511 => Behavior t V.Attr