X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaGtkMisc.mli;h=0f78a4a61b45eadaa1a4cfe51e12e75ee9405765;hb=9ff984b29ac963eef2f79521ce9dd7cbb9ae2c59;hp=16b0591b2651a5a09856f5bdfad0c192c66d9c58;hpb=358720b93255d1aa526dc03c63a5d6193658b93b;p=helm.git

diff --git a/matita/matitaGtkMisc.mli b/matita/matitaGtkMisc.mli
index 16b0591b2..0f78a4a61 100644
--- a/matita/matitaGtkMisc.mli
+++ b/matita/matitaGtkMisc.mli
@@ -113,7 +113,6 @@ class taggedStringListModel:
 class type gui =
   object  (* minimal gui object requirements *)
     method newUriDialog:          unit -> MatitaGeneratedGui.uriChoiceDialog
-    method newRecordDialog:       unit -> MatitaGeneratedGui.recordChoiceDialog
     method newConfirmationDialog: unit -> MatitaGeneratedGui.confirmationDialog
     method newEmptyDialog:        unit -> MatitaGeneratedGui.emptyDialog
   end
@@ -139,16 +138,6 @@ val ask_text:
   ?multiline:bool -> ?default:string -> unit ->
     string
 
-  (** @param fields field names
-   * @param records list of records, each record is a list of [fields] strings
-   * @return number of the chosen record, 0 for the first one *)
-val ask_record_choice:
-  gui:#gui ->
-  ?title:string -> ?message:string ->
-  fields:string list -> records:string list list ->
-  unit ->
-    int
-
 val report_error:
   title:string -> message:string -> 
   ?parent:#GWindow.window_skel ->
@@ -157,7 +146,7 @@ val report_error:
 
     (* given an utf8 string a floc returns the parsed substring and its length
      * in bytes *)
-val utf8_parsed_text: string -> Token.flocation -> string * int
+val utf8_parsed_text: string -> Stdpp.location -> string * int
 
     (* the length in characters, not bytes *)
 val utf8_string_length: string -> int