(* Virt resize UI.
 * Copyright (C) 2011 Red Hat Inc.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License along
 * with this program; if not, write to the Free Software Foundation, Inc.,
 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 *)

(** The Source_tab module handles the "Source" tab in the main window. *)

type file_input
type libvirt_input
type inspection

class tab : GPack.table -> unit GUtil.signal -> unit GUtil.signal ->
  file_input -> libvirt_input -> inspection ->
object ('a)
  inherit GObj.widget

  val obj : Gtk.widget Gtk.obj
  method after : 'a
  method disconnect : GtkSignal.id -> unit

  (** Signal [not_ready] is raised when the source tab has missing
      information.  This is the initial state of the tab. *)
  method not_ready : callback:(unit -> unit) -> GtkSignal.id

  (** Signal [ready] is raised when the user has provided all the
      information requested, and the source disk image or guest has
      been opened successfully. *)
  method ready : callback:(unit -> unit) -> GtkSignal.id
end

val tab : unit -> tab