From 025dcd0766c8801a85d5708cc96b729b513eea60 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 9 Apr 2019 14:50:15 +0200
Subject: Hacking a completion widget based on the default GtkSourceView one.

---
 ide/wg_ScriptView.ml | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'ide/wg_ScriptView.ml')

diff --git a/ide/wg_ScriptView.ml b/ide/wg_ScriptView.ml
index 769ce61ee1..098b09601f 100644
--- a/ide/wg_ScriptView.ml
+++ b/ide/wg_ScriptView.ml
@@ -287,18 +287,17 @@ end
 class script_view (tv : source_view) (ct : Coq.coqtop) =
 
 let view = new GSourceView3.source_view (Gobject.unsafe_cast tv) in
-let completion = new Wg_Completion.complete_model ct view#buffer in
-let popup = new Wg_Completion.complete_popup completion (view :> GText.view) in
+let provider = new Wg_Completion.completion_provider ct in
 
 object (self)
   inherit GSourceView3.source_view (Gobject.unsafe_cast tv)
 
   val undo_manager = new undo_manager view#buffer
 
-  method auto_complete = completion#active
+  method auto_complete = provider#active
 
   method set_auto_complete flag =
-    completion#set_active flag
+    provider#set_active flag
 
   method recenter_insert =
     self#scroll_to_mark
@@ -448,7 +447,7 @@ object (self)
     self#buffer#delete_mark (`MARK insert_mark)
 
 
-  method complete_popup = popup
+  method proposal : string option = None (* FIXME *)
 
   method undo = undo_manager#undo
   method redo = undo_manager#redo
@@ -531,6 +530,10 @@ object (self)
     let cb ft = self#misc#modify_font (GPango.font_description_from_string ft) in
     stick text_font self cb;
 
+    let () = self#completion#set_accelerators 0 in
+    let () = self#completion#set_show_headers false in
+    let _ = self#completion#add_provider (provider :> GSourceView3.source_completion_provider) in
+
     ()
 
 end
-- 
cgit v1.2.3


From c2d83dbb97a2a3090e1f3a1bf5a714bf5093dab9 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Sun, 5 May 2019 18:54:39 +0200
Subject: Adding an option to change the autocompletion delay.

---
 ide/wg_ScriptView.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'ide/wg_ScriptView.ml')

diff --git a/ide/wg_ScriptView.ml b/ide/wg_ScriptView.ml
index 098b09601f..b7a35d7e94 100644
--- a/ide/wg_ScriptView.ml
+++ b/ide/wg_ScriptView.ml
@@ -526,6 +526,7 @@ object (self)
     stick spaces_instead_of_tabs self self#set_insert_spaces_instead_of_tabs;
     stick tab_length self self#set_tab_width;
     stick auto_complete self self#set_auto_complete;
+    stick auto_complete_delay self (fun d -> self#completion#set_auto_complete_delay d);
 
     let cb ft = self#misc#modify_font (GPango.font_description_from_string ft) in
     stick text_font self cb;
-- 
cgit v1.2.3