Cleaning up widget code and using a naming convention for such files.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15232 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 38 insertions, 0 deletions

diff --git a/ide/wg_Notebook.mli b/ide/wg_Notebook.mli
new file mode 100644
index 0000000000..d413a4b02d
--- /dev/null
+++ b/ide/wg_Notebook.mli
@@ -0,0 +1,38 @@
+(************************************************************************)
+(*  v      *   The Coq Proof Assistant  /  The Coq Development Team     *)
+(* <O___,, *   INRIA - CNRS - LIX - LRI - PPS - Copyright 1999-2010     *)
+(*   \VV/  **************************************************************)
+(*    //   *      This file is distributed under the terms of the       *)
+(*         *       GNU Lesser General Public License Version 2.1        *)
+(************************************************************************)
+
+class ['a] typed_notebook :
+  ('a -> GObj.widget option * GObj.widget option * GObj.widget) ->
+  ('a -> unit) ->
+  Gtk.notebook Gtk.obj ->
+object
+  inherit GPack.notebook
+  method append_term : 'a -> int
+  method prepend_term : 'a -> int
+  method set_term : 'a -> unit
+  method get_nth_term : int -> 'a
+  method term_num : 'a -> int
+  method pages : 'a list
+  method remove_page : int -> unit
+  method current_term : 'a
+end
+
+val create :
+  ('a -> GObj.widget option * GObj.widget option * GObj.widget) ->
+  ('a -> unit) ->
+  ?enable_popup:bool ->
+  ?homogeneous_tabs:bool ->
+  ?scrollable:bool ->
+  ?show_border:bool ->
+  ?show_tabs:bool ->
+  ?tab_border:int ->
+  ?tab_pos:Gtk.Tags.position ->
+  ?border_width:int ->
+  ?width:int ->
+  ?height:int ->
+  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> 'a typed_notebook