(*************************************************************************) (* *) (* Objective Caml LablTk library *) (* *) (* Jacques Garrigue, Kyoto University RIMS *) (* *) (* Copyright 1999 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. *) (* *) (*************************************************************************) (* $Id$ *) val formatted : title:string -> ?on:Widget.frame Widget.widget -> ?ppf:Format.formatter -> ?width:int -> ?maxheight:int -> ?minheight:int -> unit -> Widget.any Widget.widget * Widget.text Widget.widget * (unit -> unit) val ask : title:string -> ?master:Widget.toplevel Widget.widget -> string -> [`cancel|`no|`yes]