/usr/lib/ocaml/labltk/cCanvas.mli is in liblabltk-ocaml-dev 8.06.0+dfsg-3.
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 159 160 | (***********************************************************************)
(* *)
(* MLTk, Tcl/Tk interface of OCaml *)
(* *)
(* Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis *)
(* projet Cristal, INRIA Rocquencourt *)
(* Jacques Garrigue, Kyoto University RIMS *)
(* *)
(* Copyright 2002 Institut National de Recherche en Informatique et *)
(* en Automatique and Kyoto University. All rights reserved. *)
(* This file is distributed under the terms of the GNU Library *)
(* General Public License, with the special exception on linking *)
(* described in file LICENSE found in the OCaml source tree. *)
(* *)
(***********************************************************************)
(* The canvas widget *)
open CTk
open Tkintf
open Widget
open Textvariable
val create : ?name: string -> widget -> options list -> widget
(** [create ?name parent options] creates a new widget with
parent [parent] and new patch component [name] if specified.
Options are restricted to the widget class subset, and checked
dynamically. *)
val create_named : widget -> string -> options list -> widget
(** [create_named parent name options] creates a new widget with
parent [parent] and new patch component [name].
This function is now obsolete and unified with [create]. *)
val addtag : (* canvas *) widget -> tagOrId -> searchSpec list -> unit
val bbox : (* canvas *) widget -> tagOrId list -> int * int * int * int
val canvasx : ?spacing:units -> (* canvas *) widget -> units -> float
val canvasx_grid : (* canvas *) widget -> units -> units -> float
val canvasy : ?spacing:units -> (* canvas *) widget -> units -> float
val canvasy_grid : (* canvas *) widget -> units -> units -> float
val configure : (* canvas *) widget -> (* canvas *) options list -> unit
val configure_arc : (* canvas *) widget -> tagOrId -> (* arc *) options list -> unit
val configure_bitmap : (* canvas *) widget -> tagOrId -> (* bitmap *) options list -> unit
val configure_get : (* canvas *) widget -> string
val configure_image : (* canvas *) widget -> tagOrId -> (* image *) options list -> unit
val configure_line : (* canvas *) widget -> tagOrId -> (* line *) options list -> unit
val configure_oval : (* canvas *) widget -> tagOrId -> (* oval *) options list -> unit
val configure_polygon : (* canvas *) widget -> tagOrId -> (* polygon *) options list -> unit
val configure_rectangle : (* canvas *) widget -> tagOrId -> (* rectangle *) options list -> unit
val configure_text : (* canvas *) widget -> tagOrId -> (* canvastext *) options list -> unit
val configure_window : (* canvas *) widget -> tagOrId -> (* window *) options list -> unit
val coords_get : (* canvas *) widget -> tagOrId -> float list
val coords_set : (* canvas *) widget -> tagOrId -> units list -> unit
val create_arc : (* canvas *) widget -> units -> units -> units -> units -> (* arc *) options list -> tagOrId
val create_bitmap : (* canvas *) widget -> units -> units -> (* bitmap *) options list -> tagOrId
val create_image : (* canvas *) widget -> units -> units -> (* image *) options list -> tagOrId
val create_line : (* canvas *) widget -> units list -> (* line *) options list -> tagOrId
val create_oval : (* canvas *) widget -> units -> units -> units -> units -> (* oval *) options list -> tagOrId
val create_polygon : (* canvas *) widget -> units list -> (* polygon *) options list -> tagOrId
val create_rectangle : (* canvas *) widget -> units -> units -> units -> units -> (* rectangle *) options list -> tagOrId
val create_text : (* canvas *) widget -> units -> units -> (* canvastext *) options list -> tagOrId
val create_window : (* canvas *) widget -> units -> units -> (* window *) options list -> tagOrId
val dchars : (* canvas *) widget -> tagOrId -> (* canvas *) index -> (* canvas *) index -> unit
val delete : (* canvas *) widget -> tagOrId list -> unit
val dtag : (* canvas *) widget -> tagOrId -> tagOrId -> unit
val find : (* canvas *) widget -> searchSpec list -> tagOrId list
val focus : (* canvas *) widget -> tagOrId -> unit
val focus_get : (* canvas *) widget -> tagOrId
val focus_reset : (* canvas *) widget -> unit
val gettags : (* canvas *) widget -> tagOrId -> tagOrId list
val icursor : (* canvas *) widget -> tagOrId -> (* canvas *) index -> unit
val index : (* canvas *) widget -> tagOrId -> (* canvas *) index -> int
val insert : (* canvas *) widget -> tagOrId -> (* canvas *) index -> string -> unit
val itemconfigure_get : (* canvas *) widget -> tagOrId -> string
val lower : ?below:tagOrId -> (* canvas *) widget -> tagOrId -> unit
val lower_below : (* canvas *) widget -> tagOrId -> tagOrId -> unit
val lower_bot : (* canvas *) widget -> tagOrId -> unit
val move : (* canvas *) widget -> tagOrId -> units -> units -> unit
(* unsafe *)
val postscript : (* canvas *) widget -> (* postscript *) options list -> string
(* /unsafe *)
val raise : ?above:tagOrId -> (* canvas *) widget -> tagOrId -> unit
val raise_above : (* canvas *) widget -> tagOrId -> tagOrId -> unit
val raise_top : (* canvas *) widget -> tagOrId -> unit
val scale : (* canvas *) widget -> tagOrId -> units -> units -> float -> float -> unit
val scan_dragto : (* canvas *) widget -> int -> int -> unit
val scan_mark : (* canvas *) widget -> int -> int -> unit
val select_adjust : (* canvas *) widget -> tagOrId -> (* canvas *) index -> unit
val select_clear : (* canvas *) widget -> unit
val select_from : (* canvas *) widget -> tagOrId -> (* canvas *) index -> unit
val select_item : (* canvas *) widget -> tagOrId
val select_to : (* canvas *) widget -> tagOrId -> (* canvas *) index -> unit
val typeof : (* canvas *) widget -> tagOrId -> canvasItem
val xview : (* canvas *) widget -> scrollValue -> unit
val xview_get : (* canvas *) widget -> float * float
val yview : (* canvas *) widget -> scrollValue -> unit
val yview_get : (* canvas *) widget -> float * float
val bind : widget -> tagOrId ->
(modifier list * xEvent) list -> bindAction -> unit
|