/[gtk-cffi]/gtk-cffi/gtk/statusbar.lisp
ViewVC logotype

Contents of /gtk-cffi/gtk/statusbar.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (show annotations)
Sun Aug 12 17:42:30 2012 UTC (20 months, 1 week ago) by rklochkov
Branch: MAIN
CVS Tags: HEAD
Changes since 1.7: +2 -2 lines
Synced with current version of CFFI
1 (in-package :gtk-cffi)
2
3 (defclass statusbar (box)
4 ())
5
6 (defcfun gtk-statusbar-new :pointer)
7
8 (defmethod gconstructor ((statusbar statusbar) &key &allow-other-keys)
9 (gtk-statusbar-new))
10
11 (deffuns statusbar
12 ((statusbar-push . push) :uint (context-id :uint) (text :string))
13 ((statusbar-pop . pop) :void (context-id :uint))
14 (:get context-id :uint (context :string))
15 (:get message-area pobject))
16
17 (defcfun gtk-statusbar-remove :void
18 (statusbar pobject) (context-id :uint) (message-id :uint))
19 (defcfun gtk-statusbar-remove-all :void
20 (statusbar pobject) (context-id :uint))
21
22 (defgeneric statusbar-remove (statusbar context-id &optional message-id)
23 (:method ((statusbar statusbar) context-id &optional message-id)
24 (if message-id
25 (gtk-statusbar-remove statusbar context-id message-id)
26 (gtk-statusbar-remove-all statusbar context-id))))

  ViewVC Help
Powered by ViewVC 1.1.5