     (toStatusbar self)
     contextDescriptionPtr
 
-type MessageId = {#type guint#}
+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.

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

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