3 (defcfun (statusbar-get-context-id "gtk_statusbar_get_context_id") :uint
4 (statusbar (g-object statusbar))
5 (context-description :string))
7 (defcfun gtk-statusbar-push :uint
8 (statusbar (g-object statusbar))
12 (defcfun gtk-statusbar-pop :void
13 (statusbar (g-object statusbar))
16 (defcfun gtk-statusbar-remove :void
17 (statusbar (g-object statusbar))
21 (defun statusbar-context-id (statusbar context)
24 (string (statusbar-get-context-id statusbar context))))
26 (defun statusbar-push (statusbar context text)
27 (gtk-statusbar-push statusbar (statusbar-context-id statusbar context) text))
29 (defun statusbar-pop (statusbar context)
30 (gtk-statusbar-pop statusbar (statusbar-context-id statusbar context)))
32 (defun statusbar-remove (statusbar context message-id)
33 (gtk-statusbar-remove statusbar (statusbar-context-id statusbar context) message-id))
35 (export 'statusbar-push)
36 (export 'statusbar-pop)
37 (export 'statusbar-remove)
38 (export 'statusbar-context-id)