package labltk

  1. Overview
  2. Docs
val debug : bool ref
type (!'a, !'b) xlfd = {
  1. mutable foundry : 'a;
  2. mutable family : 'a;
  3. mutable weight : 'a;
  4. mutable slant : 'a;
  5. mutable setWidth : 'a;
  6. mutable addStyle : 'a;
  7. mutable pixelSize : 'b;
  8. mutable pointSize : 'b;
  9. mutable resolutionX : 'b;
  10. mutable resolutionY : 'b;
  11. mutable spacing : 'a;
  12. mutable averageWidth : 'b;
  13. mutable registry : 'a;
  14. mutable encoding : 'a;
}
exception Parse_Xlfd_Failure of string
type valid_xlfd = (string, int) xlfd
type pattern = (string option, int option) xlfd
val empty_pattern : pattern
val copy : ('a, 'b) xlfd -> ('a, 'b) xlfd
val string_of_valid_xlfd : valid_xlfd -> string
val string_of_pattern : pattern -> string
val is_vector_font : valid_xlfd -> bool
val list_fonts : string option -> pattern -> valid_xlfd list
val available_pixel_size : string option -> pattern -> (int * valid_xlfd list) list
val nearest_pixel_size : string option -> bool -> pattern -> valid_xlfd