gtk/gtk.status-bar.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-statusbar-get-context-id :uint
   4   (status-bar (g-object statusbar))
   5   (context-description :string))
   6
   7 (defcfun gtk-statusbar-push :uint
   8   (status-bar (g-object statusbar))
   9   (context-id :uint)
  10   (text :string))
  11
  12 (defcfun gtk-statusbar-pop :void
  13   (status-bar (g-object statusbar))
  14   (context-id :uint))
  15
  16 (defcfun gtk-statusbar-remove :void
  17   (status-bar (g-object statusbar))
  18   (context-id :uint)
  19   (message-id :uint))
  20
  21 (defun status-bar-push (status-bar context text)
  22   (gtk-statusbar-push status-bar (gtk-statusbar-get-context-id status-bar context) text))
  23
  24 (defun status-bar-pop (status-bar context)
  25   (gtk-statusbar-pop status-bar (gtk-statusbar-get-context-id status-bar context)))
  26
  27 (defun status-bar-remove (status-bar context message-id)
  28   (gtk-statusbar-remove status-bar (gtk-statusbar-get-context-id status-bar context) message-id))
  29
  30 (export 'status-bar-push)
  31 (export 'status-bar-pop)
  32 (export 'status-bar-remove)