This file is indexed.

/usr/lib/ocaml/labltk/winfo.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
(***********************************************************************)
(*                                                                     *)
(*                 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 StdLabels
open Tk
open Tkintf
open Widget
open Textvariable

(* unsafe *)
val atom : ?displayof:'a widget -> string -> atomId 

(* /unsafe *)
(* unsafe *)
val atomname : ?displayof:'a widget -> atomId -> string 

(* /unsafe *)
val cells : 'a widget -> int 

val children : 'a widget -> any widget list 

val class_name : 'a widget -> string 

val colormapfull : 'a widget -> bool 

(* unsafe *)
val containing : x:int -> y:int -> ?displayof:'a widget -> unit -> any widget 

(* /unsafe *)
val depth : 'a widget -> int 

val exists : 'a widget -> bool 

val fpixels : 'a widget -> length:units -> float 

val geometry : 'a widget -> string 

val height : 'a widget -> int 

(* unsafe *)
val id : 'a widget -> string 

(* /unsafe *)
(* unsafe *)
val interps : ?displayof:'a widget -> unit -> string list 

(* /unsafe *)
val ismapped : 'a widget -> bool 

val manager : 'a widget -> string 

val name : 'a widget -> string 

(* unsafe *)
val parent : 'a widget -> any widget 

(* /unsafe *)
(* unsafe *)
val pathname : ?displayof:'a widget -> string -> any widget 

(* /unsafe *)
val pixels : 'a widget -> length:units -> int 

val pointerx : 'a widget -> int 

val pointerxy : 'a widget -> int * int 

val pointery : 'a widget -> int 

val reqheight : 'a widget -> int 

val reqwidth : 'a widget -> int 

val rgb : 'a widget -> color:color -> int * int * int 

val rootx : 'a widget -> int 

val rooty : 'a widget -> int 

(* unsafe *)
val screen : 'a widget -> string 

(* /unsafe *)
val screencells : 'a widget -> int 

val screendepth : 'a widget -> int 

val screenheight : 'a widget -> int 

val screenmmheight : 'a widget -> int 

val screenmmwidth : 'a widget -> int 

val screenvisual : 'a widget -> string 

val screenwidth : 'a widget -> int 

(* unsafe *)
val server : 'a widget -> string 

(* /unsafe *)
(* unsafe *)
val toplevel : 'a widget -> toplevel widget 

(* /unsafe *)
val viewable : 'a widget -> bool 

val visual : 'a widget -> string 

val visualid : 'a widget -> int 

val visualsavailable : ?includeids:int list -> 'a widget -> string 

val vrootheight : 'a widget -> int 

val vrootwidth : 'a widget -> int 

val vrootx : 'a widget -> int 

val vrooty : 'a widget -> int 

val width : 'a widget -> int 

val x : 'a widget -> int 

val y : 'a widget -> int 



val contained : x:int -> y:int -> 'a widget -> bool
(** [contained x y w] returns true if (x,y) is in w *)