From 0f62118094b4833b3fea71137ee8ab5e2434ab7a Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 6 Sep 2004 15:06:14 +0000
Subject: toplevels are now transient

---
 src/ivymon | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/ivymon b/src/ivymon
index 3bfda55..81a9cfc 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -1067,6 +1067,7 @@ sub filterClient {
     # sinon, on la crée
     } else {
 	my $tpl = $mw->Toplevel;
+	$tpl->transient($mw);
 	my $title = "$client messages";
 	$tpl->title($title);
 	$tpl->Label(-text => $title)->pack(-side => 'top',
@@ -1118,6 +1119,7 @@ sub showClientBindings {
     my $tpl = $clientBindingsTpl{$client};
     $tpl->destroy if defined $tpl and Tk::Exists($tpl);
     $tpl = $mw->Toplevel;
+    $tpl->transient($mw);
     $clientBindingsTpl{$client} = $tpl;
     my $title = "Ivy bindings of $client application";
     $tpl->title($title);
@@ -2114,6 +2116,7 @@ sub loadfileForReplay {
     # build replay window
     $replay_tpl->destroy if defined $replay_tpl and Tk::Exists($replay_tpl);
     $replay_tpl = $mw->Toplevel;
+    $replay_tpl->transient($mw);
     $replay_tpl->title("Replay mode");
     my $ctrl_fm = $replay_tpl->Frame()->pack(-side => 'bottom', -pady => 5);
     $replay_text = $replay_tpl->Scrolled('Text',
@@ -2350,6 +2353,7 @@ sub savefile {
 sub save {
 
     my $tpl = $mw->Toplevel;
+    $tpl->transient($mw);
     $tpl->Popup;
     $tpl->title("Save");
     $tpl->geometry("200x50");
-- 
cgit v1.1