sig
  val width : ?screen:Gdk.screen -> unit -> int
  val height : ?screen:Gdk.screen -> unit -> int
  val get_pango_context : ?screen:Gdk.screen -> unit -> Pango.context
  val default : unit -> Gdk.screen
end