]> matita.cs.unibo.it Git - helm.git/commitdiff
some cosmetic fixes
authorEnrico Tassi <enrico.tassi@inria.fr>
Wed, 1 Jun 2005 11:08:38 +0000 (11:08 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Wed, 1 Jun 2005 11:08:38 +0000 (11:08 +0000)
helm/matita/matita.glade
helm/matita/matita.txt
helm/matita/matitaEngine.ml
helm/matita/matitaGui.ml
helm/matita/matitaLog.ml
helm/matita/matitaScript.ml

index 7ae1860d5361cc2793561748f6d09e7806b40496..2e2ef874e12af0bd0aa4fabd8ce8ce7f611b517e 100644 (file)
@@ -1261,7 +1261,7 @@ Copyright (C) 2005,
                          <property name="visible">True</property>
                          <property name="tooltip" translatable="yes">Intros</property>
                          <property name="can_focus">True</property>
-                         <property name="label" translatable="yes">intros</property>
+                         <property name="label" translatable="yes">intro</property>
                          <property name="use_underline">True</property>
                          <property name="relief">GTK_RELIEF_NORMAL</property>
                          <property name="focus_on_click">True</property>
@@ -1838,12 +1838,12 @@ Copyright (C) 2005,
              </child>
 
              <child>
-               <widget class="GtkHPaned" id="hpaned1">
+               <widget class="GtkHPaned" id="hpaneScriptSequent">
                  <property name="visible">True</property>
                  <property name="can_focus">True</property>
 
                  <child>
-                   <widget class="GtkVBox" id="vbox9">
+                   <widget class="GtkVBox" id="vboxScript">
                      <property name="width_request">400</property>
                      <property name="visible">True</property>
                      <property name="homogeneous">False</property>
@@ -2044,7 +2044,7 @@ Copyright (C) 2005,
                      </child>
 
                      <child>
-                       <widget class="GtkNotebook" id="scriptNotebokk">
+                       <widget class="GtkNotebook" id="scriptNotebook">
                          <property name="visible">True</property>
                          <property name="can_focus">True</property>
                          <property name="show_tabs">True</property>
index 097eea2d2f94b47a8487c27e8d39e4bb115597e2..454a13029382f07c7cf72a618ae9dd2f397ee14f 100644 (file)
@@ -2,18 +2,18 @@
 (**********************************************************************)
 
 TODO
-- implementare macro in matitaScript.ml        (check, hint, ..) -> Gares
-- script outline                                         -> Zack
+- script outline                                          -> Zack
 - cicBrowser: riagganciare(?) resa di termini scritti
-  nella URL(??)                                                  ->
-- menu contestuale (tasto dx) nel sequent viewer         ->
+  nella URL(??)                                           ->
+- menu contestuale (tasto dx) nel sequent viewer          ->
 - controllo per script modificato o meno prima di uscire  ->
-- riattaccare hbugs (brrr...)                            -> Zack
-- intro di una singola premessa                           -> Gares
-- elim di un goal che e` un'implicazione                  -> Gares
+- riattaccare hbugs (brrr...)                             -> Zack
 - tattica clear ?                                         -> Gares
+- intro = intros 1                                        -> Gares
+- timetravel                                              -> gares
 
 DONE
+- implementare macro in matitaScript.ml                   -> Gares
 - history deve aggiornare anche la whelp bar              -> Gares
 - commenti exeguibili (forse devono essere una lista e non 
   un singolo executable e forse devono contenere anche Note 
@@ -21,20 +21,20 @@ DONE
 - spostare il codice di creazione delle tabelle da
   MatitaDb, al momento quelle create da matita possono
   andare out of sync con quelle create dai file .sql      -> Gares
-- tree update in background                              -> Gares
-- update del getter in background                        -> Zack
-- agganciare href_callback del sequent_viewer            -> Zack
-- shortcut varie per script handling                     -> Zack
-- operazioni rimanenti su script (top, bottom, jump)     -> Zack
-- lighting-ls-getter in matita                           -> Gares
-- riagganciare toolbar                                   -> Zack
+- tree update in background                               -> Gares
+- update del getter in background                         -> Zack
+- agganciare href_callback del sequent_viewer             -> Zack
+- shortcut varie per script handling                      -> Zack
+- operazioni rimanenti su script (top, bottom, jump)      -> Zack
+- lighting-ls-getter in matita                            -> Gares
+- riagganciare toolbar                                    -> Zack
 - evitare che n-mila tattiche Goal siano nello script
-  (una per ogni cambio di tab)                           -> Zack
-- implementazione comandi rimanenti in matitaEngine.ml   -> Gares
-- sintassi per gli alias                                 -> Gares
-- implementazione script handling (sopra engine)         -> Zack
+  (una per ogni cambio di tab)                            -> Zack
+- implementazione comandi rimanenti in matitaEngine.ml    -> Gares
+- sintassi per gli alias                                  -> Gares
+- implementazione script handling (sopra engine)          -> Zack
 - matitaSync all'indietro                                 -> Gares
-- riagganciare GUI                                       -> Zack
+- riagganciare GUI                                        -> Zack
 
 (**********************************************************************)
 
@@ -59,9 +59,9 @@ comandi:
          |  lingua:/sintassi concreta non ambigua delle tattiche+Qed,Thm,alias/ 
          +----------------------------------------------------------
          |            engine: TacticAst (cic) -> status -> status
-        |               ma non usa il campo alias dello status
+         |               ma non usa il campo alias dello status
 ---------+----------------------------------------------------------
-                            ocaml               
+                            ocaml                 
 --------------------------------------------------------------------
 
 
@@ -140,33 +140,33 @@ script handling
     - new: gtk_text_buffer -> script
     - redraw: unit (* ridisegna il contenuto del buffer di testo *)
     - advance: ?statement:string -> unit -> unit
-       (* valuta il primo statement del future text (usando eval_statement
-       (puo' fallire con una eccezione)), rimuove il testo corrispondente dal
-       future text, aggiunge alla statement list una entry per ogni statement
-       ritornato da eval_statement, aggiunge il nuovo stato alla state list,
-       invoka tutti gli observer
-       Se c'e' l'argomento opzionale statement, quello e' il testo che viene
-       passato ad eval_statement, se ha successo nessuna rimozione dal future
-       text viene effettuata *)
+        (* valuta il primo statement del future text (usando eval_statement
+        (puo' fallire con una eccezione)), rimuove il testo corrispondente dal
+        future text, aggiunge alla statement list una entry per ogni statement
+        ritornato da eval_statement, aggiunge il nuovo stato alla state list,
+        invoka tutti gli observer
+        Se c'e' l'argomento opzionale statement, quello e' il testo che viene
+        passato ad eval_statement, se ha successo nessuna rimozione dal future
+        text viene effettuata *)
     - retract: unit -> unit
-       (* sposta l'ultimo statement della statement list al future text, toglie
-       l'ultimo stato della state list, MatitaSync.time_travel
-       ~present:ultimo_stato ~past:stato_precedente *)
+        (* sposta l'ultimo statement della statement list al future text, toglie
+        l'ultimo stato della state list, MatitaSync.time_travel
+        ~present:ultimo_stato ~past:stato_precedente *)
     - private eval_statement: string -> MatitaTypes.status * string list
-       (* parsa lo statement
-       - se e' un Command o un Tactical (vedi TacticAst) invoca MatitaEngine
-         passando lo stato corrente
-       - se e' una Macro la gestisce (= tutte le Macro sono implementate qua)
-         Ritorna una lista di coppie <stato, statement>. La proiezione sulla
-         prima componente rappresenta gli stati da aggiungere alla state list;
-         quella sulla seconda gli statement da aggiungere alla statement list.
-       *)
+        (* parsa lo statement
+        - se e' un Command o un Tactical (vedi TacticAst) invoca MatitaEngine
+          passando lo stato corrente
+        - se e' una Macro la gestisce (= tutte le Macro sono implementate qua)
+          Ritorna una lista di coppie <stato, statement>. La proiezione sulla
+          prima componente rappresenta gli stati da aggiungere alla state list;
+          quella sulla seconda gli statement da aggiungere alla statement list.
+        *)
     (* gestione degli observer *)
     - add_observer: (MatitaTypes.status -> unit) -> observer_id
     - remove_observer: observer_id -> unit
     (* gestione del salvataggio *)
-    - save_to: string -> unit  (* ridisegna su file *)
+    - save_to: string -> unit        (* ridisegna su file *)
     - load_from: string -> unit
         (* retract fino allo stato zero, nuovo stato con future text pari al
-       contenuto del file passato *)
+        contenuto del file passato *)
 
index 0496076e73b26a9968d1eb59b7f9f3e15c4c6029..10fe24030d00c27951d49580f499fbd5c2c49754 100644 (file)
@@ -1,8 +1,9 @@
 
 open Printf
-
 open MatitaTypes
 
+let debug = true ;;
+let debug_print = if debug then prerr_endline else ignore ;;
 
 (** create a ProofEngineTypes.mk_fresh_name_type function which uses given
   * names as long as they are available, then it fallbacks to name generation
@@ -253,7 +254,7 @@ let eval_command status cmd =
       in
       {status with proof_status = No_proof}
   | TacticAst.Theorem (_, _, None, _, _) ->
-      command_error "The grammas should avoid having unnamed theorems!"
+      command_error "The grammar should avoid having unnamed theorems!"
   | TacticAst.Coercion (loc, term) -> assert false  (** TODO *)
   | TacticAst.Alias (loc, spec) -> 
       match spec with
index 4c53c5abcedf8aee75987435c0520ce1fb800f98..50d3f8ce8b046b9d338deb77f68af70462cc7f5d 100644 (file)
@@ -243,7 +243,15 @@ class gui () =
       self#main#hintMediumImage#set_file "icons/matita-bulb-medium.png";
       self#main#hintHighImage#set_file "icons/matita-bulb-high.png";
         (* focus *)
-      self#main#scriptTextView#misc#grab_focus ()
+        self#main#scriptTextView#misc#grab_focus ();
+        (* main win dimension *)
+      let width = Gdk.Screen.width () in
+      let height = Gdk.Screen.height () in
+      let main_w = width * 90 / 100 in 
+      let main_h = height * 80 / 100 in
+      let script_w = main_w / 2 in
+      self#main#toplevel#resize ~width:main_w ~height:main_h;
+      self#main#hpaneScriptSequent#set_position script_w  
     
     method loadScript file =       
       let script = MatitaScript.instance () in
index 02afaf9dba54ff1a8ea468751ab6f8f52337d80c..8c2e9a7a5826b0be8c5ec58d9661c39529368fd9 100644 (file)
@@ -33,11 +33,11 @@ colors=(black red green yellow blue magenta cyan gray white)
 ccodes=(30 31 32 33 34 35 36 37 39)
 *)
 
-let green = "\e[01;32m"
-let blue = "\e[01;34m"
-let yellow = "\e[01;33m"
-let red = "\e[01;31m"
-let black = "\e[0;0m"
+let blue   = "\e[0;34m"
+let yellow = "\e[0;33m"
+let green  = "\e[0;32m"
+let red    = "\e[0;31m"
+let black  = "\e[0m"
 
 let default_callback tag s =
   let prefix =
index f9855348a0d0ff9b6a4cc8224fd303aa527936e3..99b7018e42ac9d50ffa921513e6b2c97a1847496 100644 (file)
  *)
 
 open Printf
-
 open MatitaTypes
 
+let debug = true
+let debug_print = if  debug then prerr_endline else ignore
+
   (** raised when one of the script margins (top or bottom) is reached *)
 exception Margin