  -> IO MessageId -- ^ returns the message's new message id for use with
                  -- 'statusbarRemove'.
 statusbarPush self contextId text =
+  liftM MessageId $
   withUTFString text $ \textPtr ->
   {# call statusbar_push #}
     (toStatusbar self)

 -> MessageId -- ^ @messageId@ - a message identifier, as returned by
              -- 'statusbarPush'.
 -> IO ()
statusbarRemove self contextId messageId =
  {# call statusbar_remove #}
    (toStatusbar self)
    contextId

    (toStatusbar self)
    contextDescriptionPtr

newtype MessageId = MessageId {#type guint#}

-- | Pushes a new message onto the Statusbar's stack. It will
-- be displayed as long as it is on top of the stack.
