3 (defcfun gtk-statusbar-get-context-id :uint
4 (status-bar (g-object statusbar))
5 (context-description :string))
7 (defcfun gtk-statusbar-push :uint
8 (status-bar (g-object statusbar))
12 (defcfun gtk-statusbar-pop :void
13 (status-bar (g-object statusbar))
16 (defcfun gtk-statusbar-remove :void
17 (status-bar (g-object statusbar))
21 (defun status-bar-push (status-bar context text)
22 (gtk-statusbar-push status-bar (gtk-statusbar-get-context-id status-bar context) text))
24 (defun status-bar-pop (status-bar context)
25 (gtk-statusbar-pop status-bar (gtk-statusbar-get-context-id status-bar context)))
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))
30 (export 'status-bar-push)
31 (export 'status-bar-pop)
32 (export 'status-bar-remove)