(define-boxed-opaque-accessor text-iter text-iter-language :reader "gtk_text_iter_get_language" :type :pointer)
(define-boxed-opaque-accessor text-iter text-iter-is-end :reader "gtk_text_iter_is_end" :type :boolean)
(define-boxed-opaque-accessor text-iter text-iter-is-start :reader "gtk_text_iter_is_start" :type :boolean)
-(define-boxed-opaque-accessor text-iter text-iter-can-insert :reader "gtk_text_iter_can_insert" :type :boolean)
(define-boxed-opaque-accessor text-iter text-iter-starts-word :reader "gtk_text_iter_starts_word" :type :boolean)
(define-boxed-opaque-accessor text-iter text-iter-ends-word :reader "gtk_text_iter_ends_word" :type :boolean)
(define-boxed-opaque-accessor text-iter text-iter-inside-word :reader "gtk_text_iter_inside_word" :type :boolean)
(with-foreign-object (iter '%text-iter)
(gtk-text-iter-copy iter)))
-(defcfun (text-iter-slice "gtk_text_iter_get_slice") (:string :free-from-foreign t)
+(defcfun (text-iter-slice "gtk_text_iter_get_slice") (g-string :free-from-foreign t)
(start (g-boxed-foreign text-iter))
(end (g-boxed-foreign text-iter)))
(export 'text-iter-slice)
-(defcfun (text-iter-text "gtk_text_iter_get_text") (:string :free-from-foreign t)
+(defcfun (text-iter-text "gtk_text_iter_get_text") (g-string :free-from-foreign t)
(start (g-boxed-foreign text-iter))
(end (g-boxed-foreign text-iter)))
(export 'text-iter-text)
-(defcfun (text-iter-visible-slice "gtk_text_iter_get_visible_slice") (:string :free-from-foreign t)
+(defcfun (text-iter-visible-slice "gtk_text_iter_get_visible_slice") (g-string :free-from-foreign t)
(start (g-boxed-foreign text-iter))
(end (g-boxed-foreign text-iter)))
(export 'text-iter-visible-slice)
-(defcfun (text-iter-visible-text "gtk_text_iter_get_visible_text") (:string :free-from-foreign t)
+(defcfun (text-iter-visible-text "gtk_text_iter_get_visible_text") (g-string :free-from-foreign t)
(start (g-boxed-foreign text-iter))
(end (g-boxed-foreign text-iter)))
(export 'text-iter-editable)
+(defcfun (text-iter-can-insert "gtk_text_iter_can_insert") :boolean
+ (iter (g-boxed-foreign text-iter))
+ (default-editable :boolean))
+
+(export 'text-iter-can-insert)
+
(defcfun gtk-text-iter-get-attributes :boolean
(iter (g-boxed-foreign text-iter))
(values (g-object text-attributes)))
(gtk-text-iter-forward-search start-position string flags i1 i2 limit)
(gtk-text-iter-backward-search start-position string flags i1 i2 limit))
(values t i1 i2)
- (progn (release i1)
- (release i2)
- (values nil nil nil)))))
+ (values nil nil nil))))
(export 'text-iter-search)
(export 'text-iter-order)
-;; text mark
-
-(defcfun (text-mark-visible "gtk_text_mark_get_visible") :boolean
- (mark (g-object text-mark)))
-
-(defcfun gtk-text-mark-set-visible :void
- (mark (g-object text-mark))
- (visible :boolean))
-
-(defun (setf text-mark-visible) (new-value mark)
- (gtk-text-mark-set-visible mark new-value))
-
-(export 'text-mark-visible)
-
-(defcfun (text-mark-deleted "gtk_text_mark_get_deleted") :boolean
- (mark (g-object text-mark)))
-
-(export 'text-mark-deleted)
-
-(defcfun (text-mark-buffer "gtk_text_mark_get_buffer") (g-object text-buffer)
- (mark (g-object text-mark)))
-
-(export 'text-mark-buffer)
-
;; text buffer
(defcfun (text-buffer-line-count "gtk_text_buffer_get_line_count") :int
(export 'text-buffer-insertion-mark)
(defcfun (text-buffer-selection-bound "gtk_text_buffer_get_selection_bound") (g-object text-mark)
- (buffer (g-object text-buffer))
- (name (:string :free-to-foreign t)))
+ (buffer (g-object text-buffer)))
(export 'text-buffer-selection-bound)
(defcfun (text-buffer-cut-clipboard "gtk_text_buffer_cut_clipboard") :void
(buffer (g-object text-buffer))
- (clipboard (g-object clipboard)))
+ (clipboard (g-object clipboard))
+ (default-editable :boolean))
(export 'text-buffer-cut-clipboard)
(i2 (make-instance 'text-iter)))
(if (gtk-text-buffer-get-selection-bounds buffer i1 i2)
(values i1 i2)
- (progn (release i1)
- (release i2)
- (values nil nil)))))
+ (values nil nil))))
(export 'text-buffer-get-selection-bounds)
(y-align :double))
(defun text-view-scroll-to-mark (text-view mark &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
- (gtk-text-view-scroll-to-mark text-view mark within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
+ (gtk-text-view-scroll-to-mark text-view mark (coerce within-margin 'double-float) (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
(export 'text-view-scroll-to-mark)
(defcfun gtk-text-view-scroll-to-iter :void
(text-view (g-object text-view))
- (iter (g-object text-iter))
+ (iter (g-boxed-foreign text-iter))
(within-margin :double)
(use-align :boolean)
(x-align :double)
(y-align :double))
(defun text-view-scroll-to-iter (text-view iter &key (within-margin 0.4) (x-align 0.0 x-align-supplied) (y-align 0.0 y-align-supplied))
- (gtk-text-view-scroll-to-iter text-view iter within-margin (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
+ (gtk-text-view-scroll-to-iter text-view iter (coerce within-margin 'double-float) (or x-align-supplied y-align-supplied) (coerce x-align 'double-float) (coerce y-align 'double-float)))
(export 'text-view-scroll-to-iter)
+(defcfun (text-view-scroll-mark-onscreen "gtk_text_view_scroll_mark_onscreen") :void
+ (text-view (g-object text-view))
+ (mark (g-object text-mark)))
+
+(export 'text-view-scroll-mark-onscreen)
+
(defcfun (text-view-move-mark-onscreen "gtk_text_view_move_mark_onscreen") :boolean
(text-view (g-object text-view))
(mark (g-object text-mark)))
(export 'text-view-iter-location)
+(defcfun gtk-text-view-get-line-at-y :void
+ (text-view (g-object text-view))
+ (target-iter (g-boxed-foreign text-iter))
+ (y :int)
+ (line-top (:pointer :int)))
+
+(defun text-view-get-line-at-y (text-view y)
+ (let ((iter (make-instance 'text-iter)))
+ (with-foreign-object (line-top :int)
+ (gtk-text-view-get-line-at-y text-view iter y line-top)
+ (values iter (mem-ref line-top :int)))))
+
+(export 'text-view-get-line-at-y)
+
+(defcfun gtk-text-view-get-line-yrange :void
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (y (:pointer :int))
+ (height (:pointer :int)))
+
+(defun text-view-get-line-yrange (text-view iter)
+ (with-foreign-objects ((y :int) (height :int))
+ (gtk-text-view-get-line-yrange text-view iter y height)
+ (values (mem-ref y :int) (mem-ref height :int))))
-;; void gtk_text_view_get_line_at_y (GtkTextView *text_view,
-;; GtkTextIter *target_iter,
-;; gint y,
-;; gint *line_top);
-;; void gtk_text_view_get_line_yrange (GtkTextView *text_view,
-;; const GtkTextIter *iter,
-;; gint *y,
-;; gint *height);
+(export 'text-view-get-line-yrange)
(defcfun gtk-text-view-get-iter-at-location :void
(text-view (g-object text-view))
(export 'text-view-get-iter-at-location)
-;; void gtk_text_view_get_iter_at_position (GtkTextView *text_view,
-;; GtkTextIter *iter,
-;; gint *trailing,
-;; gint x,
-;; gint y);
-;; void gtk_text_view_buffer_to_window_coords
-;; (GtkTextView *text_view,
-;; GtkTextWindowType win,
-;; gint buffer_x,
-;; gint buffer_y,
-;; gint *window_x,
-;; gint *window_y);
+(defcfun gtk-text-view-get-iter-at-position :void
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (trailing (:pointer :int))
+ (x :int)
+ (y :int))
+
+(defun text-view-get-iter-at-position (text-view x y)
+ (with-foreign-object (trailing :int)
+ (let ((iter (make-instance 'text-iter)))
+ (gtk-text-view-get-iter-at-position text-view iter trailing x y)
+ (values iter (mem-ref trailing :int)))))
+
+(export 'text-view-get-iter-at-position)
+
+(defcfun gtk-text-view-buffer-to-window-coords :void
+ (text-view (g-object text-view))
+ (win text-window-type)
+ (buffer-x :int)
+ (buffer-y :int)
+ (window-x (:pointer :int))
+ (window-y (:pointer :int)))
+
+(defun text-view-buffer-to-window-coords (text-view window-type buffer-x buffer-y)
+ (with-foreign-objects ((window-x :int) (window-y :int))
+ (gtk-text-view-buffer-to-window-coords text-view window-type buffer-x buffer-y window-x window-y)
+ (values (mem-ref window-x :int) (mem-ref window-y :int))))
+
+(export 'text-view-buffer-to-window-coords)
(defcfun gtk-text-view-window-to-buffer-coords :void
(text-view (g-object text-view))
(export 'text-view-get-window)
-;; GtkTextWindowType gtk_text_view_get_window_type (GtkTextView *text_view,
-;; GdkWindow *window);
-;; void gtk_text_view_set_border_window_size
-;; (GtkTextView *text_view,
-;; GtkTextWindowType type,
-;; gint size);
-;; gint gtk_text_view_get_border_window_size
-;; (GtkTextView *text_view,
-;; GtkTextWindowType type);
-;; gboolean gtk_text_view_forward_display_line (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_backward_display_line (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_forward_display_line_end
-;; (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_backward_display_line_start
-;; (GtkTextView *text_view,
-;; GtkTextIter *iter);
-;; gboolean gtk_text_view_starts_display_line (GtkTextView *text_view,
-;; const GtkTextIter *iter);
-;; gboolean gtk_text_view_move_visually (GtkTextView *text_view,
-;; GtkTextIter *iter,
-;; gint count);
-;; void gtk_text_view_add_child_at_anchor (GtkTextView *text_view,
-;; GtkWidget *child,
-;; GtkTextChildAnchor *anchor);
+(defcfun (text-view-get-window-type "gtk_text_view_get_window_type") text-window-type
+ (text-view (g-object text-view))
+ (window (g-object gdk-window)))
+
+(export 'text-view-get-window-type)
+
+(defcfun gtk-text-view-set-border-window-size :void
+ (text-view (g-object text-view))
+ (window-type text-window-type)
+ (size :int))
+
+(defcfun (text-view-border-window-size "gtk_text_view_get_border_window_size") :int
+ (text-view (g-object text-view))
+ (window-type text-window-type))
+
+(defun (setf text-view-border-window-size) (new-value text-view window-type)
+ (gtk-text-view-set-border-window-size text-view window-type new-value)
+ new-value)
+
+(export 'text-view-border-window-size)
+
+(defcfun (text-view-forward-display-line "gtk_text_view_forward_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-forward-display-line)
+
+(defcfun (text-view-backward-display-line "gtk_text_view_backward_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-backward-display-line)
+
+(defcfun (text-view-forward-display-line-end "gtk_text_view_forward_display_line_end") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-forward-display-line-end)
+
+(defcfun (text-view-backward-display-line-start "gtk_text_view_backward_display_line_start") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-backward-display-line-start)
+
+(defcfun (text-view-starts-display-line "gtk_text_view_starts_display_line") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter)))
+
+(export 'text-view-starts-display-line)
+
+(defcfun (text-view-move-visually "gtk_text_view_move_visually") :boolean
+ (text-view (g-object text-view))
+ (iter (g-boxed-foreign text-iter))
+ (count :int))
+
+(export 'text-view-move-visually)
(defcfun (text-view-add-child-at-anchor "gtk_text_view_add_child_at_anchor") :void
(text-view g-object)
(export 'text-view-add-child-at-anchor)
-;; GtkTextChildAnchor;
-;; GtkTextChildAnchor* gtk_text_child_anchor_new (void);
-;; GList* gtk_text_child_anchor_get_widgets (GtkTextChildAnchor *anchor);
-;; gboolean gtk_text_child_anchor_get_deleted (GtkTextChildAnchor *anchor);
-;; void gtk_text_view_add_child_in_window (GtkTextView *text_view,
-;; GtkWidget *child,
-;; GtkTextWindowType which_window,
-;; gint xpos,
-;; gint ypos);
-;; void gtk_text_view_move_child (GtkTextView *text_view,
-;; GtkWidget *child,
-;; gint xpos,
-;; gint ypos);
+(defcfun (text-child-anchor-widgets "gtk_text_child_anchor_get_widgets") (glist (g-object widget) :free-from-foreign t)
+ (anchor (g-object text-child-anchor)))
+
+(export 'text-child-anchor-widgets)
+
+(defcfun (text-view-add-child-in-window "gtk_text_view_add_child_in_window") :void
+ (text-view (g-object text-view))
+ (child (g-object widget))
+ (which-window text-window-type)
+ (x-pos :int)
+ (y-pos :int))
+
+(export 'text-view-add-child-in-window)
+
+(defcfun (text-view-move-child "gtk_text_view_move_child") :void
+ (text-view (g-object text-view))
+ (child (g-object widget))
+ (x-pos :int)
+ (y-pos :int))
+
+(export 'text-view-move-child)
projects / cl-gtk2.git / blobdiff