method locked_mark : Gtk.text_mark
method locked_tag : GText.tag
+ method error_tag : GText.tag
(** @return current status *)
- method status: MatitaTypes.status
+ method lexicon_status: LexiconEngine.status
+ method grafite_status: GrafiteTypes.status
(** {2 Observers} *)
- method addObserver : (MatitaTypes.status -> unit) -> unit
+ method addObserver :
+ (LexiconEngine.status -> GrafiteTypes.status -> unit) -> unit
(** {2 History} *)
method assignFileName : string -> unit (* to the current active file *)
method loadFromFile : string -> unit
method saveToFile : unit -> unit
+ method filename : string
(** {2 Current proof} (if any) *)
(** @return true if there is an ongoing proof, false otherise *)
method onGoingProof: unit -> bool
- method proofStatus: ProofEngineTypes.status (** @raise Statement_error *)
+(* method proofStatus: ProofEngineTypes.status |+* @raise Statement_error +| *)
method proofMetasenv: Cic.metasenv (** @raise Statement_error *)
method proofContext: Cic.context (** @raise Statement_error *)
method proofConclusion: Cic.term (** @raise Statement_error *)
+ method stack: Continuationals.Stack.t (** @raise Statement_error *)
method setGoal: int -> unit
+ method goal: int
(** end of script, true if the whole script has been executed *)
method eos: bool
(** @param set_star callback used to set the modified symbol (usually a star
* "*") on the side of a script name *)
val script:
- view:GText.view ->
- init:MatitaTypes.status ->
+ source_view:GSourceView.source_view ->
mathviewer: MatitaTypes.mathViewer->
urichooser: (UriManager.uri list -> UriManager.uri list) ->
develcreator: (containing:string option -> unit) ->
* the value of this ref *)
(* TODO Zack: orrible solution until we found a better one for having a single
* access point for the script *)
-val instance: unit -> script
+val current: unit -> script