geterogeneous = do new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 33
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 66
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 100
                          , HintString "synchronous" "volume"
                          ]
                        render
geterogeneous = do new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 33
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 66
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 100
                          , HintString "synchronous" "volume"
                          ]
                        render
geterogeneous = do new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 33
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 66
                          , HintString "synchronous" "volume"
                          ]
                        render
                   threadDelay timeout
                   new "Bar" "" "dialog-information" $
                     do mapM_ addHint
                          [ HintInt "value" 100
                          , HintString "synchronous" "volume"
                          ]
                        render