/usr/lib/ocaml/labltk/cWinfo.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 161 162 163 | (***********************************************************************)
(* *)
(* 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 winfo commands *)
open CTk
open Tkintf
open Widget
open Textvariable
(* unsafe *)
val atom : ?displayof:widget -> string -> atomId
(* /unsafe *)
(* unsafe *)
val atom_displayof : widget -> string -> atomId
(* /unsafe *)
(* unsafe *)
val atomname : ?displayof:widget -> atomId -> string
(* /unsafe *)
(* unsafe *)
val atomname_displayof : widget -> atomId -> string
(* /unsafe *)
val cells : widget -> int
val children : widget -> widget list
val class_name : widget -> string
val colormapfull : widget -> bool
(* unsafe *)
val containing : ?displayof:widget -> int -> int -> widget
(* /unsafe *)
(* unsafe *)
val containing_displayof : widget -> int -> int -> widget
(* /unsafe *)
val depth : widget -> int
val exists : widget -> bool
val fpixels : widget -> units -> float
val geometry : widget -> string
val height : widget -> int
(* unsafe *)
val id : widget -> string
(* /unsafe *)
(* unsafe *)
val interps : ?displayof:widget -> unit -> string list
(* /unsafe *)
(* unsafe *)
val interps_displayof : widget -> string list
(* /unsafe *)
val ismapped : widget -> bool
val manager : widget -> string
val name : widget -> string
(* unsafe *)
val parent : widget -> widget
(* /unsafe *)
(* unsafe *)
val pathname : ?displayof:widget -> string -> widget
(* /unsafe *)
(* unsafe *)
val pathname_displayof : widget -> string -> widget
(* /unsafe *)
val pixels : widget -> units -> int
val pointerx : widget -> int
val pointerxy : widget -> int * int
val pointery : widget -> int
val reqheight : widget -> int
val reqwidth : widget -> int
val rgb : widget -> color -> int * int * int
val rootx : widget -> int
val rooty : widget -> int
(* unsafe *)
val screen : widget -> string
(* /unsafe *)
val screencells : widget -> int
val screendepth : widget -> int
val screenheight : widget -> int
val screenmmheight : widget -> int
val screenmmwidth : widget -> int
val screenvisual : widget -> string
val screenwidth : widget -> int
(* unsafe *)
val server : widget -> string
(* /unsafe *)
(* unsafe *)
val toplevel : widget -> (* toplevel *) widget
(* /unsafe *)
val viewable : widget -> bool
val visual : widget -> string
val visualid : widget -> int
val visualsavailable : ?includeids:int list -> widget -> string
val vrootheight : widget -> int
val vrootwidth : widget -> int
val vrootx : widget -> int
val vrooty : widget -> int
val width : widget -> int
val x : widget -> int
val y : widget -> int
val contained : int -> int -> widget -> bool
(** [contained x y w] returns true if (x,y) is in w *)
|