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

Modified Files:
	package.lisp text-tag.lisp text-view.lisp 
Log Message:
Fixed bug: now when one needs to free returned value after processing
(for example, color, font, structure), she or he may add " :free t" flag to
the foreign typename

Finished GtkTextView and GtkTextTag



--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/09/15 10:28:21	1.7
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/package.lisp	2011/09/18 18:10:48	1.8
@@ -343,7 +343,66 @@
    #:text
    
    #:text-view
+   ;; slots
    #:buffer
+   #:wrap-mode
+   #:editable
+   #:cursor-visible
+   #:overwrite
+   #:pixels-above-lines
+   #:pixels-below-lines
+   #:pixels-inside-wrap
+   #:justification
+   #:left-margin
+   #:right-margin
+   #:indent
+   #:tabs
+   #:accepts-tab
+   ;; methods
+   #:scroll-to-mark
+   #:scroll-to-iter
+   #:scroll-mark-onscreen
+   #:move-mark-onscreen
+   #:place-cursor-onscreen
+   #:text-view-window
+   #:window-type
+   #:border-window-size
+   #:forward-display-line
+   #:backward-display-line
+   #:forward-display-line-end
+   #:backward-display-line-start
+   #:starts-display-line
+   #:move-visually
+   #:add-child-at-anchor
+   #:add-child-in-window
+   #:move-child
+   #:default-attributes
+   #:im-context-filter-keypress
+   #:reset-im-context
+
+   #:text-child-anchor
+   #:widgets
+
+   #:text-tag
+   #:priority
+   #:event
+   
+   #:appearance
+   #:direction
+   #:text-attributes-font
+   #:font-scale
+   #:language
+   #:invisible
+   #:bg-full-height
+   #:editable
+   #:bg-color
+   #:fg-color
+   #:rise
+   #:underline
+   #:strikethrough
+   #:draw-bg
+   #:inside-selection
+   #:is-text
 
    #:combo-box
    #:append-text
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-tag.lisp	2011/09/17 20:04:56	1.2
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-tag.lisp	2011/09/18 18:10:48	1.3
@@ -3,6 +3,10 @@
 (defclass text-tag (g-object)
   ())
 
+(defgtkslot text-tag priority :int)
+(defgtkfun event :boolean text-tag 
+           (event-object pobject) (event pobject) (text-iter pobject))
+
 (defcenum wrap-mode
   :none :char :word :word-char)
 
@@ -40,7 +44,7 @@
   (pixels-inside-wrap :int)
   (tabs pango-cffi:tab-array)
   (wrap-mode wrap-mode)
-  (language :pointer)
+  (language pango-cffi:language)
   (bitfield :char))
 
 (defbitaccessors text-attributes bitfield
@@ -48,4 +52,16 @@
   (bg-full-height :boolean 1)
   (editable :boolean 1))
 
+(defgtkfuns text-attributes
+  (ref (object text-attributes))
+  (unref :void))
+
+(defcfun gtk-text-attributes-new :pointer)
+
+(defmethod new-struct ((class (eql 'text-attributes)))
+  (gtk-text-attributes-new))
+
+(defmethod free-struct (class (value text-attributes))
+  (unref value))
+
 
--- /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-view.lisp	2011/09/17 20:04:56	1.3
+++ /project/gtk-cffi/cvsroot/gtk-cffi/gtk/text-view.lisp	2011/09/18 18:10:48	1.4
@@ -60,8 +60,9 @@
                        (child pobject) (win text-window-type)
                        (xpos :int) (ypos :int))
   (move-child :void (child pobject) (xpos :int) (ypos :int))
-  (default-attributes (struct text-attributes :free t)))
-  
+  (:get default-attributes (struct text-attributes))
+  (im-context-filter-keypress :boolean (event pobject))
+  (reset-im-context :void))
 
 (defclass text-child-anchor (g-object)
   ())