/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
|