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

Modified Files:
	enums.lisp gtk-cffi.asd text-view.lisp 
Added Files:
	text-tag.lisp 
Log Message:
Added PangoTabArray cffi foreign type
Fixed cffi-struct in array issues
Added pack of slots to GtkTextView


--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/enums.lisp	2011/09/15 10:28:21	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/enums.lisp	2011/09/16 17:58:33	1.4
@@ -24,4 +24,7 @@
   :none :in :out :etched-in :etched-out)
 
 (defcenum corner-type
-  :top-left :bottom-left :top-right :bottom-right)
\ No newline at end of file
+  :top-left :bottom-left :top-right :bottom-right)
+
+(defcenum justification
+  :left :right :center :fill)
\ No newline at end of file
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/gtk-cffi.asd	2011/09/15 10:28:21	1.6
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/gtk-cffi.asd	2011/09/16 17:58:33	1.7
@@ -285,7 +285,7 @@
 (defsystem gtk-cffi-scrolled-window
   :description "Interface to GTK/Glib via CFFI"
   :author "Roman Klochkov <kalimehtar at mail.ru>"
-  :version "0.1"
+  :version "1.0"
   :license "GPL"
   :depends-on (gtk-cffi-bin)
   :components
@@ -307,7 +307,8 @@
   :license "GPL"
   :depends-on (gtk-cffi-text-buffer)
   :components
-  ((:file :text-view)))
+  ((:file text-tag)
+   (:file text-view :depends-on (text-tag))))
 
 (defsystem gtk-cffi-combo-box
   :description "Interface to GTK/Glib via CFFI"
@@ -458,7 +459,7 @@
   :author "Roman Klochkov <kalimehtar at mail.ru>"
   :version "0.1"
   :license "GPL"
-  :depends-on (gtk-cffi-tree-model)
+  :depends-on (gtk-cffi-tree-model gtk-cffi-widget)
   :components
   ((:file addons)))
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-view.lisp	2011/04/25 19:16:08	1.1.1.1
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-view.lisp	2011/09/16 17:58:33	1.2
@@ -13,15 +13,30 @@
       (gtk-text-view-new-with-buffer buffer)
     (gtk-text-view-new)))
 
-(defcfun "gtk_text_view_get_buffer" pobject (text-view pobject))
+(defcenum text-window-type
+  :private :widget :text
+  :left :right :top :bottom)
+
+(defgtkslots text-view
+    buffer pobject
+    wrap-mode wrap-mode
+    editable :boolean
+    cursor-visible :boolean
+    overwrite :boolean
+    pixels-above-lines :int
+    pixels-below-lines :int
+    pixels-inside-wrap :int
+    justification justification
+    left-margin :int
+    right-margin :int
+    indent :int
+    tabs pango-cffi:tab-array
+    accepts-tab :boolean)
+    
 
-(defmethod buffer ((text-view text-view))
-  (gtk-text-view-get-buffer text-view))
+(remove-setter text-view buffer) ; already in gconstructor
 
-(defcfun "gtk_text_view_set_buffer" :void (text-view pobject) (buffer pobject))
-
-(defmethod (setf buffer) ((text-view text-view) (text-buffer text-buffer))
-  (gtk-text-view-set-buffer text-view text-buffer))
+(init-slots text-view)
 
 
 

--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-tag.lisp	2011/09/16 17:58:34	NONE
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-tag.lisp	2011/09/16 17:58:34	1.1
(in-package :gtk-cffi)

(defclass text-tag (g-object)
  ())

(defcenum wrap-mode
  :none :char :word :word-char)