|
Packit |
bd2e5d |
(***********************************************************************)
|
|
Packit |
bd2e5d |
(* *)
|
|
Packit |
bd2e5d |
(* MLTk, Tcl/Tk interface of OCaml *)
|
|
Packit |
bd2e5d |
(* *)
|
|
Packit |
bd2e5d |
(* Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis *)
|
|
Packit |
bd2e5d |
(* projet Cristal, INRIA Rocquencourt *)
|
|
Packit |
bd2e5d |
(* Jacques Garrigue, Kyoto University RIMS *)
|
|
Packit |
bd2e5d |
(* *)
|
|
Packit |
bd2e5d |
(* Copyright 2002 Institut National de Recherche en Informatique et *)
|
|
Packit |
bd2e5d |
(* en Automatique and Kyoto University. All rights reserved. *)
|
|
Packit |
bd2e5d |
(* This file is distributed under the terms of the GNU Library *)
|
|
Packit |
bd2e5d |
(* General Public License, with the special exception on linking *)
|
|
Packit |
bd2e5d |
(* described in file LICENSE found in the OCaml source tree. *)
|
|
Packit |
bd2e5d |
(* *)
|
|
Packit |
bd2e5d |
(***********************************************************************)
|
|
Packit |
bd2e5d |
val debug : bool ref
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
type ('a, 'b) xlfd =
|
|
Packit |
bd2e5d |
{ mutable foundry: 'a;
|
|
Packit |
bd2e5d |
mutable family: 'a;
|
|
Packit |
bd2e5d |
mutable weight: 'a;
|
|
Packit |
bd2e5d |
mutable slant: 'a;
|
|
Packit |
bd2e5d |
mutable setWidth: 'a;
|
|
Packit |
bd2e5d |
mutable addStyle: 'a;
|
|
Packit |
bd2e5d |
mutable pixelSize: 'b;
|
|
Packit |
bd2e5d |
mutable pointSize: 'b;
|
|
Packit |
bd2e5d |
mutable resolutionX: 'b;
|
|
Packit |
bd2e5d |
mutable resolutionY: 'b;
|
|
Packit |
bd2e5d |
mutable spacing: 'a;
|
|
Packit |
bd2e5d |
mutable averageWidth: 'b;
|
|
Packit |
bd2e5d |
mutable registry: 'a;
|
|
Packit |
bd2e5d |
mutable encoding: 'a }
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
exception Parse_Xlfd_Failure of string
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
type valid_xlfd = (string, int) xlfd
|
|
Packit |
bd2e5d |
type pattern = (string option, int option) xlfd
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val empty_pattern : pattern
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val copy : ('a, 'b) xlfd -> ('a, 'b) xlfd
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val string_of_valid_xlfd : valid_xlfd -> string
|
|
Packit |
bd2e5d |
val string_of_pattern : pattern -> string
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val is_vector_font : valid_xlfd -> bool
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val list_fonts : string option -> pattern -> valid_xlfd list
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val available_pixel_size :
|
|
Packit |
bd2e5d |
string option -> pattern -> (int * valid_xlfd list) list
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
val nearest_pixel_size :
|
|
Packit |
bd2e5d |
string option -> bool -> pattern -> valid_xlfd
|