diff options
| -rwxr-xr-x | src/ivymon | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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"); |