[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-serv29565/gtk

Modified Files:
	label.lisp loadlib.lisp widget.lisp 
Log Message:
Added pango-attr-list



--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/label.lisp	2011/04/25 19:16:08	1.1.1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/label.lisp	2012/01/27 18:41:31	1.2
@@ -42,27 +42,9 @@
    (if markup #'gtk-label-get-label
      #'gtk-label-get-text) label))
 
-(defcfun "gtk_label_set_mnemonic_widget" :void
-  (label pobject) (widget pobject))
-
-(defmethod (setf mnemonic-widget) ((widget widget) (label label))
-  (gtk-label-set-mnemonic-widget label widget))
-
-(defcfun "gtk_label_get_mnemonic_widget" pobject (label pobject))
-
-(defmethod mnemonic-widget ((label label))
-  (gtk-label-get-mnemonic-widget label))
-
-(defcfun "gtk_label_set_justify" :void (label pobject) (jtype justification))
-
-(defmethod (setf justify) (justify (label label))
-  (gtk-label-set-justify label justify))
-
-(defcfun "gtk_label_get_justify" justification (label pobject))
-
-(defmethod justify ((label label))
-  (gtk-label-get-justify label))
-
+(defslots label
+  mnemonic-widget pobject
+  justify justification)
 
 
 ;; taken from cells-gtk
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/loadlib.lisp	2011/12/31 17:20:56	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/loadlib.lisp	2012/01/27 18:41:31	1.4
@@ -17,12 +17,12 @@
 ;;    (t value)))
 
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (define-foreign-library :gtk
-    (:unix "libgtk-3.so.0") ;libgtk-x11-2.0.so")
-    (:windows "libgtk-win32-3-0.dll"))
+;(eval-when (:compile-toplevel :load-toplevel :execute)
+(define-foreign-library :gtk
+  (:unix "libgtk-3.so.0") ;libgtk-x11-2.0.so")
+  (:windows "libgtk-win32-3-0.dll"))
   
-  (load-foreign-library :gtk))
+(use-foreign-library :gtk)
 
 
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2012/01/25 19:15:08	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/widget.lisp	2012/01/27 18:41:31	1.8
@@ -517,3 +517,6 @@
           nil gtk-widget-style-get-property
           style-property-type
           widget-class find-style-property %style-properties)
+
+(defgeneric text (widget &key))
+