This file is indexed.

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

val aspect_get : toplevel widget -> int * int * int * int 

val aspect_set : toplevel widget -> minnum:int -> mindenom:int -> maxnum:int -> maxdenom:int -> unit 

val client_get : toplevel widget -> string 

val client_set : toplevel widget -> name:string -> unit 

(* unsafe *)
val colormapwindows_get : toplevel widget -> any widget list 

(* /unsafe *)
val colormapwindows_set : toplevel widget -> windows:'a widget list -> unit 

val command_clear : toplevel widget -> unit 

val command_get : toplevel widget -> string list 

val command_set : toplevel widget -> string list -> unit 

val deiconify : toplevel widget -> unit 

val focusmodel_get : toplevel widget -> focusModel 

val focusmodel_set : toplevel widget -> focusModel -> unit 

val frame : toplevel widget -> string 

val geometry_get : toplevel widget -> string 

val geometry_set : toplevel widget -> string -> unit 

val grid_clear : toplevel widget -> unit 

val grid_get : toplevel widget -> int * int * int * int 

val grid_set : toplevel widget -> basewidth:int -> baseheight:int -> widthinc:int -> heightinc:int -> unit 

val group_clear : toplevel widget -> unit 

(* unsafe *)
val group_get : toplevel widget -> any widget 

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

val iconbitmap_clear : toplevel widget -> unit 

val iconbitmap_get : toplevel widget -> bitmap 

val iconbitmap_set : toplevel widget -> bitmap -> unit 

val iconify : toplevel widget -> unit 

val iconmask_clear : toplevel widget -> unit 

val iconmask_get : toplevel widget -> bitmap 

val iconmask_set : toplevel widget -> bitmap -> unit 

val iconname_get : toplevel widget -> string 

val iconname_set : toplevel widget -> string -> unit 

val iconposition_clear : toplevel widget -> unit 

val iconposition_get : toplevel widget -> int * int 

val iconposition_set : toplevel widget -> x:int -> y:int -> unit 

val iconwindow_clear : toplevel widget -> unit 

(* unsafe *)
val iconwindow_get : toplevel widget -> toplevel widget 

(* /unsafe *)
val iconwindow_set : toplevel widget -> icon:toplevel widget -> unit 

val maxsize_get : toplevel widget -> int * int 

val maxsize_set : toplevel widget -> width:int -> height:int -> unit 

val minsize_get : toplevel widget -> int * int 

val minsize_set : toplevel widget -> width:int -> height:int -> unit 

val overrideredirect_get : toplevel widget -> bool 

(* unsafe *)
val overrideredirect_set : toplevel widget -> bool -> unit 

(* /unsafe *)
val positionfrom_clear : toplevel widget -> unit 

val positionfrom_get : toplevel widget -> wmFrom 

val positionfrom_set : toplevel widget -> wmFrom -> unit 

val protocol_clear : toplevel widget -> name:string -> unit 

val protocol_set : toplevel widget -> name:string -> command:(unit -> unit) -> unit 

val protocols : toplevel widget -> string list 

val resizable_get : toplevel widget -> bool * bool 

val resizable_set : toplevel widget -> width:bool -> height:bool -> unit 

val sizefrom_clear : toplevel widget -> unit 

val sizefrom_get : toplevel widget -> wmFrom 

val sizefrom_set : toplevel widget -> wmFrom -> unit 

val state : toplevel widget -> string 

val title_get : toplevel widget -> string 

val title_set : toplevel widget -> string -> unit 

val transient_clear : toplevel widget -> unit 

(* unsafe *)
val transient_get : toplevel widget -> any widget 

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

val withdraw : toplevel widget -> unit