summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/my_gtk.pm2
-rw-r--r--perl-install/network/adsl.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 93dcbf258..120a307fb 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -534,7 +534,7 @@ sub _create_window($$) {
my ($o, $title) = @_;
my $w = new Gtk::Window;
my $gc = Gtk::Gdk::GC->new(gtkroot());
- !$::isStandalone && !$::live && !$::g_auto_install and $my_gtk::shape_width = 5;
+ !$::isStandalone && !$::live && !$::g_auto_install and $my_gtk::shape_width = 3;
#- $gc->set_foreground(gtkcolor(8448, 17664, 40191)); #- in hex : 33, 69, 157
$gc->set_foreground(gtkcolor(5120, 10752, 22784)); #- in hex : 20, 42, 89
#- $gc->set_foreground(gtkcolor(16896, 16896, 16896)); #- in hex : 66, 66, 66
diff --git a/perl-install/network/adsl.pm b/perl-install/network/adsl.pm
index 0d97eb29c..b8356dd6e 100644
--- a/perl-install/network/adsl.pm
+++ b/perl-install/network/adsl.pm
@@ -19,7 +19,7 @@ sub configure {
my $type = $in->ask_from_list_(_("Connect to the Internet"),
_("The most common way to connect with adsl is pppoe.
Some connections use pptp, a few ones use dhcp.
-If you don't know, choose 'use pppoe'"), [__("use pppoe"), __("use pptp"), __("use dhcp"), __("Alcatel Speedtouch usb")]) or return;
+If you don't know, choose 'use pppoe'"), [__("use pppoe"), __("use pptp"), __("use dhcp"), __("Alcatel speedtouch usb")]) or return;
$type =~ s/use //;
if ($type eq 'pppoe') {
$in->do_pkgs->install("rp-$type");