/usr/lib/ocaml/lablgtk2/gDraw.mli is in liblablgtk2-ocaml-dev 2.16.0+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 | (**************************************************************************)
(* Lablgtk *)
(* *)
(* This program is free software; you can redistribute it *)
(* and/or modify it under the terms of the GNU Library General *)
(* Public License as published by the Free Software Foundation *)
(* version 2, with the exception described in file COPYING which *)
(* comes with the library. *)
(* *)
(* This program is distributed in the hope that it will be useful, *)
(* but WITHOUT ANY WARRANTY; without even the implied warranty of *)
(* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *)
(* GNU Library General Public License for more details. *)
(* *)
(* You should have received a copy of the GNU Library General *)
(* Public License along with this program; if not, write to the *)
(* Free Software Foundation, Inc., 59 Temple Place, Suite 330, *)
(* Boston, MA 02111-1307 USA *)
(* *)
(* *)
(**************************************************************************)
(* $Id$ *)
open Gdk
(** Offscreen drawables *)
(** {3 Colors} *)
(** @gtkdoc gdk gdk-Colormaps-and-Colors *)
type color =
[ `COLOR of Gdk.color
| `WHITE
| `BLACK
| `NAME of string
| `RGB of int * int * int]
val color : ?colormap:colormap -> color -> Gdk.color
type optcolor =
[ `COLOR of Gdk.color
| `WHITE
| `BLACK
| `NAME of string
| `RGB of int * int * int
| `DEFAULT ]
val optcolor : ?colormap:colormap -> optcolor -> Gdk.color option
(** {3 GdkDrawable} *)
(** Functions for drawing points, lines, arcs, and text
@gtkdoc gdk gdk-Drawing-Primitives *)
class drawable : ?colormap:colormap -> ([>`drawable] Gobject.obj as 'a) ->
object
val mutable gc : gc
val w : 'a
method arc :
x:int ->
y:int ->
width:int ->
height:int ->
?filled:bool -> ?start:float -> ?angle:float -> unit -> unit
method color : color -> Gdk.color
method colormap : colormap
method depth : int
method gc : gc
method set_gc : gc -> unit
method gc_values : GC.values
method line : x:int -> y:int -> x:int -> y:int -> unit
method point : x:int -> y:int -> unit
method polygon : ?filled:bool -> (int * int) list -> unit
method put_layout :
x: int -> y: int -> ?fore:color -> ?back:color -> Pango.layout -> unit
method put_image :
x:int -> y:int ->
?xsrc:int -> ?ysrc:int -> ?width:int -> ?height:int -> image -> unit
method put_pixmap :
x:int -> y:int ->
?xsrc:int -> ?ysrc:int -> ?width:int -> ?height:int -> pixmap -> unit
method put_rgb_data :
width:int -> height:int ->
?x:int -> ?y:int -> ?dither:Gdk.Tags.rgb_dither ->
?row_stride:int -> Gpointer.region -> unit
method put_pixbuf :
x:int -> y:int ->
?width:int -> ?height:int ->
?dither:Gdk.Tags.rgb_dither ->
?x_dither:int ->
?y_dither:int -> ?src_x:int -> ?src_y:int -> GdkPixbuf.pixbuf -> unit
method rectangle :
x:int ->
y:int -> width:int -> height:int -> ?filled:bool -> unit -> unit
method set_background : color -> unit
method set_foreground : color -> unit
method set_clip_region : region -> unit
method set_clip_origin : x:int -> y:int -> unit
method set_clip_mask : bitmap -> unit
method set_clip_rectangle : Rectangle.t -> unit
method set_line_attributes :
?width:int ->
?style:GC.gdkLineStyle ->
?cap:GC.gdkCapStyle -> ?join:GC.gdkJoinStyle -> unit -> unit
method size : int * int
method string : string -> font:font -> x:int -> y:int -> unit
method points : (int * int) list -> unit
method lines : (int * int) list -> unit
method segments : ((int * int) * (int * int)) list -> unit
end
(** {3 GdkPixmap} *)
(** Offscreen drawables
@gtkdoc gdk gdk-Bitmaps-and-Pixmaps *)
class pixmap :
?colormap:colormap -> ?mask:bitmap -> Gdk.pixmap ->
object
inherit drawable
val w : Gdk.pixmap
val bitmap : drawable option
val mask : bitmap option
method mask : bitmap option
method pixmap : Gdk.pixmap
end
class type misc_ops =
object
method colormap : colormap
method realize : unit -> unit
method visual_depth : int
method window : window
end
(** @gtkdoc gdk gdk-Bitmaps-and-Pixmaps *)
val pixmap :
width:int -> height:int -> ?mask:bool ->
?window:< misc : #misc_ops; .. > -> ?colormap:colormap ->
unit -> pixmap
val pixmap_from_xpm :
file:string ->
?window:< misc : #misc_ops; .. > ->
?colormap:colormap -> ?transparent:color -> unit -> pixmap
val pixmap_from_xpm_d :
data:string array ->
?window:< misc : #misc_ops; .. > ->
?colormap:colormap -> ?transparent:color -> unit -> pixmap
(** {3 GdkDragContext} *)
(** @gtkdoc gdk gdk-Drag-and-Drop *)
class drag_context : Gdk.drag_context ->
object
val context : Gdk.drag_context
method status : ?time:int32 -> Tags.drag_action option -> unit
method suggested_action : Tags.drag_action
method targets : string list
end
|