From 3dff646f68c045dbad71d545353e388461fbd909 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Tue, 27 Jan 2015 23:57:52 +0100
Subject: Made the CoqIDE progress gutter clickable.

---
 ide/wg_Segment.mli | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'ide/wg_Segment.mli')

diff --git a/ide/wg_Segment.mli b/ide/wg_Segment.mli
index ecb451475..0263856ae 100644
--- a/ide/wg_Segment.mli
+++ b/ide/wg_Segment.mli
@@ -8,10 +8,18 @@
 
 type color = GDraw.color
 
+class type segment_signals =
+object
+  inherit GObj.misc_signals
+  inherit GUtil.add_ml_signals
+  method clicked : callback:(int -> unit) -> GtkSignal.id
+end
+
 class segment : unit ->
   object
     inherit GObj.widget
     val obj : Gtk.widget Gtk.obj
+    method connect : segment_signals
     method length : int
     method set_length : int -> unit
     method default_color : color
-- 
cgit v1.2.3