summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:27:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-12-10 13:27:35 +0000
commit2673c790584aee3fa0e2fc866e82e77ca279dbd0 (patch)
treec58a159a7a5dda4f6d82fa44ec64246f1b6b05b4 /perl-install
parentd2433a73d2802850ba172e0afd7f7d69d31b96a8 (diff)
downloaddrakx-backup-do-not-use-2673c790584aee3fa0e2fc866e82e77ca279dbd0.tar
drakx-backup-do-not-use-2673c790584aee3fa0e2fc866e82e77ca279dbd0.tar.gz
drakx-backup-do-not-use-2673c790584aee3fa0e2fc866e82e77ca279dbd0.tar.bz2
drakx-backup-do-not-use-2673c790584aee3fa0e2fc866e82e77ca279dbd0.tar.xz
drakx-backup-do-not-use-2673c790584aee3fa0e2fc866e82e77ca279dbd0.zip
fix gtk+2 port
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect46
1 files changed, 23 insertions, 23 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 2f02aa659..1026ca30e 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -93,7 +93,7 @@ $button_del->signal_connect(clicked => sub {
my $dialog = new Gtk2::Dialog();
$dialog->set_position('center');
$dialog->vbox->set_border_width(10);
- $dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
+ $dialog->signal_connect (delete_event => sub { Gtk2->main_quit() });
$dialog->vbox->pack_start(new Gtk2::Label(N("Profile to delete:")),1,1,0);
my $combo_dialog = new Gtk2::Combo;
$combo_dialog->set_popdown_strings (grep { ! /default/ } network::netconnect::get_profiles());
@@ -106,15 +106,15 @@ $button_del->signal_connect(clicked => sub {
$button_ok->signal_connect (clicked => sub {
network::netconnect::del_profile($netcnx, $combo_dialog->entry->get_text());
$netcnx->{PROFILE} eq $combo_dialog->entry->get_text() and $netcnx->{PROFILE} = "default";
- Gtk->main_quit();
+ Gtk2->main_quit();
});
$bbox_dialog->add($button_ok);
my $button_cancel = new Gtk2::Button(N("Cancel"));
- $button_cancel->signal_connect (clicked => sub { Gtk->main_quit() });
+ $button_cancel->signal_connect(clicked => sub { Gtk2->main_quit() });
$bbox_dialog->add($button_cancel);
$dialog->show_all;
$dialog->set_modal(1);
- Gtk->main();
+ Gtk2->main();
$dialog->destroy;
$combo1->entry->set_text((-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $combo1->entry->get_text) ? $combo1->entry->get_text : "default");
$combo1->set_popdown_strings(network::netconnect::get_profiles());
@@ -127,7 +127,7 @@ $button_new->signal_connect(clicked => sub {
my $dialog = new Gtk2::Dialog();
$dialog->set_position('center');
$dialog->vbox->set_border_width(10);
- $dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
+ $dialog->signal_connect (delete_event => sub { Gtk2->main_quit() });
$dialog->vbox->pack_start(new Gtk2::Label(N("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0);
my $entry_dialog = new Gtk2::Entry;
$dialog->vbox->pack_start($entry_dialog,1,1,0);
@@ -138,15 +138,15 @@ $button_new->signal_connect(clicked => sub {
$button_ok->signal_connect (clicked => sub {
network::netconnect::add_profile($netcnx, $entry_dialog->get_text());
$netcnx->{PROFILE} = $entry_dialog->get_text();
- Gtk->main_quit();
+ Gtk2->main_quit();
});
$bbox_dialog->add($button_ok);
my $button_cancel = new Gtk2::Button(N("Cancel"));
- $button_cancel->signal_connect (clicked => sub { Gtk->main_quit() });
+ $button_cancel->signal_connect (clicked => sub { Gtk2->main_quit() });
$bbox_dialog->add($button_cancel);
$dialog->show_all;
$dialog->set_modal(1);
- Gtk->main();
+ Gtk2->main();
$dialog->destroy;
$combo1->entry->set_text((-e "/etc/sysconfig/network-scripts/drakconnect_conf." . $netcnx->{PROFILE}) ? $netcnx->{PROFILE} : "default");
$combo1->set_popdown_strings(network::netconnect::get_profiles());
@@ -296,7 +296,7 @@ $button_ok->signal_connect (clicked => sub {
$dialog->set_position('center');
$dialog->vbox->set_border_width(10);
my $label = new Gtk2::Label(N("Please Wait... Applying the configuration"));
- $dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
+ $dialog->signal_connect (delete_event => sub { Gtk2->main_quit() });
$dialog->vbox->pack_start($label,1,1,20);
$dialog->show_all;
gtkflush();
@@ -320,7 +320,7 @@ $window1->{rwindow}->show_all();
$_->hide foreach ($button1, $button3);
gtkflush();
$::isEmbedded and kill 'USR2', $::CCPID;
-my $tag = Gtk->timeout_add(4000, \&update2);
+my $tag = Gtk2->timeout_add(4000, \&update2);
$window1->main;
ugtk2->exit(0);
@@ -423,24 +423,24 @@ sub configure_lan {
my $dialog = new Gtk2::Dialog();
$dialog->set_position('center');
$dialog->vbox->set_border_width(10);
- $dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
+ $dialog->signal_connect (delete_event => sub { Gtk2->main_quit() });
$dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any configured interface.
Configure them first by clicking on 'Configure'")),1,1,0);
my $bbox_dialog = new Gtk2::HButtonBox;
$dialog->action_area->add($bbox_dialog);
$bbox_dialog->set_layout('end');
my $button_ok = new Gtk2::Button(N("OK"));
- $button_ok->signal_connect (clicked => sub { Gtk->main_quit() });
+ $button_ok->signal_connect(clicked => sub { Gtk2->main_quit() });
$bbox_dialog->add($button_ok);
$dialog->show_all;
$dialog->set_modal(1);
- Gtk->main();
+ Gtk2->main();
$dialog->destroy;
return;
}
$window->set_policy (1, 1, 1);
- $window->signal_connect (delete_event => sub { Gtk->main_quit });
+ $window->signal_connect (delete_event => sub { Gtk2->main_quit });
$window->set_position('center');
$window->set_title(N("LAN configuration"));
$window->border_width(10);
@@ -528,11 +528,11 @@ Configure them first by clicking on 'Configure'")),1,1,0);
}
update();
$button_apply->set_sensitive(1);
- $window->destroy(); Gtk->main_quit;
+ $window->destroy(); Gtk2->main_quit;
});
$bbox1->add($button_ok);
my $button_cancel = new Gtk2::Button(N("Cancel"));
- $button_cancel->signal_connect (clicked => sub { $window->destroy(); Gtk->main_quit });
+ $button_cancel->signal_connect (clicked => sub { $window->destroy(); Gtk2->main_quit });
$bbox1->add($button_cancel);
$window->set_modal(1);
@@ -542,7 +542,7 @@ Configure them first by clicking on 'Configure'")),1,1,0);
$intf->{"eth$_"}{BOOTPROTO} eq "dhcp" or $infos[8]->hide;
}
$window->set_position('center_always');
- Gtk->main;
+ Gtk2->main;
}
@@ -552,7 +552,7 @@ sub configure_net {
my $dialog = new Gtk2::Dialog();
$dialog->set_position('center');
$dialog->vbox->set_border_width(10);
- $dialog->signal_connect (delete_event => sub { Gtk->main_quit() });
+ $dialog->signal_connect (delete_event => sub { Gtk2->main_quit() });
$dialog->vbox->pack_start(new Gtk2::Label(N("You don't have any internet connection.
Create one first by clicking on 'Configure'")),1,1,0);
my $bbox_dialog = new Gtk2::HButtonBox;
@@ -560,12 +560,12 @@ Create one first by clicking on 'Configure'")),1,1,0);
$bbox_dialog->set_layout('end');
my $button_ok = new Gtk2::Button(N("OK"));
$button_ok->signal_connect (clicked => sub {
- Gtk->main_quit();
+ Gtk2->main_quit();
});
$bbox_dialog->add($button_ok);
$dialog->show_all;
$dialog->set_modal(1);
- Gtk->main();
+ Gtk2->main();
$dialog->destroy;
return;
}
@@ -575,7 +575,7 @@ Create one first by clicking on 'Configure'")),1,1,0);
my $auto_detect = {};
my $window = new Gtk2::Window -toplevel;
$window->set_policy (1, 1, 1);
- $window->signal_connect (delete_event => sub { Gtk->main_quit });
+ $window->signal_connect (delete_event => sub { Gtk2->main_quit });
$window->set_position('center');
$window->set_title(N("Internet connection configuration"));
$window->border_width(10);
@@ -671,7 +671,7 @@ Create one first by clicking on 'Configure'")),1,1,0);
}
update();
$button_apply->set_sensitive(1);
- $window->destroy(); Gtk->main_quit;
+ $window->destroy(); Gtk2->main_quit;
});
$bbox1->add($button_ok);
my $button_cancel = new Gtk2::Button(N("Cancel"));
@@ -687,5 +687,5 @@ Create one first by clicking on 'Configure'")),1,1,0);
$i++;
}
$window->set_position('center_always');
- Gtk->main;
+ Gtk2->main;
}