Module Rep_gui (.ml)


module Rep_gui: sig .. end

val map_opt : ('a -> 'b) -> 'a option -> 'b option

Edition boxes


module C: Configwin

type attribute = {
   mutable att_name : string;
   mutable att_code : string;
}
val params_for_att : attribute -> C.parameter_kind list
val tag_attributes_param : Rep_desc.tag -> C.parameter_kind

Main gui boxes


val dir : string Pervasives.ref
val find_first_child : < foreach : ('a -> 'b -> bool) -> 'c; get_path : 'd -> 'e;
iter_parent : 'b -> 'd option; .. > ->
'd -> 'b option
val find_iter_above : < foreach : ('a -> 'b -> bool) -> 'c; get_path : 'b -> 'd;
get_row_reference : 'a -> 'e; iter_next : 'b -> 'f; .. > ->
'b -> 'e option
val find_iter_below : < get_path : 'a -> 'b; get_row_reference : 'b -> 'c; iter_next : 'a -> bool;
.. > ->
'a -> 'c option
val clipboard : Rep_desc.report_ele option Pervasives.ref
class file : < set_text : string -> 'a; .. > -> string option -> object .. end
class gui : string list -> object .. end