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

    (toStatusbar self)
    contextDescriptionPtr

type 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.

 -> 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)
