]> matita.cs.unibo.it Git - helm.git/commitdiff
porting to lablgtk2 >= 2.14 and releasing
authorEnrico Tassi <enrico.tassi@inria.fr>
Tue, 1 Dec 2009 23:19:11 +0000 (23:19 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Tue, 1 Dec 2009 23:19:11 +0000 (23:19 +0000)
helm/software/configure.ac
helm/software/matita/dist/ChangeLog
helm/software/matita/matitaGui.ml
helm/software/matita/matitaGuiTypes.mli
helm/software/matita/matitaMathView.ml
helm/software/matita/matitaScript.ml
helm/software/matita/matitaScript.mli

index e70b95a63b60537b6a7b1b6187247ef7ef1d2177..9fe6c7581f3469a563cb21821ce682db332063db 100644 (file)
@@ -62,7 +62,7 @@ expat \
 gdome2 \
 http \
 lablgtk2 \
-lablgtksourceview.gtksourceview \
+lablgtksourceview2.gtksourceview2 \
 lablgtkmathview \
 mysql \
 netstring \
@@ -96,7 +96,7 @@ FINDLIB_REQUIRES="\
 $FINDLIB_CREQUIRES \
 lablgtk2.glade \
 lablgtkmathview \
-lablgtksourceview.gtksourceview \
+lablgtksourceview2.gtksourceview2 \
 helm-xmldiff \
 "
 for r in $FINDLIB_LIBSREQUIRES $FINDLIB_REQUIRES
index f00f59e57847b0362da0bc66b6fe3be8d48eeb5f..a0a1c51a9dc6442819675d44ed7ea103c5f726c5 100644 (file)
@@ -1,4 +1,4 @@
-0.5.8 - ... - toward the 1.x series
+0.5.8 - 02/12/2009 - toward the 1.x series
        * Complete rewriting of paramodulation code (thanks to Maxime Denes),
          that is abstract over the data type embedded in the fisrt order
          theory the procedure is able to handle. 
@@ -31,6 +31,7 @@
            they are in a standard path
          * including a file of the standard library triggers its compilation
            in the user's space
+       * gtksourceview2 based text widget (lablgtk >= 2.14)
 
 0.5.7 - 15/02/2009 - PĂ doa release
        * are_convertible bug solved, arguments of application where 
index e47b1b71359d4e8b606d8409807f853f999cd803..9459c86ca5e5664c023aaa5107fac41e413aae36 100644 (file)
@@ -205,7 +205,7 @@ class interpErrorModel =
 exception UseLibrary;;
 
 let rec interactive_error_interp ~all_passes
-  (source_buffer:GSourceView.source_buffer) notify_exn offset errorll filename
+  (source_buffer:GSourceView2.source_buffer) notify_exn offset errorll filename
 = 
   (* hook to save a script for each disambiguation error *)
   if false then
@@ -374,12 +374,12 @@ class gui () =
     [ main#mainWinEventBox ]
   in
   let console = new console ~buffer:main#logTextView#buffer () in
-  let (source_view: GSourceView.source_view) =
-    GSourceView.source_view
+  let (source_view: GSourceView2.source_view) =
+    GSourceView2.source_view
       ~auto_indent:true
-      ~insert_spaces_instead_of_tabs:true ~tabs_width:2
-      ~margin:80 ~show_margin:true
-      ~smart_home_end:true
+      ~insert_spaces_instead_of_tabs:true ~tab_width:2
+      ~right_margin_position:80 ~show_right_margin:true
+      ~smart_home_end:`AFTER
       ~packing:main#scriptScrolledWin#add
       ()
   in
@@ -575,11 +575,15 @@ class gui () =
           source_view#misc#grab_focus ()
       in
       connect_menu_item main#undoMenuItem safe_undo;
+(*CSC: XXX
       ignore(source_view#source_buffer#connect#can_undo
         ~callback:main#undoMenuItem#misc#set_sensitive);
+*) main#undoMenuItem#misc#set_sensitive true;
       connect_menu_item main#redoMenuItem safe_redo;
+(*CSC: XXX
       ignore(source_view#source_buffer#connect#can_redo
         ~callback:main#redoMenuItem#misc#set_sensitive);
+*) main#redoMenuItem#misc#set_sensitive true;
       ignore(source_view#connect#after#populate_popup
        ~callback:(fun pre_menu ->
          let menu = new GMenu.menu pre_menu in
@@ -883,13 +887,16 @@ class gui () =
           else raise exn);
         (* script *)
       let _ =
-        match GSourceView.source_language_from_file BuildTimeConf.lang_file with
+        let source_language_manager =
+         GSourceView2.source_language_manager ~default:true in
+        source_language_manager#set_search_path[BuildTimeConf.runtime_base_dir];
+        match source_language_manager#language "grafite" with
         | None ->
-            HLog.warn (sprintf "can't load language file %s"
-              BuildTimeConf.lang_file)
-        | Some matita_lang ->
+            HLog.warn(sprintf "can't load a language file for \"grafite\" in %s"
+              BuildTimeConf.runtime_base_dir)
+        | Some x as matita_lang ->
             source_buffer#set_language matita_lang;
-            source_buffer#set_highlight true
+            source_buffer#set_highlight_syntax true
       in
       let disableSave () =
         (s())#assignFileName None;
@@ -1289,8 +1296,8 @@ class gui () =
       self#main#saveMenuItem#misc#set_sensitive true
         
     method console = console
-    method sourceView: GSourceView.source_view =
-      (source_view: GSourceView.source_view)
+    method sourceView: GSourceView2.source_view =
+      (source_view: GSourceView2.source_view)
     method fileSel = fileSel
     method findRepl = findRepl
     method main = main
index f2376406a07009a1f03aa17fb87c0dd4aa0708dd..d25735d4aebf1abd36271ede520e6f1964efdd9f 100644 (file)
@@ -52,7 +52,7 @@ object
 (*   method toolbar :      MatitaGeneratedGui.toolBarWin *)
 
   method console:       console
-  method sourceView:    GSourceView.source_view
+  method sourceView:    GSourceView2.source_view
 
     (** {2 Dialogs instantiation}
      * methods below create a new window on each invocation. You should
index d674498cf166cc82aa55402de59f23c31c2dff59..71e7cb55334540bbbf61640ecf5b2f2d4b5fcec7 100644 (file)
@@ -981,7 +981,7 @@ class cicBrowser_impl ~(history:MatitaTypes.mathViewer_entry MatitaMisc.history)
     combo#set_active (aux 0 queries);
   in
   let searchText = 
-    GSourceView.source_view ~auto_indent:false ~editable:false ()
+    GSourceView2.source_view ~auto_indent:false ~editable:false ()
   in
   let _ =
      win#scrolledwinContent#add (searchText :> GObj.widget);
index 3f354ab62a02546572ec0b309c4302102321f2e7..2186b75b5ff2d4c9914861031920487d86498197 100644 (file)
@@ -691,7 +691,7 @@ let fresh_script_id =
   let i = ref 0 in
   fun () -> incr i; !i
 
-class script  ~(source_view: GSourceView.source_view)
+class script  ~(source_view: GSourceView2.source_view)
               ~(mathviewer: MatitaTypes.mathViewer) 
               ~set_star
               ~ask_confirmation
index a07735333414f52a731e30b78a4b098d65ff6e08..e1369617dc91823f70f4646d9856c11335917ce2 100644 (file)
@@ -90,7 +90,7 @@ end
   (** @param set_star callback used to set the modified symbol (usually a star
    * "*") on the side of a script name *)
 val script: 
-  source_view:GSourceView.source_view -> 
+  source_view:GSourceView2.source_view -> 
   mathviewer: MatitaTypes.mathViewer-> 
   urichooser: (UriManager.uri list -> UriManager.uri list) -> 
   ask_confirmation: