1 files changed, 36 insertions, 6 deletions
diff --git a/ide/wg_Command.mli b/ide/wg_Command.mli
index 2245befe7..92ad858f4 100644
--- a/ide/wg_Command.mli
+++ b/ide/wg_Command.mli
@@ -6,13 +6,43 @@
 (*         *       GNU Lesser General Public License Version 2.1        *)
 (************************************************************************)
 
-class command_window : Coq.coqtop ->
-    mark_as_broken:(Stateid.t list -> unit) ->
-    mark_as_processed:(Stateid.t list -> unit) ->
-    cur_state:(unit -> Stateid.t) ->
+class type detachable_signals =
   object
-    method new_command : ?command:string -> ?term:string -> unit -> unit
-    method frame : GBin.frame
+    inherit GContainer.container_signals
+    method attached : callback:(GObj.widget -> unit) -> unit
+    method detached : callback:(GObj.widget -> unit) -> unit
+  end
+
+class detachable : ([> Gtk.box] as 'a) Gobject.obj ->
+  object
+    inherit GPack.box_skel
+    val obj : Gtk.box Gobject.obj
+    method connect : detachable_signals
+    method child : GObj.widget
+    method show : unit
+    method hide : unit
+    method visible : bool
+    method title : string
+    method set_title : string -> unit
+
+  end
+
+val detachable :
+  ?title:string ->
+  ?homogeneous:bool ->
+  ?spacing:int ->
+  ?border_width:int ->
+  ?width:int ->
+  ?height:int ->
+  ?packing:(GObj.widget -> unit) -> ?show:bool -> unit -> detachable
+
+class command_window : string -> Coq.coqtop ->
+  object
+    method new_query : ?command:string -> ?term:string -> unit -> unit
+    method pack_in : (GObj.widget -> unit) -> unit
     method refresh_font : unit -> unit
     method refresh_color : unit -> unit
+    method show : unit
+    method hide : unit
+    method visible : bool
   end