[gtk-cffi-cvs] CVS gtk-cffi/gtk

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/gtk
In directory tiger.common-lisp.net:/tmp/cvs-serv5577/gtk

Added Files:
	info-bar.lisp 
Log Message:
Added GtkInfoBar



--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/info-bar.lisp	2012/07/29 15:14:28	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/info-bar.lisp	2012/07/29 15:14:28	1.1
(in-package :gtk-cffi)

(defclass info-bar (box)
  ())

(defslot info-bar message-type message-type)

(deffuns info-bar
  (add-action-widget :void (child pobject) &key (response dialog-response))
  (add-button pobject (name cffi-keyword) (response dialog-response))
  (:set default-response dialog-response)
  (:set-last response-sensitive :boolean (response dialog-response))
  (response :void (resp dialog-response))
  (:get action-area pobject)
  (:get content-area pobject))

(init-slots info-bar)