+ ("GtkThemeEngine" :ignore t))
+
+
+(defclass text-iter (boxed)
+ ((buffer
+ :allocation :virtual
+ :getter "gtk_text_iter_get_buffer"
+ :reader text-iter-buffer
+ :type pointer) ;text-buffer)
+ (offset
+ :allocation :virtual
+ :getter "gtk_text_iter_get_offset"
+ :setter "gtk_text_iter_set_offset"
+ :accessor text-iter-offset
+ :type int)
+ (line
+ :allocation :virtual
+ :getter "gtk_text_iter_get_line"
+ :setter "gtk_text_iter_set_line"
+ :accessor text-iter-line
+ :type int)
+ (line-offset
+ :allocation :virtual
+ :getter "gtk_text_iter_get_line_offset"
+ :setter "gtk_text_iter_set_line_offset"
+ :accessor text-iter-line-offset
+ :type int)
+ (line-index
+ :allocation :virtual
+ :getter "gtk_text_iter_get_line_index"
+ :setter "gtk_text_iter_set_line_index"
+ :accessor text-iter-line-index
+ :type int)
+ (visible-line-index
+ :allocation :virtual
+ :getter "gtk_text_iter_get_visible_line_index"
+ :setter "gtk_text_iter_set_visible_line_index"
+ :accessor text-iter-visible-line-index
+ :type int)
+ (visible-line-offset
+ :allocation :virtual
+ :getter "gtk_text_iter_get_visible_line_offset"
+ :setter "gtk_text_iter_set_visible_line_offset"
+ :accessor text-iter-visible-line-offset
+ :type int)
+ ;; Workaround to get correct size
+ (dummy14
+ :allocation :alien :offset #.(* 13 (size-of 'pointer))
+ :type pointer))
+ (:metaclass boxed-class
+ ;; I am pretty sure this was working in older versons on CMUCL
+; :size #.(* 14 (size-of 'pointer))
+ ))