gtk/gtk.status-bar.lisp

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