chiark - git - mdw - clg/blob - gtk/gtktext.lisp

   1 ;; Common Lisp bindings for GTK+ v2.0
   2 ;; Copyright (C) 1999-2004 Espen S. Johnsen <espen@users.sourceforge.net>
   3 ;;
   4 ;; This library is free software; you can redistribute it and/or
   5 ;; modify it under the terms of the GNU Lesser General Public
   6 ;; License as published by the Free Software Foundation; either
   7 ;; version 2 of the License, or (at your option) any later version.
   8 ;;
   9 ;; This library is distributed in the hope that it will be useful,
  10 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;; Lesser General Public License for more details.
  13 ;;
  14 ;; You should have received a copy of the GNU Lesser General Public
  15 ;; License along with this library; if not, write to the Free Software
  16 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17
  18 ;; $Id: gtktext.lisp,v 1.1 2004-12-04 18:19:59 espen Exp $
  19
  20
  21 (in-package "GTK")
  22
  23 ;;; Text View
  24
  25 (defbinding text-view-scroll-to-mark () nil
  26   (text-view text-view)
  27   (mark text-mark)
  28   (within-margin boolean)
  29   (use-align boolean)
  30   (xalign double-float)
  31   (yalign double-float))
  32
  33 (defbinding text-view-scroll-to-iter () nil
  34   (text-view text-view)
  35   (iter text-iter)
  36   (within-margin boolean)
  37   (use-align boolean)
  38   (xalign double-float)
  39   (yalign double-float))
  40
  41 (defbinding text-view-scroll-mark-onscreen () nil
  42   (text-view text-view)
  43   (mark text-mark))
  44
  45 (defbinding text-view-move-mark-onscreen () nil
  46   (text-view text-view)
  47   (mark text-mark))
  48
  49 (defbinding text-view-place-cursor-onscreen () nil
  50   (text-view text-view))
  51
  52 (defbinding text-view-get-visible-rect
  53     (text-view &optional (rect (make-instance 'gdk:rectangle))) nil
  54   (text-view text-view)
  55   (rect gdk:rectangle :return))
  56
  57 (defbinding text-view-get-iter-location
  58     (text-view iter &optional (location (make-instance 'gdk:rectangle))) nil
  59   (text-view text-view)
  60   (iter text-iter)
  61   (location gdk:rectangle :return))
  62
  63 (defbinding text-view-get-line-at-y
  64     (text-view y &optional (iter (make-instance 'text-iter))) nil
  65   (text-view text-view)
  66   (iter text-iter :return)
  67   (y int)
  68   (line-top int :out))
  69
  70 (defbinding text-view-get-line-yrange () nil
  71   (text-view text-view)
  72   (iter text-iter)
  73   (y int :out)
  74   (height int :out))
  75
  76 (defbinding text-view-get-iter-at-location
  77     (text-view x y &optional (iter (make-instance 'text-iter))) nil
  78   (text-view text-view)
  79   (iter text-iter :return)
  80   (x int)
  81   (y int))
  82
  83 (defbinding text-view-buffer-to-window-coords () nil
  84   (text-view text-view)
  85   (win text-window-type)
  86   (buffer-x int)
  87   (buffer-y int)
  88   (window-x int :out)
  89   (window-y int :out))
  90
  91 (defbinding text-view-window-to-buffer-coords () nil
  92   (text-view text-view)
  93   (win text-window-type)
  94   (window-x int)
  95   (window-y int)
  96   (buffer-x int :out)
  97   (buffer-y int :out))
  98
  99 (defbinding text-view-get-window () gdk:window
 100   (text-view text-view)
 101   (win text-window-type))
 102
 103 (defbinding text-view-get-window-type () text-window-type
 104   (text-view text-view)
 105   (window gdk:window))
 106
 107 (defbinding %text-view-set-border-window-size () nil
 108   (text-view text-view)
 109   (win text-window-type)
 110   (size int))
 111
 112 (defun (setf text-view-border-window-size) (size text-view win)
 113   (%text-view-set-border-window-size text-view win size)
 114   size)
 115
 116 (defbinding (text-view-border-window-size
 117              "gtk_text_view_get_border_window_size") () int
 118   (text-view text-view)
 119   (win text-window-type))
 120
 121 (defbinding text-view-forward-display-line () boolean
 122   (text-view text-view)
 123   (iter text-iter))
 124
 125 (defbinding text-view-backward-display-line () boolean
 126   (text-view text-view)
 127   (iter text-iter))
 128
 129 (defbinding text-view-forward-display-line-end () boolean
 130   (text-view text-view)
 131   (iter text-iter))
 132
 133 (defbinding text-view-backward-display-line-start () boolean
 134   (text-view text-view)
 135   (iter text-iter))
 136
 137 (defbinding (text-view-starts-display-line-p
 138              "gtk_text_view_starts_display_line") () boolean
 139   (text-view text-view)
 140   (iter text-iter))
 141
 142 (defbinding text-view-move-visually () boolean
 143   (text-view text-view)
 144   (iter text-iter)
 145   (count int))
 146
 147 (defbinding text-view-add-child-at-anchor () nil
 148   (text-view text-view)
 149   (child widget)
 150   (anchor text-child-anchor))
 151
 152 (defbinding text-view-add-child-in-window () nil
 153   (text-view text-view)
 154   (child widget)
 155   (win text-window-type)
 156   (x int)
 157   (y int))
 158
 159 (defbinding text-view-move-child () nil
 160   (text-view text-view)
 161   (child widget)
 162   (x int)
 163   (y int))
 164
 165
 166 ;; Text Child Anchor
 167
 168 (defbinding (text-view-child-anchor-deleted-p
 169              "gtk_text_child_anchor_get_deleted") () boolean
 170   (anchor text-child-anchor))