Module Glib.Message


module Message: sig .. end

type print_func = string -> unit 
val set_print_handler : (string -> unit) -> print_func
type log_level = [ `CRITICAL
| `DEBUG
| `ERROR
| `FLAG_FATAL
| `FLAG_RECURSION
| `INFO
| `MESSAGE
| `WARNING ]
val log_level : log_level -> int
type log_handler 
val set_log_handler : domain:string ->
levels:log_level list ->
(level:int -> string -> unit) -> log_handler
val remove_log_handler : log_handler -> unit
val handle_criticals : domain:string -> unit