* it *)
val append_phrase_sep: string -> string
-val normalize_dir: string -> string (** add trailing "/" if missing *)
+ (** add trailing "/" if missing *)
+val normalize_dir: string -> string
val strip_suffix: suffix:string -> string -> string
(** @return tl tail of a list starting at a given element
class type ['a] history =
object ('b)
method add : 'a -> unit
- method next : 'a (** @raise History_failure *)
- method previous : 'a (** @raise History_failure *)
+
+ (** @raise History_failure *)
+ method next : 'a
+
+ (** @raise History_failure *)
+ method previous : 'a
method load: 'a memento -> unit
method save: 'a memento
method is_begin: bool
(** {2 Global changes} *)
+val observe_font_size: (int -> unit) -> unit
val get_current_font_size: unit -> int
-val increase_font_size: unit -> unit
-val decrease_font_size: unit -> unit
-val reset_font_size: unit -> unit
+val increase_font_size: unit -> unit
+val decrease_font_size: unit -> unit
+val reset_font_size: unit -> unit
(** CSC: these functions should completely disappear (bad design) *)
val set_gui: MatitaGuiTypes.gui -> unit