diff options
| author | damien <damien@mandriva.com> | 2001-04-13 09:15:32 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-13 09:15:32 +0000 |
| commit | 4c104ee957bcc7506b75401afe3085ba7cb97c6a (patch) | |
| tree | b357cfd872bed64651a9df97a76f3d0daf937257 /perl-install | |
| parent | f6b2f1c7437fe0f29f17858eeda660cebe7a4722 (diff) | |
| download | drakx-4c104ee957bcc7506b75401afe3085ba7cb97c6a.tar drakx-4c104ee957bcc7506b75401afe3085ba7cb97c6a.tar.gz drakx-4c104ee957bcc7506b75401afe3085ba7cb97c6a.tar.bz2 drakx-4c104ee957bcc7506b75401afe3085ba7cb97c6a.tar.xz drakx-4c104ee957bcc7506b75401afe3085ba7cb97c6a.zip | |
added delete event
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index f8f676dec..a74753be7 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -76,6 +76,7 @@ $button_del->signal_connect( clicked => sub { my $dialog = new Gtk::Dialog(); $dialog->set_position(1); $dialog->vbox->set_border_width(10); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); $dialog->vbox->pack_start(new Gtk::Label(_("Profile to delete:")),1,1,0); my $combo_dialog = new Gtk::Combo; $combo_dialog->set_popdown_strings ( grep { ! /default/ } netconnect::get_profiles() ); @@ -109,6 +110,7 @@ $button_new->signal_connect( clicked => sub { my $dialog = new Gtk::Dialog(); $dialog->set_position(1); $dialog->vbox->set_border_width(10); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); $dialog->vbox->pack_start(new Gtk::Label(_("Name of the profile to create:")),1,1,0); my $entry_dialog = new Gtk::Entry; $dialog->vbox->pack_start($entry_dialog,1,1,0); @@ -171,8 +173,10 @@ $table1->attach($label8, 1, 2, 2, 3, 'fill', 'fill',0,0); my $button2 = new Gtk::Button($c ? _("Disconnect...") : _("Connect...")); $button2->signal_connect (clicked => sub { my $dialog = new Gtk::Dialog(); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); $dialog->set_position(1); $dialog->vbox->set_border_width(10); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); $dialog->vbox->pack_start(my $l = new Gtk::Label(""),1,1,0); my $bbox_dialog = new Gtk::HButtonBox; $dialog->action_area->add($bbox_dialog); @@ -284,6 +288,7 @@ $button_ok->signal_connect ( clicked => sub { $dialog->set_position(1); $dialog->vbox->set_border_width(10); my $label = new Gtk::Label(_("Please Wait... Applying the configuration")); + $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); }); $dialog->vbox->pack_start($label,1,1,20); $dialog->show_all; Gtk->main_iteration while Gtk->events_pending; |