diff options
| author | Pascal Terjan <pterjan@mandriva.org> | 2009-01-21 15:26:51 +0000 |
|---|---|---|
| committer | Pascal Terjan <pterjan@mandriva.org> | 2009-01-21 15:26:51 +0000 |
| commit | a635a3a7f9ed9c16ec68131f13639fbd5475ace0 (patch) | |
| tree | 810258f1cdf59608281cbe13a01cc956b418666f /perl-install/standalone/drakdvb | |
| parent | 008c267b6fb1589938fc9baee4b06360461487eb (diff) | |
| download | drakx-a635a3a7f9ed9c16ec68131f13639fbd5475ace0.tar drakx-a635a3a7f9ed9c16ec68131f13639fbd5475ace0.tar.gz drakx-a635a3a7f9ed9c16ec68131f13639fbd5475ace0.tar.bz2 drakx-a635a3a7f9ed9c16ec68131f13639fbd5475ace0.tar.xz drakx-a635a3a7f9ed9c16ec68131f13639fbd5475ace0.zip | |
Handle closing by window manager
Diffstat (limited to 'perl-install/standalone/drakdvb')
| -rw-r--r-- | perl-install/standalone/drakdvb | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone/drakdvb b/perl-install/standalone/drakdvb index bfb3c83df..ef7fdf7ed 100644 --- a/perl-install/standalone/drakdvb +++ b/perl-install/standalone/drakdvb @@ -29,6 +29,7 @@ use Gtk2::SimpleList; my $title = N("DVB"); $ugtk2::wm_icon = "/usr/share/mcc/themes/default/tv-mdk.png"; my $w = ugtk2->new($title); +$w->{window}->signal_connect('destroy' => \&exitapp); $::main_window = $w->{real_window}; my $in = 'interactive'->vnew; @@ -37,7 +38,7 @@ my $config_file = "$ENV{HOME}/.mplayer/channels.conf"; my $channel_list = Gtk2::SimpleList->new(N("Channel")=> "text", "id" => "hidden"); my %buttons; my $pid; -my $_w = ugtk2->new(N("Please wait"), grab => 1); +my $_w; sub get_selected_channel() { my ($index) = $channel_list->get_selected_indices; @@ -71,6 +72,8 @@ sub detect_channels { $buttons{detect}->set_sensitive(1); $channel_list->set_sensitive(1); }; + $_w = ugtk2->new(N("Please wait"), grab => 1); + $_w->{window}->signal_connect('destroy' => \&exitapp); if ($pid = fork()) { gtkadd($_w->{window}, gtkpack($_w->create_box_with_title(N("Detecting DVB channels, this will take a few minutes")), |