* If this returns None, then it's a top-level row which is
* selected (ie. a connection), so just ignore.
*)
* If this returns None, then it's a top-level row which is
* selected (ie. a connection), so just ignore.
*)
| Some parent ->
try
let (_, col_domname, _, _, _, col_id) = columns in
| Some parent ->
try
let (_, col_domname, _, _, _, col_id) = columns in
let domid = model#get ~row ~column:col_id in
if domid = -1 then ( (* Inactive domain. *)
let domname = model#get ~row ~column:col_domname in
let dom = D.lookup_by_name conn domname in
let info = D.get_info dom in
let domid = model#get ~row ~column:col_id in
if domid = -1 then ( (* Inactive domain. *)
let domname = model#get ~row ~column:col_domname in
let dom = D.lookup_by_name conn domname in
let info = D.get_info dom in
- Some (dom, info, -1)
- ) else if domid > 0 then ( (* Active domU. *)
+ Some (dom, info, connid, -1)
+ ) else ( (* Active domU. *)
- Some (dom, info, domid)
- ) else (* Dom0 - ignore. *)
- None
+ Some (dom, info, connid, domid)
+ )
if domid >= 0 && info.D.state <> D.InfoPaused then
D.suspend dom
let resume_domain tree model columns () =
match get_domain tree model columns with
| None -> ()
if domid >= 0 && info.D.state <> D.InfoPaused then
D.suspend dom
let resume_domain tree model columns () =
match get_domain tree model columns with
| None -> ()
if domid >= 0 && info.D.state = D.InfoPaused then
D.resume dom
let shutdown_domain tree model columns () =
match get_domain tree model columns with
| None -> ()
if domid >= 0 && info.D.state = D.InfoPaused then
D.resume dom
let shutdown_domain tree model columns () =
match get_domain tree model columns with
| None -> ()
+
+let open_domain_details tree model columns () =
+ match get_domain tree model columns with
+ | None -> ()
+ | Some (dom, info, connid, domid) ->
+ if domid >= 0 then (
+
+
+
+ )