diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-10-10 12:46:07 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:38 +0100 |
| commit | 6864e4fc1bac9084c26ba4d502350c128c10ef6f (patch) | |
| tree | 708af356203c4c14592ff0eb2421c08ce0854bc6 /perl-install/interactive/gtk.pm | |
| parent | dd189f07e45b5d9a9bfac188a046eb7394db6d84 (diff) | |
| download | drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.gz drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.bz2 drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.tar.xz drakx-6864e4fc1bac9084c26ba4d502350c128c10ef6f.zip | |
(wait_messageW) prevent calling set_title() w/o a title
Diffstat (limited to 'perl-install/interactive/gtk.pm')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 5a8f00ba7..b54813bb0 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -921,7 +921,7 @@ sub wait_messageW { Glib::Source->remove($reuse_timeout) if $reuse_timeout; $reuse_timeout = ''; my $Window = gtknew('MagicWindow', - title => $title, + if_($title, title => $title), pop_it => defined $o->{pop_wait_messages} ? $o->{pop_wait_messages} : 1, pop_and_reuse => $::isInstall, modal => 1, |