From de003342d0a8d70b42be4b979326725799bc17c8 Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 6 Sep 2004 15:26:57 +0000
Subject: transient windows are supressed. the replay window will be iconified
 when the main window will be created with the -iconic option.

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

(limited to 'src')

diff --git a/src/ivymon b/src/ivymon
index 81a9cfc..7a7ac51 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -1067,7 +1067,7 @@ sub filterClient {
     # sinon, on la crée
     } else {
 	my $tpl = $mw->Toplevel;
-	$tpl->transient($mw);
+	$tpl->group($mw);
 	my $title = "$client messages";
 	$tpl->title($title);
 	$tpl->Label(-text => $title)->pack(-side => 'top',
@@ -1119,7 +1119,6 @@ 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);
@@ -2116,7 +2115,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->iconify if $mw->state eq 'iconic';
     $replay_tpl->title("Replay mode");
     my $ctrl_fm = $replay_tpl->Frame()->pack(-side => 'bottom', -pady => 5);
     $replay_text = $replay_tpl->Scrolled('Text',
@@ -2353,7 +2352,6 @@ sub savefile {
 sub save {
 
     my $tpl = $mw->Toplevel;
-    $tpl->transient($mw);
     $tpl->Popup;
     $tpl->title("Save");
     $tpl->geometry("200x50");
-- 
cgit v1.1