diff options
Diffstat (limited to 'lib/Phi/Widgets/Clock.hs')
-rw-r--r-- | lib/Phi/Widgets/Clock.hs | 20 |
1 files changed, 16 insertions, 4 deletions
diff --git a/lib/Phi/Widgets/Clock.hs b/lib/Phi/Widgets/Clock.hs index 602a1fc..3e88b0e 100644 --- a/lib/Phi/Widgets/Clock.hs +++ b/lib/Phi/Widgets/Clock.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable, TypeFamilies #-} +{-# LANGUAGE TypeFamilies, DeriveDataTypeable #-} module Phi.Widgets.Clock ( ClockConfig(..) , defaultClockConfig @@ -36,21 +36,28 @@ defaultClockConfig = ClockConfig "%R" (0, 0, 0, 1) 0 50 data Clock = Clock ClockConfig deriving Show +data ClockState = ClockState ZonedTime deriving Show + +data ClockMessage = UpdateTime ZonedTime deriving (Show, Typeable) + instance WidgetClass Clock where - type WidgetData Clock = () + type WidgetData Clock = ClockState initWidget (Clock _) phi _ = do forkIO $ forever $ do time <- getZonedTime + sendMessage phi $ UpdateTime time sendMessage phi Repaint threadDelay $ ceiling $ 1000000*(max 1 $ 60 - (todSec . localTimeOfDay . zonedTimeToLocalTime $ time)) - return () + + time <- getZonedTime + return $ ClockState time minSize (Clock config ) = clockSize config - render (Clock config) _ w h = do + render (Clock config) (ClockState time) w h = do time <- liftIO getZonedTime let (r, g, b, a) = fontColor config str = formatTime defaultTimeLocale (clockFormat config) time @@ -72,6 +79,11 @@ instance WidgetClass Clock where moveTo (((fromIntegral w)/scalef - textWidth')/2) (((fromIntegral h)/scalef - textHeight')/2) showLayout layout + + handleMessage _ priv m = case (fromMessage m) of + Just (UpdateTime time) -> ClockState time + _ -> priv + clock :: ClockConfig -> Widget clock config = do |