diff options
26 files changed, 208 insertions, 212 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 8b6cef11a..5a73684bb 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -97,12 +97,12 @@ my $a_box = new Gtk::VBox(0, 0); my $x_box = new Gtk::VBox(0, 0); my $disp_mode = arch() =~ /ppc/ ? N("Yaboot mode") : N("Lilo/grub mode"); -my %themes = ('path' =>'/usr/share/bootsplash/themes/', - 'default' =>'Mandrake', - 'def_thmb' =>'/usr/share/libDrakX/pixmaps/nosplash_thumb.png', - 'lilo' => {'file' =>'/lilo/message', - 'thumb' =>'/lilo/thumb.png' }, - 'boot' => {'path' =>'/images/', +my %themes = ('path' => '/usr/share/bootsplash/themes/', + 'default' => 'Mandrake', + 'def_thmb' => '/usr/share/libDrakX/pixmaps/nosplash_thumb.png', + 'lilo' => {'file' => '/lilo/message', + 'thumb' => '/lilo/thumb.png' }, + 'boot' => {'path' => '/images/', #'thumb'=>'/images/thumb.png', }, ); @@ -128,7 +128,7 @@ foreach (all('.')) { } # $_ eq $themes{'defaut'} and $default = $themes{'defaut'}; } -my %combo = ('thms' => '','lilo' => '','boot' => ''); +my %combo = ('thms' => '', 'lilo' => '', 'boot' => ''); foreach (keys(%combo)) { $combo{$_} = new Gtk::Combo; $combo{$_}->set_value_in_list(1, 0); @@ -166,7 +166,7 @@ $combo{'lilo'}->entry->signal_connect(changed => sub { undef($lilo_pixbuf); $lilo_pixbuf = gtkcreate_png_pixbuf(-r $new_file ? $new_file : $themes{'def_thmb'}); $lilo_pixbuf = $lilo_pixbuf->scale_simple(155,116,0); - $lilo_pic->set($lilo_pixbuf->render_pixmap_and_mask(0),''); + $lilo_pic->set($lilo_pixbuf->render_pixmap_and_mask(0), ''); }); $no_bootsplash == 0 @@ -175,7 +175,7 @@ $no_bootsplash == 0 undef($boot_pixmap); $boot_pixmap = gtkcreate_png_pixbuf( $img_file); $boot_pixmap = $boot_pixmap->scale_simple(155,116,0); - $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0),''); + $boot_pic->set($boot_pixmap->render_pixmap_and_mask(0), ''); }); $combo{'thms'}->entry->set_text($themes{'default'}); @@ -190,9 +190,9 @@ sub { if (-f $themes{'path'}.$combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}) { use MDK::Common::File; standalone::explanations(N("Backup %s to %s.old",$lilomsg,$lilomsg)); - cp_af($lilomsg,"/boot/message-graphic.old"); + cp_af($lilomsg, "/boot/message-graphic.old"); #can't use this anymore or $in->ask_warn(N("Error"), N("unable to backup lilo message")); - standalone::explanations(N("Copy %s to %s",$themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'},$lilomsg)); + standalone::explanations(N("Copy %s to %s", $themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'},$lilomsg)); cp_af($themes{'path'} . $combo{'lilo'}->entry->get_text() . $themes{'lilo'}{'file'}, $lilomsg); #can't use this anymore or $in->ask_warn(N("Error"), N("can't change lilo message")); } else { @@ -233,7 +233,7 @@ LOGO_CONSOLE=" . ($keep_logo ? 'yes' : 'no') . "\n"; $error = 1; } } else { - $in->ask_warn("Error","BootSplash screen not found"); + $in->ask_warn("Error", "BootSplash screen not found"); } #here is mkinitrd time if (!$error) { @@ -264,9 +264,9 @@ gtkadd($window, gtkadd(new Gtk::Frame ("$disp_mode"), # gtkpack__(new Gtk::VBox(0,0), (gtkpack_(gtkset_border_width(new Gtk::HBox(0, 0),5), - 1,N("You are currently using %s as your boot manager. + 1, N("You are currently using %s as your boot manager. Click on Configure to launch the setup wizard.", $lilogrub), - 0,gtksignal_connect(new Gtk::Button (N("Configure")), clicked => $::lilo_choice), + 0, gtksignal_connect(new Gtk::Button (N("Configure")), clicked => $::lilo_choice), )), # "" #we need some place under the button -- replaced by gtkset_border_width( for the moment # ) @@ -339,7 +339,7 @@ Click on Configure to launch the setup wizard.", $lilogrub), ) ) ), - gtkadd (gtkset_layout(new Gtk::HButtonBox,-end), + gtkadd (gtkset_layout(new Gtk::HButtonBox, -end), gtksignal_connect(new Gtk::Button(N("OK")), clicked => sub { updateInit(); updateAutologin(); updateAurora(); $::isEmbedded ? kill('USR1',$::CCPID) : Gtk->exit(0) }), gtksignal_connect(new Gtk::Button(N("Cancel")), clicked => sub { $::isEmbedded ? kill('USR1', $::CCPID) : Gtk->exit(0) }) ) diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm index fd346495e..05ca2bac1 100644 --- a/perl-install/fsedit.pm +++ b/perl-install/fsedit.pm @@ -19,21 +19,21 @@ use fs; %suggestions = ( N_("simple") => [ - { mntpoint => "/", size => 300 << 11, type =>0x483, ratio => 5, maxsize =>5500 << 11 }, - { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 }, + { mntpoint => "/", size => 300 << 11, type =>0x483, ratio => 5, maxsize => 5500 << 11 }, + { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 }, { mntpoint => "/home", size => 300 << 11, type =>0x483, ratio => 3 }, ], N_("with /usr") => [ - { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize =>1000 << 11 }, - { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 }, - { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 4, maxsize =>4000 << 11 }, + { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize => 1000 << 11 }, + { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 1, maxsize => 250 << 11 }, + { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 4, maxsize => 4000 << 11 }, { mntpoint => "/home", size => 100 << 11, type =>0x483, ratio => 3 }, ], N_("server") => [ - { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize => 250 << 11 }, - { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 2, maxsize => 400 << 11 }, - { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 4, maxsize =>4000 << 11 }, + { mntpoint => "/", size => 150 << 11, type =>0x483, ratio => 1, maxsize => 250 << 11 }, + { mntpoint => "swap", size => 64 << 11, type => 0x82, ratio => 2, maxsize => 400 << 11 }, + { mntpoint => "/usr", size => 300 << 11, type =>0x483, ratio => 4, maxsize => 4000 << 11 }, { mntpoint => "/var", size => 150 << 11, type =>0x483, ratio => 3 }, { mntpoint => "/home", size => 150 << 11, type =>0x483, ratio => 3 }, - { mntpoint => "/tmp", size => 150 << 11, type =>0x483, ratio => 2, maxsize => 500 << 11 }, + { mntpoint => "/tmp", size => 150 << 11, type =>0x483, ratio => 2, maxsize => 500 << 11 }, ], ); foreach (values %suggestions) { diff --git a/perl-install/harddrake/data.pm b/perl-install/harddrake/data.pm index e6a6e362f..25909bb2d 100644 --- a/perl-install/harddrake/data.pm +++ b/perl-install/harddrake/data.pm @@ -21,19 +21,19 @@ sub unknown { our @tree = ( - ["FLOPPY","Floppy", "floppy.png", "",\&detect_devices::floppies, 0 ], - ["HARDDISK","Disk", "harddisk.png", "$sbindir/diskdrake", \&detect_devices::hds, 1 ], - ["CDROM","CDROM", "cd.png", "", sub { grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms }, 0 ], - ["BURNER","CD/DVD burners", "cd.png", "", \&detect_devices::burners(), 0 ], - ["DVDROM","DVD-ROM", "cd.png", "", sub { grep { ! detect_devices::isBurner($_) } detect_devices::dvdroms() }, 0 ], - ["TAPE","Tape", "tape.png", "", \&detect_devices::tapes, 0 ], - ["VIDEO","Videocard", "video.png", "$sbindir/XFdrake", sub { grep { $_->{driver} =~ /^(Card|Server):/ || $_->{media_type} =~ /DISPLAY_VGA/ } @devices }, 1 ], - ["TV","Tvcard", "tv.png", "/usr/bin/XawTV", sub { grep { ($_->{media_type} =~ 'MULTIMEDIA_VIDEO' && $_->{bus} eq 'PCI') || $_->{driver} eq 'usbvision' } @devices }, 0 ], - ["MULTIMEDIA_OTHER","Other MultiMedia devices", "multimedia.png", "", sub { grep { $_->{media_type} =~ /MULTIMEDIA_OTHER/ } @devices }, 0 ], - ["AUDIO","Soundcard", "sound.png", "$sbindir/draksound", sub { grep { $_->{media_type} =~ /MULTIMEDIA_AUDIO/ } @devices }, 0 ], - ["WEBCAM","Webcam", "webcam.png", "", sub { grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} ne 'PCI' } @devices }, 0 ], - ["CPU","Processors", "cpu.png", "", sub { detect_devices::getCPUs() }, 0 ], - ["ETHERNET","Ethernetcard", "hw_network.png", "$sbindir/drakconnect", sub { + ["FLOPPY", "Floppy", "floppy.png", "", \&detect_devices::floppies, 0 ], + ["HARDDISK", "Disk", "harddisk.png", "$sbindir/diskdrake", \&detect_devices::hds, 1 ], + ["CDROM", "CDROM", "cd.png", "", sub { grep { !(detect_devices::isBurner($_) || detect_devices::isDvdDrive($_)) } &detect_devices::cdroms }, 0 ], + ["BURNER", "CD/DVD burners", "cd.png", "", \&detect_devices::burners(), 0 ], + ["DVDROM", "DVD-ROM", "cd.png", "", sub { grep { ! detect_devices::isBurner($_) } detect_devices::dvdroms() }, 0 ], + ["TAPE", "Tape", "tape.png", "", \&detect_devices::tapes, 0 ], + ["VIDEO", "Videocard", "video.png", "$sbindir/XFdrake", sub { grep { $_->{driver} =~ /^(Card|Server):/ || $_->{media_type} =~ /DISPLAY_VGA/ } @devices }, 1 ], + ["TV", "Tvcard", "tv.png", "/usr/bin/XawTV", sub { grep { ($_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} eq 'PCI') || $_->{driver} eq 'usbvision' } @devices }, 0 ], + ["MULTIMEDIA_OTHER", "Other MultiMedia devices", "multimedia.png", "", sub { grep { $_->{media_type} =~ /MULTIMEDIA_OTHER/ } @devices }, 0 ], + ["AUDIO", "Soundcard", "sound.png", "$sbindir/draksound", sub { grep { $_->{media_type} =~ /MULTIMEDIA_AUDIO/ } @devices }, 0 ], + ["WEBCAM", "Webcam", "webcam.png", "", sub { grep { $_->{media_type} =~ /MULTIMEDIA_VIDEO/ && $_->{bus} ne 'PCI' } @devices }, 0 ], + ["CPU", "Processors", "cpu.png", "", sub { detect_devices::getCPUs() }, 0 ], + ["ETHERNET", "Ethernetcard", "hw_network.png", "$sbindir/drakconnect", sub { #- generic NIC detection for USB seems broken (class, subclass, #- protocol report are not accurate) so I'll need to verify against #- known drivers :-( @@ -41,25 +41,25 @@ our @tree = # should be taken from detect_devices.pm or modules.pm. it's identical grep { $_->{media_type} =~ /^NETWORK/ || member($_->{driver}, @usbnet) || $_->{type} eq 'network' } @devices }, 1 ], - ["MODEM","Modem", "modem.png", "", sub { detect_devices::getModem() }, 0 ], - ["BRIDGE","Bridge(s)", "memory.png", "", sub { grep { $_->{media_type} =~ /BRIDGE/ } @devices }, 0 ], - ["UNKNOWN","Unknown/Others", "unknown.png", "", \&unknown, 0 ], + ["MODEM", "Modem", "modem.png", "", sub { detect_devices::getModem() }, 0 ], + ["BRIDGE", "Bridge(s)", "memory.png", "", sub { grep { $_->{media_type} =~ /BRIDGE/ } @devices }, 0 ], + ["UNKNOWN", "Unknown/Others", "unknown.png", "", \&unknown, 0 ], - ["PRINTER","Printer", "hw_printer.png", "$sbindir/printerdrake", sub { + ["PRINTER", "Printer", "hw_printer.png", "$sbindir/printerdrake", sub { require printer::detect; printer::detect::detect() }, 0 ], - ["SCANNER","Scanner", "scanner.png", "$sbindir/scannerdrake", sub { + ["SCANNER", "Scanner", "scanner.png", "$sbindir/scannerdrake", sub { require scanner; scanner::detect() }, 0 ], - ["MOUSE","Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub { + ["MOUSE", "Mouse", "hw_mouse.png", "$sbindir/mousedrake", sub { require mouse; require modules; modules::mergein_conf('/etc/modules.conf') if -r '/etc/modules.conf'; &mouse::detect() }, 1 ], - ["JOYSTICK","Joystick", "joystick.png", "", sub {}, 0 ], + ["JOYSTICK", "Joystick", "joystick.png", "", sub {}, 0 ], - ["ATA_STORAGE","(E)IDE/ATA controllers", "ide_hd.png", "", sub { grep { $_->{media_type} =~ /STORAGE_(IDE|OTHER)/ } @devices }, 0 ], - ["SCSI_CONTROLLER","SCSI controllers", "scsi.png", "", sub { grep { $_->{media_type} =~ /STORAGE_SCSI/ } @devices }, 0 ], - ["USB_CONTROLLER","USB controllers", "usb.png", "", sub { grep { $_->{media_type} =~ /SERIAL_USB/ } @devices }, 0 ], - ["SMB_CONTROLLER","SMBus controllers", "usb.png", "", sub { grep { $_->{media_type} =~ /SERIAL_SMBUS/ } @devices }, 0 ], + ["ATA_STORAGE", "(E)IDE/ATA controllers", "ide_hd.png", "", sub { grep { $_->{media_type} =~ /STORAGE_(IDE|OTHER)/ } @devices }, 0 ], + ["SCSI_CONTROLLER", "SCSI controllers", "scsi.png", "", sub { grep { $_->{media_type} =~ /STORAGE_SCSI/ } @devices }, 0 ], + ["USB_CONTROLLER", "USB controllers", "usb.png", "", sub { grep { $_->{media_type} =~ /SERIAL_USB/ } @devices }, 0 ], + ["SMB_CONTROLLER", "SMBus controllers", "usb.png", "", sub { grep { $_->{media_type} =~ /SERIAL_SMBUS/ } @devices }, 0 ], ); diff --git a/perl-install/harddrake/sound.pm b/perl-install/harddrake/sound.pm index 15d7ad7df..5b85116c8 100644 --- a/perl-install/harddrake/sound.pm +++ b/perl-install/harddrake/sound.pm @@ -200,7 +200,7 @@ To use alsa, one can either use: $in->ask_warn(N("Warning"), N("The old \"%s\" driver is blacklisted.\n It has been reported to oopses the kernel on unloading.\n The new \"%s\" driver'll only be used on next bootstrap.", $driver, $new_driver)) if $blacklisted; - my $wait = $in->wait_message(N("Please wait"),N("Please Wait... Applying the configuration")); + my $wait = $in->wait_message(N("Please wait"), N("Please Wait... Applying the configuration")); do_switch($driver, $new_driver); undef $wait; } diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm index 6223c7be5..887245784 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm @@ -137,11 +137,11 @@ sub detect { $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(pci_bus pci_device pci_function); } # split description into manufacturer/description - ($_->{Vendor}, $_->{description}) = split(/\|/,$_->{description}) if exists $_->{description}; + ($_->{Vendor}, $_->{description}) = split(/\|/, $_->{description}) if exists $_->{description}; if (exists $_->{val}) { # Scanner ? my $val = $_->{val}; - ($_->{Vendor},$_->{description}) = split(/\|/, $val->{DESCRIPTION}); + ($_->{Vendor}, $_->{description}) = split(/\|/, $val->{DESCRIPTION}); } # EIDE detection incoherency: if (exists $_->{bus} && $_->{bus} eq 'ide') { @@ -276,7 +276,7 @@ sub new { } $SIG{CHLD} = sub { undef $pid; $statusbar->pop($sig_id) }; - $w->{rwindow}->signal_connect (delete_event => \&quit_global); + $w->{rwindow}->signal_connect(delete_event => \&quit_global); undef $wait; gtkset_mousecursor_normal(); $w->{rwindow}->set_position('center') unless $::isEmbedded; diff --git a/perl-install/harddrake/v4l.pm b/perl-install/harddrake/v4l.pm index 2ec3f36d0..ce944adcb 100644 --- a/perl-install/harddrake/v4l.pm +++ b/perl-install/harddrake/v4l.pm @@ -200,7 +200,7 @@ my %pll_lst = -1 => N("Default"), 0 => "don't use pll", 1 => "28 Mhz Crystal (X)", - 2 =>"35 Mhz Crystal" + 2 => "35 Mhz Crystal" ); sub config { diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 783e891d9..8b5b89ac9 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -127,7 +127,7 @@ sub create_steps_window { my $in_button; my $draw_pix = sub { my ($map, $mask) = gtkcreate_xpm($_[0]); - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $map, 0, 0, ($darea->allocation->[2]-$PIX_W)/2 + 3, ($darea->allocation->[3]-$PIX_H)/2, diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 4b726729a..20921da72 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -692,7 +692,7 @@ sub configureServices { #------------------------------------------------------------------------------ sub configurePrinter { my($o) = @_; - $o->do_pkgs->install('foomatic', 'printer-utils','printer-testpages', + $o->do_pkgs->install('foomatic', 'printer-utils', 'printer-testpages', if_($o->do_pkgs->is_installed('gimp'), 'gimpprint')); require printer::main; diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 71e50a8bb..40e6cdb35 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -48,7 +48,7 @@ sub new($$) { unless (-d "/var/log") { mkdir("/var/log") } local $SIG{CHLD} = sub { $ok = 0 if waitpid(-1, c::WNOHANG()) > 0 }; unless (fork) { - exec $_[0], (arch() =~ /^sparc/ || arch() eq "ppc" ? () : ("-kb")), "-dpms","-s","240", + exec $_[0], (arch() =~ /^sparc/ || arch() eq "ppc" ? () : ("-kb")), "-dpms", "-s", "240", ($_[0] =~ /Xpmac/ ? $xpmac_opts !~ /ofonly/ ? ("-mode", "17", "-depth", "32") : ("-mach64") :()), ($_[0] =~ /Xsun/ || $_[0] =~ /Xpmac/ ? ("-fp", "/usr/X11R6/lib/X11/fonts:unscaled") : ("-allowMouseOpenFail", "-xf86config", $f)) or exit 1; @@ -292,7 +292,7 @@ sub choosePackagesTree { N("Total size: %d / %d MB", pkgs::correctSize($size / sqr(1024)), $available / sqr(1024)); }, node_state => sub { - my $p = pkgs::packageByName($packages,$_[0]) or return; + my $p = pkgs::packageByName($packages, $_[0]) or return; pkgs::packageMedium($packages, $p)->{selected} or return; $p->flag_base and return 'base'; $p->flag_installed && !$p->flag_upgrade and return 'installed'; diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 03d9f262d..299b81ec3 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -383,7 +383,7 @@ sub doPartitionDisks { fsedit::add($freepart->{hd}, { start => $freepart->{start}, size => 1 << 11, type => 0x401, mntpoint => '' }, $o->{all_hds}, { force => 1, primaryOrExtended => 'Primary' }); $new_bootstrap = 1; } else { - $o->ask_warn('',N("No free space for 1MB bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake")); + $o->ask_warn('', N("No free space for 1MB bootstrap! Install will continue, but to boot your system, you'll need to create the bootstrap partition in DiskDrake")); } } } diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm index b9e567371..33deb4b22 100644 --- a/perl-install/interactive/http.pm +++ b/perl-install/interactive/http.pm @@ -93,7 +93,7 @@ sub ask_fromW { } else { print $e->{hidden} ? $q->password_field(-name => "w$::i", -default => ${$e->{val}}) : - $q->textfield (-name => "w$::i", -default => ${$e->{val}}); + $q->textfield( -name => "w$::i", -default => ${$e->{val}}); } print "</td></tr>\n"; diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm index 1f1a49d0d..b15b92a57 100644 --- a/perl-install/interactive/newt.pm +++ b/perl-install/interactive/newt.pm @@ -19,7 +19,7 @@ sub new() { Newt::Cls(); Newt::SetSuspendCallback(); ($width, $height) = Newt::GetScreenSize(); - open STDERR,">/dev/null" if $::isStandalone && !$::testing; + open STDERR, ">/dev/null" if $::isStandalone && !$::testing; bless {}, $_[0]; } @@ -53,7 +53,7 @@ sub myTextbox { sub separator { my $blank = Newt::Component::Form(\undef, '', 0); - $blank->FormSetWidth ($_[0]); + $blank->FormSetWidth($_[0]); $blank->FormSetHeight($_[1]); $blank; } diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm index 301d363f2..21dd97868 100644 --- a/perl-install/keyboard.pm +++ b/perl-install/keyboard.pm @@ -164,20 +164,20 @@ arch() =~ /^sparc/ ? ( "us" => [ N_("US keyboard"), "sunkeymap", "us", 0 ], ) : ( "al" => [ N_("Albanian"), "al", "al", 0 ], - "am_old" => [ N_("Armenian (old)"),"am_old", "am(old)", 1 ], - "am" => [ N_("Armenian (typewriter)"),"am-armscii8","am", 1 ], - "am_phonetic" => [ N_("Armenian (phonetic)"),"am_phonetic","am(phonetic)",1 ], + "am_old" => [ N_("Armenian (old)"), "am_old", "am(old)", 1 ], + "am" => [ N_("Armenian (typewriter)"), "am-armscii8", "am", 1 ], + "am_phonetic" => [ N_("Armenian (phonetic)"), "am_phonetic", "am(phonetic)",1 ], #-"ar_azerty" => [ N_("Arabic (AZERTY)"),"ar-8859_6","ar(azerty)",1 ], #-"ar_azerty_d" => [ N_("Arabic (AZERTY, arabic digits)"),"ar-8859_6","ar(azerty_digits)",1 ], #-"ar" => [ N_("Arabic (QWERTY)"),"ar-8859_6", "ar", 1 ], #-"ar_d" => [ N_("Arabic (QWERTY, arabic digits)"),"ar-8859_6","ar(digits)",1 ], - "az" => [ N_("Azerbaidjani (latin)"),"az", "az", 0 ], + "az" => [ N_("Azerbaidjani (latin)"), "az", "az", 0 ], #"a3" => [ N_("Azerbaidjani (cyrillic)"), "az-koi8k","az(cyrillic)",1 ], "be" => [ N_("Belgian"), "be2-latin1", "be", 0 ], "ben" => [ N_("Bengali"), "us", "ben", 1 ], -"bg_phonetic" => [ N_("Bulgarian (phonetic)"),"bg", "bg(phonetic)", 1 ], +"bg_phonetic" => [ N_("Bulgarian (phonetic)"), "bg", "bg(phonetic)", 1 ], "bg" => [ N_("Bulgarian (BDS)"), "bg", "bg", 1 ], - "br" => [ N_("Brazilian (ABNT-2)"),"br-abnt2", "br", 0 ], + "br" => [ N_("Brazilian (ABNT-2)"), "br-abnt2", "br", 0 ], #- Bosnia and Croatia use the same layout, but people are confused if there #- isn't an antry for their country "bs" => [ N_("Bosnian"), "croat", "hr", 0 ], @@ -197,8 +197,8 @@ arch() =~ /^sparc/ ? ( "es" => [ N_("Spanish"), "es-latin1", "es", 0 ], "fi" => [ N_("Finnish"), "fi-latin1", "fi", 0 ], "fr" => [ N_("French"), "fr-latin1", "fr", 0 ], - "ge_ru" => [N_("Georgian (\"Russian\" layout)"),"ge_ru-georgian_academy","ge_ru",1], - "ge_la" => [N_("Georgian (\"Latin\" layout)"),"ge_la-georgian_academy","ge_la",1], + "ge_ru" => [N_("Georgian (\"Russian\" layout)"), "ge_ru-georgian_academy", "ge_ru",1], + "ge_la" => [N_("Georgian (\"Latin\" layout)"), "ge_la-georgian_academy", "ge_la",1], "gr" => [ N_("Greek"), "gr-8859_7", "el", 1 ], "guj" => [ N_("Gujarati"), "us", "guj", 1 ], "gur" => [ N_("Gurmukhi"), "us", "gur", 1 ], @@ -223,10 +223,10 @@ arch() =~ /^sparc/ ? ( "lt_p" => [ N_("Lithuanian \"phonetic\" QWERTY"), "ltp-latin7", "lt_p", 0 ], "lv" => [ N_("Latvian"), "lv-latin7", "lv", 0 ], "mk" => [ N_("Macedonian"), "mk", "mk", 1 ], - "mm" => [ N_("Myanmar (Burmese)"),"us", "mm", 1 ], - "mng" => [ N_("Mongolian (cyrillic)"),"us", "mng", 1 ], + "mm" => [ N_("Myanmar (Burmese)"), "us", "mm", 1 ], + "mng" => [ N_("Mongolian (cyrillic)"), "us", "mng", 1 ], "mt" => [ N_("Maltese (UK)"), "uk", "mt", 0 ], - "mt_us" => [ N_("Maltese (US)"),"us", "mt_us", 0 ], + "mt_us" => [ N_("Maltese (US)"), "us", "mt_us", 0 ], "nl" => [ N_("Dutch"), "nl-latin1", "nl", 0 ], "no" => [ N_("Norwegian"), "no-latin1", "no", 0 ], "pl" => [ N_("Polish (qwerty layout)"), "pl", "pl", 0 ], @@ -257,7 +257,7 @@ arch() =~ /^sparc/ ? ( "uk" => [ N_("UK keyboard"), "uk", "gb", 0 ], "us" => [ N_("US keyboard"), "us", "us", 0 ], "us_intl" => [ N_("US keyboard (international)"), "us-latin1", "us_intl", 0 ], - "vn" => [ N_("Vietnamese \"numeric row\" QWERTY"),"vn-tcvn", "vn(toggle)", 0 ], + "vn" => [ N_("Vietnamese \"numeric row\" QWERTY"), "vn-tcvn", "vn(toggle)", 0 ], "yu" => [ N_("Yugoslavian (latin)"), "sr", "yu", 0 ], ), ); diff --git a/perl-install/lang.pm b/perl-install/lang.pm index 671b6964d..083787cd7 100644 --- a/perl-install/lang.pm +++ b/perl-install/lang.pm @@ -27,49 +27,49 @@ use log; my %languages = my @languages = ( 'en_US' => [ 'English|United States', 'C', 'en', 'en_US:en' ], 'en_GB' => [ 'English|United Kingdom', 'iso-8859-15', 'en', 'en_GB:en' ], -'en_IE' => [ 'English|Ireland', 'iso-8859-15','en', 'en_IE:en_GB:en' ], -'en_US.UTF-8' => [ 'English|UTF-8', 'iso-8859-15', 'en', 'en_US:en', 'UTF-8', ], +'en_IE' => [ 'English|Ireland', 'iso-8859-15', 'en', 'en_IE:en_GB:en' ], +'en_US.UTF-8' => [ 'English|UTF-8', 'iso-8859-15', 'en', 'en_US:en', 'UTF-8', ], 'af' => [ 'Afrikaans', 'iso-8859-1', 'af', 'af:en_ZA' ], -'ar_EG.UTF-8' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar', 'UTF-8' ], +'ar_EG.UTF-8' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar', 'UTF-8' ], #'az_AZ.ISO-8859-9E'=> [ 'Azeri (Latin)','iso-8859-9e','az', 'az:tr' ], -'az_AZ.UTF-8' => [ 'Azeri (Latin)', 'iso-8859-9e', 'az', 'az:tr', 'UTF-8' ], - 'be' => [ 'Belarussian (CP1251)', 'cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251' ], -'be_BY.UTF-8' => [ 'Belarussian (UTF-8)','cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251', 'UTF-8' ], +'az_AZ.UTF-8' => [ 'Azeri (Latin)', 'iso-8859-9e', 'az', 'az:tr', 'UTF-8' ], + 'be' => [ 'Belarussian (CP1251)', 'cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251' ], +'be_BY.UTF-8' => [ 'Belarussian (UTF-8)', 'cp1251', 'be', 'be:be_BY.CP1251:ru_RU.CP1251', 'UTF-8' ], #- provide aliases for some not very standard names used in po files... 'bg' => [ 'Bulgarian (CP1251)', 'cp1251', 'bg', 'bg:bg.CP1251:bg_BG.CP1251:bg_BG' ], 'bg_BG.UTF-8' => [ 'Bulgarian (UTF-8)', 'cp1251', 'bg', 'bg:bg.CP1251:bg_BG.CP1251:bg_BG', 'UTF-8' ], - 'br' => [ 'Brezhoneg', 'iso-8859-15','br', 'br:fr_FR:fr' ], + 'br' => [ 'Brezhoneg', 'iso-8859-15', 'br', 'br:fr_FR:fr' ], 'bs' => [ 'Bosnian', 'iso-8859-2', 'bs', 'bs' ], -'ca_ES' => [ 'Catalan', 'iso-8859-15','ca', 'ca:es_ES:es' ], +'ca_ES' => [ 'Catalan', 'iso-8859-15', 'ca', 'ca:es_ES:es' ], 'cs' => [ 'Czech', 'iso-8859-2', 'cs', 'cs' ], #- 'cy' => [ 'Cymraeg (Welsh)','iso-8859-14','cy', 'cy:en_GB:en' ], 'cy_GB.UTF-8' => [ 'Cymraeg (Welsh)', 'iso-8859-14', 'cy', 'cy:en_GB:en', 'UTF-8' ], 'da' => [ 'Danish', 'iso-8859-15', 'da', 'da' ], -'de_AT' => [ 'German|Austria', 'iso-8859-15','de', 'de_AT:de' ], -'de_BE' => [ 'German|Belgium', 'iso-8859-15','de', 'de_BE:de' ], +'de_AT' => [ 'German|Austria', 'iso-8859-15', 'de', 'de_AT:de' ], +'de_BE' => [ 'German|Belgium', 'iso-8859-15', 'de', 'de_BE:de' ], 'de_CH' => [ 'German|Switzerland', 'iso-8859-15', 'de', 'de_CH:de' ], -'de_DE' => [ 'German|Germany', 'iso-8859-15','de', 'de_DE:de' ], +'de_DE' => [ 'German|Germany', 'iso-8859-15', 'de', 'de_DE:de' ], 'el' => [ 'Greek', 'iso-8859-7', 'el', 'el' ], 'el_GR.UTF-8' => [ 'Greek (UTF-8)', 'iso-8859-7', 'el', 'el', 'UTF-8' ], 'eo' => [ 'Esperanto', 'iso-8859-3', 'eo', 'eo', 'UTF-8' ], 'es_AR' => [ 'Spanish|Argentina', 'iso-8859-1', 'es', 'es_AR:es_UY:es:es_ES' ], 'es_ES' => [ 'Spanish|Spain (modern sorting)', 'iso-8859-15', 'es', 'es_ES:es' ], 'es@tradicional' => [ 'Spanish|Spain (traditional sorting)', 'iso-8859-15', 'es', 'es' ], -'es_ES.UTF-8' => [ 'Spanish|Spain (UTF-8)','iso-8859-15', 'es', 'es_ES:es', 'UTF-8' ], +'es_ES.UTF-8' => [ 'Spanish|Spain (UTF-8)', 'iso-8859-15', 'es', 'es_ES:es', 'UTF-8' ], 'es_MX' => [ 'Spanish|Mexico', 'iso-8859-1', 'es', 'es_MX:es:es_ES' ], - 'et' => [ 'Estonian', 'iso-8859-15','et', 'et' ], -'eu_ES' => [ 'Euskara (Basque)','iso-8859-15', 'eu', 'eu' ], + 'et' => [ 'Estonian', 'iso-8859-15', 'et', 'et' ], +'eu_ES' => [ 'Euskara (Basque)', 'iso-8859-15', 'eu', 'eu' ], 'fa_IR.UTF-8' => [ 'Farsi (Iranian)', 'unicode', 'fa', 'fa', 'UTF-8' ], -'fi_FI' => [ 'Finnish (Suomi)', 'iso-8859-15','fi', 'fi' ], +'fi_FI' => [ 'Finnish (Suomi)', 'iso-8859-15', 'fi', 'fi' ], #-'fo' => [ 'Faroese', 'iso-8859-1', 'fo', 'fo' ], -'fr_BE' => [ 'French|Belgium', 'iso-8859-15','fr', 'fr_BE:fr' ], -'fr_CA' => [ 'French|Canada', 'iso-8859-15','fr', 'fr_CA:fr' ], +'fr_BE' => [ 'French|Belgium', 'iso-8859-15', 'fr', 'fr_BE:fr' ], +'fr_CA' => [ 'French|Canada', 'iso-8859-15', 'fr', 'fr_CA:fr' ], 'fr_CH' => [ 'French|Switzerland', 'iso-8859-15', 'fr', 'fr_CH:fr' ], -'fr_FR' => [ 'French|France', 'iso-8859-15','fr', 'fr_FR:fr' ], -'fr_FR.UTF-8' => [ 'French|France (UTF-8)','iso-8859-15','fr', 'fr_FR:fr', 'UTF-8' ], -'ga_IE' => [ 'Gaeilge (Irish)', 'iso-8859-15','ga', 'ga:en_IE:en' ], +'fr_FR' => [ 'French|France', 'iso-8859-15', 'fr', 'fr_FR:fr' ], +'fr_FR.UTF-8' => [ 'French|France (UTF-8)', 'iso-8859-15', 'fr', 'fr_FR:fr', 'UTF-8' ], +'ga_IE' => [ 'Gaeilge (Irish)', 'iso-8859-15', 'ga', 'ga:en_IE:en' ], #-'gd' => [ 'Scottish gaelic', 'iso-8859-14','gd', 'gd:en_GB:en' ], -'gl_ES' => [ 'Galego (Galician)','iso-8859-15','gl', 'gl:es_ES:pt_PT:pt_BR:es:pt' ], +'gl_ES' => [ 'Galego (Galician)', 'iso-8859-15', 'gl', 'gl:es_ES:pt_PT:pt_BR:es:pt' ], #-'gv' => [ 'Manx gaelic', 'iso-8859-14','gv', 'gv:en_GB:en' ], #- 'iw' was the old code for hebrew language 'he_IL.UTF-8' => [ 'Hebrew', 'iso-8859-8', 'he', 'he:iw_IL', 'UTF-8' ], @@ -82,7 +82,7 @@ my %languages = my @languages = ( 'id' => [ 'Indonesian', 'iso-8859-1', 'id', 'id:in_ID' ], 'is' => [ 'Icelandic', 'iso-8859-1', 'is', 'is' ], 'it_CH' => [ 'Italian|Switzerland', 'iso-8859-15', 'it', 'it_IT:it' ], -'it_IT' => [ 'Italian|Italy','iso-8859-15','it', 'it_IT:it' ], +'it_IT' => [ 'Italian|Italy', 'iso-8859-15', 'it', 'it_IT:it' ], #-'iu' => [ 'Inuktitut', 'unicodeIU', 'iu', 'iu' ], 'ja' => [ 'Japanese', 'jisx0208', 'ja', 'ja_JP.ujis:ja' ], 'ja_JP.UTF-8' => [ 'Japanese (UTF-8)', 'jisx0208', 'ja', 'ja_JP.ujis:ja', 'UTF-8' ], @@ -92,16 +92,16 @@ my %languages = my @languages = ( 'ko_KR.UTF-8' => [ 'Korean (UTF-8)', 'ksc5601', 'ko', 'ko', 'UTF-8' ], #-'kw' => [ 'Cornish gaelic', 'iso-8859-14','kw', 'kw:en_GB:en' ], #-'lo' => [ 'Laotian', 'mulelao-1', 'lo', 'lo' ], - 'lt' => [ 'Lithuanian', 'iso-8859-13','lt', 'lt' ], - 'lv' => [ 'Latvian', 'iso-8859-13','lv', 'lv' ], - 'mi' => [ 'Maori', 'iso-8859-13','mi', 'mi' ], + 'lt' => [ 'Lithuanian', 'iso-8859-13', 'lt', 'lt' ], + 'lv' => [ 'Latvian', 'iso-8859-13', 'lv', 'lv' ], + 'mi' => [ 'Maori', 'iso-8859-13', 'mi', 'mi' ], #- 'mk' => [ 'Macedonian (Cyrillic)','iso-8859-5', 'mk', 'mk' ], -'mk_MK.UTF-8' => [ 'Macedonian (Cyrillic)','cp1251', 'mk', 'mk', 'UTF-8' ], +'mk_MK.UTF-8' => [ 'Macedonian (Cyrillic)', 'cp1251', 'mk', 'mk', 'UTF-8' ], 'ms' => [ 'Malay', 'iso-8859-1', 'ms', 'ms' ], #- 'mt' => [ 'Maltese|ISO-8859-3', 'iso-8859-3', 'mt', 'mt' ], 'mt_MT.UTF-8' => [ 'Maltese', 'iso-8859-3', 'mt', 'mt', 'UTF-8' ], 'nl_BE' => [ 'Dutch|Belgium', 'iso-8859-15', 'nl', 'nl_BE:nl' ], -'nl_NL' => [ 'Dutch|Netherlands','iso-8859-15', 'nl', 'nl_NL:nl' ], +'nl_NL' => [ 'Dutch|Netherlands', 'iso-8859-15', 'nl', 'nl_NL:nl' ], #- 'nb' is the new locale name in glibc 2.2 'no' => [ 'Norwegian|Bokmaal', 'iso-8859-1', 'no', 'no:nb:nn:no@nynorsk:no_NY' ], #- no_NY is used by KDE (but not standard); 'nn' is the new locale in glibc 2.2 @@ -112,7 +112,7 @@ my %languages = my @languages = ( 'pl' => [ 'Polish', 'iso-8859-2', 'pl', 'pl' ], #-'pp' => [ 'Papiamento', 'iso-8859-1', 'pp', 'pp' ], 'pt_BR' => [ 'Portuguese|Brazil', 'iso-8859-1', 'pt_BR', 'pt_BR:pt_PT:pt' ], -'pt_PT' => [ 'Portuguese|Portugal','iso-8859-15','pt', 'pt_PT:pt:pt_BR' ], +'pt_PT' => [ 'Portuguese|Portugal', 'iso-8859-15', 'pt', 'pt_PT:pt:pt_BR' ], 'ro' => [ 'Romanian', 'iso-8859-2', 'ro', 'ro' ], 'ru_RU.KOI8-R' => [ 'Russian|KOI8-R', 'koi8-r', 'ru', 'ru_RU:ru' ], 'ru_RU.CP1251' => [ 'Russian|CP1251', 'cp1251', 'ru', 'ru_RU:ru' ], @@ -121,8 +121,8 @@ my %languages = my @languages = ( 'sl' => [ 'Slovenian', 'iso-8859-2', 'sl', 'sl' ], #- 'sp' => [ 'Serbian|Cyrillic (ISO-8859-5)','iso-8859-5', 'sp', 'sp:sr' ], #'sp_YU.CP1251' => [ 'Serbian|Cyrillic (CP1251)','cp1251', 'sp', 'sp:sr' ], -'sp_YU.UTF-8' => [ 'Serbian|Cyrillic','cp1251', 'sp', 'sp:sr', 'UTF-8' ], - 'sr' => [ 'Serbian|Latin (ISO-8859-2)','iso-8859-2','sr', 'sr' ], +'sp_YU.UTF-8' => [ 'Serbian|Cyrillic', 'cp1251', 'sp', 'sp:sr', 'UTF-8' ], + 'sr' => [ 'Serbian|Latin (ISO-8859-2)', 'iso-8859-2', 'sr', 'sr' ], 'sr_YU.UTF-8' => [ 'Serbian|Latin (UTF-8)', 'iso-8859-2', 'sr', 'sr', 'UTF-8' ], 'sv' => [ 'Swedish', 'iso-8859-1', 'sv', 'sv' ], #- there is no tamil font curently; so set DrakX encoding to utf_1 diff --git a/perl-install/mouse.pm b/perl-install/mouse.pm index 5628c2700..7a2e74460 100644 --- a/perl-install/mouse.pm +++ b/perl-install/mouse.pm @@ -495,44 +495,44 @@ sub test_mouse { my $x = 60 + $nb*33; $drawarea->(); if ($nb == 0) { - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $m3_left, 0, 0, ($darea->allocation->[2]-$width)/2+31, ($darea->allocation->[3]-$height)/2 + 52, 59, 91); } elsif ($nb == 2) { - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $m3_right, 0, 0, ($darea->allocation->[2]-$width)/2+117, ($darea->allocation->[3]-$height)/2 + 52, 61, 91); } elsif ($nb == 1) { if ($mouse->{nbuttons} > 3) { - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $m3_middle, 0, 0, ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, 13, 62); } else { - $darea->window->draw_arc ($darea->style->black_gc, + $darea->window->draw_arc($darea->style->black_gc, 1, ($darea->allocation->[2]-$width)/2 + $x, ($darea->allocation->[3]-$height)/2 + 90, 20, 25, 0, 360*64); } } elsif ($nb == 3) { $wait = 1; - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $aru, 0, 0, ($darea->allocation->[2]-$width)/2+102, ($darea->allocation->[3]-$height)/2 + 57, 6, 8); - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $m3_middle, 0, 0, ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, 13, 62); Gtk->timeout_add(200, sub { $wait = 0 }); } elsif ($nb == 4) { $wait = 1; - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $ard, 0, 0, ($darea->allocation->[2]-$width)/2+102, ($darea->allocation->[3]-$height)/2 + 131, 6, 8); - $darea->window->draw_pixmap ($darea->style->bg_gc('normal'), + $darea->window->draw_pixmap($darea->style->bg_gc('normal'), $m3_middle, 0, 0, ($darea->allocation->[2]-$width)/2+98, ($darea->allocation->[3]-$height)/2 + 67, 13, 62); diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 66b57ddfa..2f991a988 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -66,7 +66,7 @@ sub new { my $w = $style->font->string_width($::Wizard_title); $draw1->signal_connect(expose_event => sub { for (my $i = 0; $i < (540/$y1); $i++) { - $draw1->window->draw_pixmap ($draw1->style->bg_gc('normal'), + $draw1->window->draw_pixmap($draw1->style->bg_gc('normal'), $im_up, 0, 0, 0, $y1*$i, $x1, $y1); $draw1->window->draw_string( @@ -78,7 +78,7 @@ sub new { }); $draw2->signal_connect(expose_event => sub { for (my $i = 0; $i < (300/$y2); $i++) { - $draw2->window->draw_pixmap ($draw2->style->bg_gc('normal'), + $draw2->window->draw_pixmap($draw2->style->bg_gc('normal'), $im_left, 0, 0, 0, $y2*$i, $x2, $y2); } diff --git a/perl-install/network/isdn.pm b/perl-install/network/isdn.pm index 183e79ac0..8e1c00261 100644 --- a/perl-install/network/isdn.pm +++ b/perl-install/network/isdn.pm @@ -197,7 +197,7 @@ sub isdn_ask { #- ISDN card already detected if (!$::expert && defined $netc->{autodetect}{isdn}{card_type}) { - $in->ask_yesorno(N("ISDN Configuration"), N("Found \"%s\" interface do you want to use it ?",$netc->{autodetect}{isdn}{description}), 1) or return; + $in->ask_yesorno(N("ISDN Configuration"), N("Found \"%s\" interface do you want to use it ?", $netc->{autodetect}{isdn}{description}), 1) or return; $isdn->{$_} = $netc->{autodetect}{isdn}{$_} foreach qw(description vendor id card_type driver type mem io io0 io1 irq firmware); goto isdn_ask_step_3; } diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index ad37fbe60..c91e39672 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -582,7 +582,7 @@ sub load_conf { $netcnx->{modem}=$modem; $netcnx->{modem}=$isdn_external; $netcnx->{isdn_internal}=$isdn; - -e "$prefix/etc/sysconfig/network" and put_in_hash($netc,network::read_conf("$prefix/etc/sysconfig/network")); + -e "$prefix/etc/sysconfig/network" and put_in_hash($netc, network::read_conf("$prefix/etc/sysconfig/network")); foreach (glob_("$prefix/etc/sysconfig/ifcfg-*")) { my $l = network::read_interface_conf($_); $intf->{$l->{DEVICE}} = $l; diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm index 299016681..c7f337da4 100644 --- a/perl-install/network/tools.pm +++ b/perl-install/network/tools.pm @@ -93,7 +93,7 @@ sub ask_info2 { if__($netc->{dnsServer2}, { label => N("Provider dns 1 (optional)"), val => \$netc->{dnsServer2} }), if__($netc->{dnsServer3}, { label => N("Provider dns 2 (optional)"), val => \$netc->{dnsServer3} }), if__($cnx->{vpivci}, { label => N("Choose your country"), val => \$netc->{vpivci}, list => detect_timezone() }), - if__($cnx->{dialing_mode}, { label => N("Dialing mode"), val => \$cnx->{dialing_mode},list => ["auto","manual"] }), + if__($cnx->{dialing_mode}, { label => N("Dialing mode"), val => \$cnx->{dialing_mode},list => ["auto", "manual"] }), if__($cnx->{speed}, { label => N("Connection speed"), val => \$cnx->{speed}, list => ["64 Kb/s", "128 Kb/s"] }), if__($cnx->{huptimeout}, { label => N("Connection timeout (in sec)"), val => \$cnx->{huptimeout} }), if__($cnx->{login}, { label => N("Account Login (user name)"), val => \$cnx->{login} }), diff --git a/perl-install/printer/data.pm b/perl-install/printer/data.pm index 0c7a29eed..61ae3bff5 100644 --- a/perl-install/printer/data.pm +++ b/perl-install/printer/data.pm @@ -12,7 +12,7 @@ our %lprcommand; our %spoolers = ('ppq' => { 'help' => "/usr/bin/lphelp %s |", 'print_command' => 'lpr-pdq', - 'long_name' =>N("PDQ - Print, Don't Queue"), + 'long_name' => N("PDQ - Print, Don't Queue"), 'short_name' => N("PDQ") }, 'lpd' => { diff --git a/perl-install/printer/main.pm b/perl-install/printer/main.pm index 77c365e7c..b9e536d61 100644 --- a/perl-install/printer/main.pm +++ b/perl-install/printer/main.pm @@ -237,7 +237,7 @@ sub read_configured_queues($) { open F, ($::testing ? $prefix : "chroot $prefix/ ") . "foomatic-configure -P -q -s $spooler |" or die "Could not run foomatic-configure"; - eval join('',(<F>)); + eval join('', <F>); close F; if ($service eq "pdq") { #- Have we found queues? PDQ has no damon, so we consider @@ -258,7 +258,7 @@ sub read_configured_queues($) { open F, ($::testing ? $prefix : "chroot $prefix/ ") . "foomatic-configure -P -q -s $printer->{SPOOLER} |" or die "Could not run foomatic-configure"; - eval join('',(<F>)); + eval join('', <F>); close F; } $printer->{configured} = {}; @@ -522,7 +522,7 @@ sub read_foomatic_options ($) { " $printer->{SPECIAL_OPTIONS}" : "") . " |" or die "Could not run foomatic-configure"; - eval join('',(<F>)); + eval join('', (<F>)); close F; # Return the arguments field return $COMBODATA->{args}; @@ -1020,7 +1020,7 @@ sub configure_queue($) { # so normal users can print. if ($printer->{SPOOLER} eq 'pdq') { if ($printer->{currentqueue}{connect} =~ m!^\s*file:(\S*)\s*$!) { - set_permissions($1,"666"); + set_permissions($1, "666"); } } @@ -1455,7 +1455,7 @@ sub configure_hpoj { # Open configuration file local *CONFIG; - open(CONFIG,"> $prefix/etc/ptal/$ptaldevice") or + open(CONFIG, "> $prefix/etc/ptal/$ptaldevice") or die "Could not open /etc/ptal/$ptaldevice for writing!\n"; # Write file header. diff --git a/perl-install/printer/office.pm b/perl-install/printer/office.pm index 684707ce8..01f1476da 100644 --- a/perl-install/printer/office.pm +++ b/perl-install/printer/office.pm @@ -97,7 +97,7 @@ sub configureoffice { # the "Generic Printer" my @parameters = $suites{$suite}{param}; $configfilecontent = removeentry(@parameters, $configfilecontent); - $configfilecontent =addentry($parameters[0],$parameters[1] . $suites{$suite}{perl} . $printer::data::lprcommand{$printer->{SPOOLER}{print_command}}, $configfilecontent); + $configfilecontent =addentry($parameters[0], $parameters[1] . $suites{$suite}{perl} . $printer::data::lprcommand{$printer->{SPOOLER}{print_command}}, $configfilecontent); # Write back Star Office configuration file return writesofficeconfigfile($configfilename, $configfilecontent); } diff --git a/perl-install/printer/printerdrake.pm b/perl-install/printer/printerdrake.pm index ef3dd3d37..6c2fb76fc 100644 --- a/perl-install/printer/printerdrake.pm +++ b/perl-install/printer/printerdrake.pm @@ -83,8 +83,8 @@ sub config_cups { #- according to new settings. There are no other point where such #- information is written in this file. - if ($in->ask_from_ - ({ title => ($::expert ? N("CUPS configuration") : + if ($in->ask_from_( + { title => ($::expert ? N("CUPS configuration") : N("Specify CUPS server")), messages => N("To get access to printers on remote CUPS servers in your local network you do not have to configure anything; the CUPS servers inform your machine automatically about their printers. All printers currently known to your machine are listed in the \"Remote printers\" section in the main window of Printerdrake. When your CUPS server is not in your local network, you have to enter the CUPS server IP address and optionally the port number to get the printer information from the server, otherwise leave these fields blank.") . ($::expert ? "\n" . N(" @@ -263,8 +263,8 @@ sub wizard_welcome { eval { if ($::expert) { if ($::isWizard) { - $ret = $in->ask_okcancel - (N("Add a new printer"), + $ret = $in->ask_okcancel( + N("Add a new printer"), N(" Welcome to the Printer Setup Wizard @@ -275,9 +275,9 @@ It asks you for all necessary information to set up the printer and gives you ac $ret = 1; } } else { - $ret = $in->ask_from_ - ({title => N("Add a new printer"), - messages => ($printer->{SPOOLER} ne "pdq" ? + $ret = $in->ask_from_( + { title => N("Add a new printer"), + messages => ($printer->{SPOOLER} ne "pdq" ? ($havelocalnetworks ? N(" Welcome to the Printer Setup Wizard @@ -541,8 +541,8 @@ sub setup_local_autoscan { $do_auto_detect = 0; $printer->{MANUAL} = 1; if ($::expert) { - $device = $in->ask_from_entry - (N("Local Printer"), + $device = $in->ask_from_entry( + N("Local Printer"), N("No local printer found! To manually install a printer enter a device name/file name in the input line (Parallel Ports: /dev/lp0, /dev/lp1, ..., equivalent to LPT1:, LPT2:, ..., 1st USB printer: /dev/usb/lp0, 2nd USB printer: /dev/usb/lp1, ...)."), { complete => sub { @@ -564,8 +564,7 @@ sub setup_local_autoscan { } else { my $manualconf = 0; $manualconf = 1 if $printer->{MANUAL} || !$do_auto_detect; - if (!$in->ask_from_ - ( + if (!$in->ask_from_( { title => ($expert_or_modify ? N("Local Printer") : N("Available printers")), @@ -824,11 +823,12 @@ sub setup_smb { $oldmenuchoice = $menuchoice; } - return 0 if !$in->ask_from - (N("SMB (Windows 9x/NT) Printer Options"), + return 0 if !$in->ask_from( + N("SMB (Windows 9x/NT) Printer Options"), N("To print to a SMB printer, you need to provide the SMB host name (Note! It may be different from its TCP/IP hostname!) and possibly the IP address of the print server, as well as the share name for the printer you wish to access and any applicable user name, password, and workgroup information.") . ($autodetect ? N(" If the desired printer was auto-detected, simply choose it from the list and then add user name, password, and/or workgroup if needed.") : ""), - [{ label => N("SMB server host"), val => \$smbserver }, + [ + { label => N("SMB server host"), val => \$smbserver }, { label => N("SMB server IP"), val => \$smbserverip }, { label => N("Share name"), val => \$smbshare }, { label => N("User name"), val => \$smbuser }, @@ -855,8 +855,8 @@ sub setup_smb { } if ($smbpassword ne "") { local $::isWizard = 0; - my $yes = $in->ask_yesorno - (N("SECURITY WARNING!"), + my $yes = $in->ask_yesorno( + N("SECURITY WARNING!"), N("You are about to set up printing to a Windows account with password. Due to a fault in the architecture of the Samba client software the password is put in clear text into the command line of the Samba client used to transmit the print job to the Windows server. So it is possible for every user on this machine to display the password on the screen by issuing commands as \"ps auxwww\". We recommend to make use of one of the following alternatives (in all cases you have to make sure that only machines from your local network have access to your Windows server, for example by means of a firewall): @@ -1062,8 +1062,8 @@ sub setup_socket { $oldmenuchoice = $menuchoice; } - return 0 if !$in->ask_from_ - ({ + return 0 if !$in->ask_from_( + { title => N("TCP/Socket Printer Options"), messages => ($autodetect ? N("Choose one of the auto-detected printers from the list or enter the hostname or IP and the optional port number (default is 9100) into the input fields.") : @@ -1071,8 +1071,7 @@ sub setup_socket { callbacks => { complete => sub { unless ($remotehost ne "") { - $in->ask_warn - ('', N("Printer host name or IP missing!")); + $in->ask_warn('', N("Printer host name or IP missing!")); return (1,0); } unless ($remoteport =~ /^[0-9]+$/) { @@ -1300,8 +1299,8 @@ sub setup_common { $in->do_pkgs->install('hpoj', 'xojpanel'); } # Configure and start HPOJ - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Checking device and configuring HPOJ...")); $ptaldevice = printer::main::configure_hpoj($device, @autodetected); @@ -1320,14 +1319,13 @@ sub setup_common { ('/usr/bin/gimp') ? '/usr/bin/xsane-gimp' : ()))))) { - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Installing SANE packages...")); $in->do_pkgs->install('sane-backends', 'sane-frontends', 'xsane', 'libsane-hpoj0', - if_($in->do_pkgs->is_installed - ('gimp'),'xsane-gimp')); + if_($in->do_pkgs->is_installed('gimp'), 'xsane-gimp')); } # Configure the HPOJ SANE backend printer::main::config_sane(); @@ -1344,8 +1342,8 @@ sub setup_common { /usr/bin/mcopy /usr/bin/MToolsFM )))) { - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Installing mtools packages...")); $in->do_pkgs->install('mtools', 'mtoolsfm'); } @@ -1357,8 +1355,8 @@ sub setup_common { # Inform user about how to scan with his MF device $text = scanner_help($makemodel, "ptal:/$ptaldevice"); if ($text) { - $in->ask_warn - (N("Scanning on your HP multi-function device"), + $in->ask_warn( + N("Scanning on your HP multi-function device"), $text); } # Inform user about how to access photo cards with his MF @@ -1492,8 +1490,7 @@ sub choose_printer_name { # Name, description, location $in->set_help('setupPrinterName') if $::isInstall; my $default = $printer->{currentqueue}{queue}; - $in->ask_from_ - ( + $in->ask_from_( { title => N("Enter Printer Name and Comments"), #cancel => !$printer->{configured}{$queue} ? '' : N("Remove queue"), callbacks => { complete => sub { @@ -1627,8 +1624,8 @@ sub is_model_correct { return 1; } $dbentry =~ s/\|/ /g; - my $res = $in->ask_from_list_ - (N("Your printer model"), + my $res = $in->ask_from_list_( + N("Your printer model"), N("Printerdrake has compared the model name resulting from the printer auto-detection with the models listed in its printer database to find the best match. This choice can be wrong, especially when your printer is not listed at all in the database. So check whether the choice is correct and click \"The model is correct\" if so and if not, click \"Select model manually\" so that you can choose your printer model manually on the next screen. For your printer Printerdrake has found: @@ -2034,8 +2031,8 @@ sub setup_options { # Do not show the options setup dialog when installing a new printer # in recommended mode without "Manual configuration" turned on. if ((!$printer->{NEW}) or ($::expert) or ($printer->{MANUAL})) { - return 0 if !$in->ask_from - ($windowtitle, + return 0 if !$in->ask_from( + $windowtitle, N("Printer default settings You should make sure that the page size and the ink type/printing mode (if available) and also the hardware configuration of laser printers (memory, duplex unit, extra trays) are set correctly. Note that with a very high printout quality/resolution printing can get substantially slower."), @@ -2114,8 +2111,8 @@ sub print_testpages { my $oldphoto = 0; my $oldascii = 0; my $oldres2 = 0; - my $res1 = $in->ask_from_ - ({ title => N("Test pages"), + my $res1 = $in->ask_from_( + { title => N("Test pages"), messages => N("Please select the test pages you want to print. Note: the photo test page can take a rather long time to get printed and on laser printers with too low memory it can even not come out. In most cases it is enough to print the standard test page."), cancel => ((!$printer->{NEW}) ? @@ -2234,7 +2231,7 @@ It may take some time before the printer starts.\n"); $in->ask_warn('',$dialogtext); return 1; } else { - $in->ask_yesorno('',$dialogtext . N("Did it work properly?"), 1) + $in->ask_yesorno('', $dialogtext . N("Did it work properly?"), 1) and return 1; } } else { @@ -2345,8 +2342,8 @@ N("To know about the options available for the current printer read either the l if (!$raw && !$cupsremote) { my $choice; while ($choice ne N("Close")) { - $choice = $in->ask_from_list_ - ($windowtitle, $dialogtext, + $choice = $in->ask_from_list_( + $windowtitle, $dialogtext, [ N("Print option list"), N("Close") ], N("Close")); if ($choice ne N("Close")) { @@ -2429,8 +2426,8 @@ sub copy_queues_from { } } if ($noninteractive || - $in->ask_from_ - ({ title => N("Transfer printer configuration"), + $in->ask_from_( + { title => N("Transfer printer configuration"), messages => N("You can copy the printer configuration which you have done for the spooler %s to %s, your current spooler. All the configuration data (printer name, description, location, connection type, and default option settings) is overtaken, but jobs will not be transferred. Not all queues can be transferred due to the following reasons: ", $oldspoolerstr, $newspoolerstr) . @@ -2457,8 +2454,8 @@ Mark the printers which you want to transfer and click my $newqueue = $_; if ((!$printer->{configured}{$newqueue}) || ($noninteractive) || - ($in->ask_from_ - ({ title => N("Transfer printer configuration"), + ($in->ask_from_( + { title => N("Transfer printer configuration"), messages => N("A printer named \"%s\" already exists under %s. Click \"Transfer\" to overwrite it. You can also type a new name or skip this printer.", @@ -2492,8 +2489,8 @@ You can also type a new name or skip this printer.", # Make the former default printer the new default # printer if the user does not reject if (($noninteractive) || - ($in->ask_yesorno - (N("Transfer printer configuration"), + ($in->ask_yesorno( + N("Transfer printer configuration"), N("You have transferred your former default printer (\"%s\"), Should it be also the default printer under the new printing system %s?", $oldqueue, $newspoolerstr), 1))) { $printer->{DEFAULT} = $newqueue; printer::default::set_printer($printer); @@ -2708,8 +2705,7 @@ sub install_spooler { if ((!$::testing) && ((!files_exist((qw(/usr/bin/wget)))) && (!files_exist((qw(/usr/bin/curl)))))) { - $in->do_pkgs->install - ($::isInstall ? 'curl' : 'webfetch'); + $in->do_pkgs->install($::isInstall ? 'curl' : 'webfetch'); } # Try to start the network when CUPS is the spooler, so that # remote CUPS printers get displayed (especially during @@ -2724,13 +2720,13 @@ sub install_spooler { # startup of printerdrake for several seconds. printer::services::start_not_running_service("cups"); # Set the CUPS tools as defaults for "lpr", "lpq", "lprm", ... - set_alternative("lpr","/usr/bin/lpr-cups"); - set_alternative("lpq","/usr/bin/lpq-cups"); - set_alternative("lprm","/usr/bin/lprm-cups"); - set_alternative("lp","/usr/bin/lp-cups"); - set_alternative("cancel","/usr/bin/cancel-cups"); - set_alternative("lpstat","/usr/bin/lpstat-cups"); - set_alternative("lpc","/usr/sbin/lpc-cups"); + set_alternative("lpr", "/usr/bin/lpr-cups"); + set_alternative("lpq", "/usr/bin/lpq-cups"); + set_alternative("lprm", "/usr/bin/lprm-cups"); + set_alternative("lp", "/usr/bin/lp-cups"); + set_alternative("cancel", "/usr/bin/cancel-cups"); + set_alternative("lpstat", "/usr/bin/lpstat-cups"); + set_alternative("lpc", "/usr/sbin/lpc-cups"); # Remove PDQ panic buttons from the user's KDE Desktops printer::main::pdq_panic_button("remove"); } @@ -2766,10 +2762,10 @@ sub install_spooler { # Start daemon printer::services::restart("lpd"); # Set the LPD tools as defaults for "lpr", "lpq", "lprm", ... - set_alternative("lpr","/usr/bin/lpr-lpd"); - set_alternative("lpq","/usr/bin/lpq-lpd"); - set_alternative("lprm","/usr/bin/lprm-lpd"); - set_alternative("lpc","/usr/sbin/lpc-lpd"); + set_alternative("lpr", "/usr/bin/lpr-lpd"); + set_alternative("lpq", "/usr/bin/lpq-lpd"); + set_alternative("lprm", "/usr/bin/lprm-lpd"); + set_alternative("lpc", "/usr/sbin/lpc-lpd"); # Remove PDQ panic buttons from the user's KDE Desktops printer::main::pdq_panic_button("remove"); } @@ -2805,13 +2801,13 @@ sub install_spooler { # Start daemon printer::services::restart("lpd"); # Set the LPRng tools as defaults for "lpr", "lpq", "lprm", ... - set_alternative("lpr","/usr/bin/lpr-lpd"); - set_alternative("lpq","/usr/bin/lpq-lpd"); - set_alternative("lprm","/usr/bin/lprm-lpd"); - set_alternative("lp","/usr/bin/lp-lpd"); - set_alternative("cancel","/usr/bin/cancel-lpd"); - set_alternative("lpstat","/usr/bin/lpstat-lpd"); - set_alternative("lpc","/usr/sbin/lpc-lpd"); + set_alternative("lpr", "/usr/bin/lpr-lpd"); + set_alternative("lpq", "/usr/bin/lpq-lpd"); + set_alternative("lprm", "/usr/bin/lprm-lpd"); + set_alternative("lp", "/usr/bin/lp-lpd"); + set_alternative("cancel", "/usr/bin/cancel-lpd"); + set_alternative("lpstat", "/usr/bin/lpstat-lpd"); + set_alternative("lpc", "/usr/sbin/lpc-lpd"); # Remove PDQ panic buttons from the user's KDE Desktops printer::main::pdq_panic_button("remove"); } @@ -2836,9 +2832,9 @@ sub install_spooler { # PDQ has no daemon, so nothing needs to be started # Set the PDQ tools as defaults for "lpr", "lpq", "lprm", ... - set_alternative("lpr","/usr/bin/lpr-pdq"); - set_alternative("lpq","/usr/bin/lpq-foomatic"); - set_alternative("lprm","/usr/bin/lprm-foomatic"); + set_alternative("lpr", "/usr/bin/lpr-pdq"); + set_alternative("lpq", "/usr/bin/lpq-foomatic"); + set_alternative("lprm", "/usr/bin/lprm-foomatic"); # Add PDQ panic buttons to the user's KDE Desktops printer::main::pdq_panic_button("add"); } @@ -2953,7 +2949,7 @@ sub main { (files_exist("/usr/bin/gimp") ? "/usr/lib/gimp/1.2/plug-ins/print" : ()) )))) { - $in->do_pkgs->install('foomatic','printer-utils','printer-testpages','nmap','scli', + $in->do_pkgs->install('foomatic', 'printer-utils', 'printer-testpages', 'nmap', 'scli', if_($in->do_pkgs->is_installed('gimp'), 'gimpprint')); } @@ -3168,8 +3164,8 @@ sub main { #printer::main::read_printer_db($printer->{SPOOLER}); # Re-read printer queues to switch the tree # structure between expert/normal mode. - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Reading printer data...")); printer::main::read_configured_queues($printer); $cursorpos = "::"; @@ -3310,7 +3306,7 @@ sub main { # Leave wizard mode with congratulations screen wizard_close($in, 1); $continue = ($::expert || !$::isInstall || $menushown || - $in->ask_yesorno('',N("Do you want to configure another printer?"))); + $in->ask_yesorno('', N("Do you want to configure another printer?"))); } elsif ($testpages == 2) { # User was not content with test pages # Leave wizard mode without congratulations @@ -3360,7 +3356,7 @@ sub main { if ($testpages == 1) { # User was content with test pages $continue = ($::expert || !$::isInstall || $menushown || - $in->ask_yesorno('',N("Do you want to configure another printer?"))); + $in->ask_yesorno('', N("Do you want to configure another printer?"))); } elsif ($testpages == 2) { # User was not content with test pages $editqueue = 1; @@ -3394,8 +3390,8 @@ sub main { $cursorpos =~ /!([^!]+)$/; $infoline = $1; } - if ($in->ask_from_ - ({ title => N("Modify printer configuration"), + if ($in->ask_from_( + { title => N("Modify printer configuration"), messages => N("Printer %s What do you want to modify on this printer?", @@ -3469,8 +3465,8 @@ What do you want to modify on this printer?", configure_queue($printer, $in); # Delete old queue when it was renamed if (lc($printer->{QUEUE}) ne lc($printer->{OLD_QUEUE})) { - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Removing old printer \"%s\"...", $printer->{OLD_QUEUE})); printer::main::remove_queue($printer, $printer->{OLD_QUEUE}); @@ -3524,8 +3520,8 @@ What do you want to modify on this printer?", if ($in->ask_yesorno('', N("Do you really want to remove the printer \"%s\"?", $queue), 1)) { { - my $w = $in->wait_message - (N("Printerdrake"), + my $w = $in->wait_message( + N("Printerdrake"), N("Removing printer \"%s\"...", $queue)); if (printer::main::remove_queue($printer, $queue)) { $editqueue = 0; @@ -3572,7 +3568,7 @@ What do you want to modify on this printer?", } $continue = ($editqueue || $::expert || !$::isInstall || $menushown || - $in->ask_yesorno('',N("Do you want to configure another printer?"))); + $in->ask_yesorno('', N("Do you want to configure another printer?"))); } # Configure the current printer queue in applications when main menu diff --git a/perl-install/scanner.pm b/perl-install/scanner.pm index 9d85129cc..6e8ecfa7d 100755 --- a/perl-install/scanner.pm +++ b/perl-install/scanner.pm @@ -39,7 +39,7 @@ sub confScanner { $port ||= detect_devices::dev_is_devfs() ? "$prefix/dev/usb/scanner0" : "$prefix/dev/scanner"; my $a = $scannerDB->{$model}{server}; #print "file:[$a]\t[$model]\t[$port]\n| ", (join "\n| ", @{$scannerDB->{$model}{lines}}),"\n"; - output("$_sanedir/$a.conf", (join "\n",@{$scannerDB->{$model}{lines}})); + output("$_sanedir/$a.conf", (join "\n", @{$scannerDB->{$model}{lines}})); substInFile { s/\$DEVICE/$port/ } "$_sanedir/$a.conf"; add2dll($a); } diff --git a/perl-install/standalone/XFdrake b/perl-install/standalone/XFdrake index 5b82724a7..579476ba7 100755 --- a/perl-install/standalone/XFdrake +++ b/perl-install/standalone/XFdrake @@ -150,7 +150,7 @@ sub ask_for_X_restart { return; } - $in->ask_okcancel('', N("Please relog into %s to activate the changes", ucfirst (lc $wm)), 1) or return; + $in->ask_okcancel('', N("Please relog into %s to activate the changes", ucfirst(lc $wm)), 1) or return; fork and return; any::ask_window_manager_to_logout($wm); diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm index 2e100ede9..782002c8b 100644 --- a/perl-install/ugtk.pm +++ b/perl-install/ugtk.pm @@ -66,9 +66,9 @@ sub gtkset_visibility { $_[0]->set_visibility($_[1]); $_[0] } sub gtkset_tip { $_[0]->set_tip($_[1], $_[2]) if $_[2]; $_[1] } sub gtkset_shadow_type { $_[0]->set_shadow_type($_[1]); $_[0] } sub gtkset_style { $_[0]->set_style($_[1]); $_[0] } -sub gtkset_usize { $_[0]->set_usize($_[1],$_[2]); $_[0] } +sub gtkset_usize { $_[0]->set_usize($_[1], $_[2]); $_[0] } sub gtkshow { $_[0]->show; $_[0] } -sub gtksize { $_[0]->size($_[1],$_[2]); $_[0] } +sub gtksize { $_[0]->size($_[1], $_[2]); $_[0] } sub gtkexpand { $_[0]->expand; $_[0] } sub gdkpixmap { @@ -281,7 +281,7 @@ sub create_dialog { my ($label, $c) = @_; my $ret = 0; my $dialog = new Gtk::Dialog; - $dialog->signal_connect (delete_event => sub { Gtk->main_quit() }); + $dialog->signal_connect(delete_event => sub { Gtk->main_quit() }); $dialog->set_title(N("logdrake")); $dialog->border_width(10); $dialog->vbox->pack_start(new Gtk::Label($label),1,1,0); @@ -643,8 +643,8 @@ sub write_on_pixmap { } }; $darea->signal_connect(expose_event => sub { $darea->window->draw_rectangle($darea->style->white_gc, 1, 0, 0, $width, $height); - $darea->window->draw_pixmap - ($darea->style->white_gc, + $darea->window->draw_pixmap( + $darea->style->white_gc, $gdkpixmap, 0, 0, ($darea->allocation->[2]-$width)/2, ($darea->allocation->[3]-$height)/2, $width, $height); |