From 2f8837bff82e2c7375f2ad616580e51993bdc3c2 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 2 Dec 2002 07:36:23 +0000 Subject: - gtk2 port - consolidate some code in text_view() - perl_checker fixes --- perl-install/standalone/drakTermServ | 523 +++++++++++++++---------------- perl-install/standalone/drakfont | 584 ++++++++++++++++------------------- 2 files changed, 517 insertions(+), 590 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakTermServ b/perl-install/standalone/drakTermServ index ceb377387..0a359c203 100755 --- a/perl-install/standalone/drakTermServ +++ b/perl-install/standalone/drakTermServ @@ -43,7 +43,7 @@ use standalone; #- warning, standalone must be loaded very first, for 'expla use strict; use interactive; -use my_gtk qw(:helpers :wrappers); +use ugtk2 qw(:helpers :wrappers :create); use common; use run_program; @@ -70,7 +70,7 @@ my $server_ip = get_ip_from_sys(); #- make sure terminal server and friends are installed my $ts = system("rpm -qa | grep terminal-server > /dev/null"); -if ($ts == 256) { +if ($ts == 255) { #BUG: 256 if ($ENV{'DISPLAY'}) { system("urpmi --X terminal-server > /dev/null"); } else { @@ -108,39 +108,39 @@ if ("@ARGV" =~ /--stop/) { } if ("@ARGV" =~ /--adduser/) { - die "$0 $ARGV[0] requires a username...\n" if $#ARGV<1; + die "$0 $ARGV[0] requires a username...\n" if $#ARGV < 1; my $cmd_line = 1; adduser($cmd_line, $ARGV[1]); exit(0); } if ("@ARGV" =~ /--deluser/) { - die "$0 $ARGV[0] requires a username...\n" if $#ARGV<1; + die "$0 $ARGV[0] requires a username...\n" if $#ARGV < 1; my $cmd_line = 1; deluser($cmd_line, $ARGV[1]); exit(0); } if ("@ARGV" =~ /--addclient/) { - die "$0 $ARGV[0] requires hostname, MAC address, IP, nbi-image...\n" if $#ARGV<4; + die "$0 $ARGV[0] requires hostname, MAC address, IP, nbi-image...\n" if $#ARGV < 4; my $cmd_line = 1; addclient($cmd_line, $ARGV[1], $ARGV[2], $ARGV[3], $ARGV[4]); exit(0); } if ("@ARGV" =~ /--delclient/) { - die "$0 $ARGV[0] requires hostname...\n" if $#ARGV<1; + die "$0 $ARGV[0] requires hostname...\n" if $#ARGV < 1; my $cmd_line = 1; delclient($cmd_line, $ARGV[1], $ARGV[2], $ARGV[3]); exit(0); } read_conf_file(); -interactive_mode() if $#ARGV<1; +interactive_mode() if $#ARGV < 1; sub read_conf_file { if (-e $cfg_file) { - open (CONF_FILE, "<". $cfg_file) || print "You must be root to read configuration file. \n"; + open (CONF_FILE, "<" . $cfg_file) || print "You must be root to read configuration file. \n"; while () { next unless /\S/; next if /^#/; @@ -193,20 +193,20 @@ ca::ctrlaltdel:/sbin/reboot -f x:5:respawn:/usr/X11R6/bin/X -ac -query $server_ip\n"; my $inittab_file = "/etc/inittab\$\$IP=$client_ip\$\$"; - open(INITTAB, "> $inittab_file") || warn ("Can't open $inittab_file!"); + open(INITTAB, "> $inittab_file") || warn("Can't open $inittab_file!"); print INITTAB $inittab; close INITTAB } sub cursor_wait { # turn the cursor to a watch - $window1->{rwindow}->window->set_cursor(new Gtk::Gdk::Cursor(150)); + $window1->{rwindow}->window->set_cursor(new Gtk2::Gdk::Cursor(150)); Gtk->main_iteration while Gtk->events_pending; } sub cursor_norm { # restore normal cursor - $window1->{rwindow}->window->set_cursor(new Gtk::Gdk::Cursor(68)); + $window1->{rwindow}->window->set_cursor(new Gtk2::Gdk::Cursor(68)); Gtk->main_iteration while Gtk->events_pending; } @@ -216,11 +216,13 @@ sub display_error { my $error_box; ${$central_widget}->destroy(); gtkpack($status_box, - $error_box = gtkpack_(new Gtk::VBox(0,0), - 1, new Gtk::Label($message), - 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread), - gtksignal_connect(new Gtk::Button(N("OK")), clicked => - sub { ${$central_widget}->destroy(); create_fontsel() }), + $error_box = gtkpack_(new Gtk2::VBox(0,0), + 1, new Gtk2::Label($message), + 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'), + gtksignal_connect(new Gtk2::Button(N("OK")), clicked => sub { + ${$central_widget}->destroy(); + create_fontsel(); + }), ), ) ); @@ -230,140 +232,137 @@ sub display_error { sub interactive_mode { my $font_sel; # $interactive = 1; - $window1 = my_gtk->new('drakTermServ'); - $window1->{rwindow}->signal_connect (delete_event => sub { my_gtk->exit(0) }); + $window1 = ugtk2->new('drakTermServ'); + $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); unless ($::isEmbedded) { - $window1->{rwindow}->set_position(1); + $window1->{rwindow}->set_position('center'); $window1->{rwindow}->set_title(N("Mandrake Terminal Server Configuration")); } $window1->{rwindow}->set_border_width(5); - my ($pix_user_map, $pix_user_mask) = gtkcreate_png("ic82-network-40"); - my ($pix_u_map, $pix_u_mask) = gtkcreate_png("drakTS.620x57"); gtkadd($window1->{window}, - gtkpack_(new Gtk::VBox(0,2), - if_(!$::isEmbedded, 0, new Gtk::Pixmap($pix_u_map, $pix_u_mask)), - 1, gtkpack_(new Gtk::HBox(0,2), - 1, gtkpack_(new Gtk::VBox(0,2), - 1, gtkpack ($status_box = new Gtk::VBox(0,5), - $main_box = new Gtk::VBox(0,10), - ), - 1, gtkpack_(new Gtk::HBox(0,2), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("Enable Server")), clicked => - sub { ${$central_widget}->destroy(); - $windows = 1; - cursor_wait(); - enable_ts(); - cursor_norm(); - }), - gtksignal_connect(new Gtk::Button(N("Disable Server")), clicked => - sub { ${$central_widget}->destroy(); - cursor_wait(); - disable_ts(); - cursor_norm(); - }), - ), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("Start Server")), clicked => - sub { ${$central_widget}->destroy(); - $windows = 0; - cursor_wait(); - start_ts(); - cursor_norm(); - }), - gtksignal_connect(new Gtk::Button(N("Stop Server")), clicked => - sub { ${$central_widget}->destroy(); - cursor_wait(); - stop_ts(); - cursor_norm(); - }), - ), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("Etherboot Floppy/ISO")), clicked => - sub { ${$central_widget}->destroy(); $windows = 1; make_boot() }), - gtksignal_connect(new Gtk::Button(N("Net Boot Images")), clicked => - sub { ${$central_widget}->destroy(); make_nbi() }), - ), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("Add/Del Users")), clicked => - sub { ${$central_widget}->destroy(); $windows = 0; maintain_users() }), - gtksignal_connect(new Gtk::Button(N("Add/Del Clients")), clicked => - sub { ${$central_widget}->destroy(); maintain_clients()}), - ), - 1, new Gtk::HBox(0,2), - 0, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - gtksignal_connect(new Gtk::Button(N("Help")),clicked => - sub { ${$central_widget}->destroy(); help() }), - gtksignal_connect(new Gtk::Button(N("Close")), clicked => - sub { write_conf_file(); - $::isEmbedded and kill 'USR1', $::CCPID; - Gtk->main_quit() - } + gtkpack_(new Gtk2::VBox(0,2), + if_(!$::isEmbedded, 0, gtkcreate_img("drakTS.620x57")), + 1, gtkpack_(new Gtk2::HBox(0,2), + 1, gtkpack_(new Gtk2::VBox(0,2), + 1, gtkpack($status_box = new Gtk2::VBox(0,5), + $main_box = new Gtk2::VBox(0,10), + ), + 1, gtkpack_(new Gtk2::HBox(0,2), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'), + gtksignal_connect(new Gtk2::Button(N("Enable Server")), clicked => sub { + ${$central_widget}->destroy(); + $windows = 1; + cursor_wait(); + enable_ts(); + cursor_norm(); + }), + gtksignal_connect(new Gtk2::Button(N("Disable Server")), clicked => sub { + ${$central_widget}->destroy(); + cursor_wait(); + disable_ts(); + cursor_norm(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'), + gtksignal_connect(new Gtk2::Button(N("Start Server")), clicked => sub { + ${$central_widget}->destroy(); + $windows = 0; + cursor_wait(); + start_ts(); + cursor_norm(); + }), + gtksignal_connect(new Gtk2::Button(N("Stop Server")), clicked => sub { + ${$central_widget}->destroy(); + cursor_wait(); + stop_ts(); + cursor_norm(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'), + gtksignal_connect(new Gtk2::Button(N("Etherboot Floppy/ISO")), clicked => sub { + ${$central_widget}->destroy(); + $windows = 1; + make_boot(); + }), + gtksignal_connect(new Gtk2::Button(N("Net Boot Images")), clicked => sub { + ${$central_widget}->destroy(); + make_nbi(); + }), + ), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'), + gtksignal_connect(new Gtk2::Button(N("Add/Del Users")), clicked => sub { + ${$central_widget}->destroy(); + $windows = 0; + maintain_users(); + }), + gtksignal_connect(new Gtk2::Button(N("Add/Del Clients")), clicked => sub { ${$central_widget}->destroy(); maintain_clients() }), + ), + 1, new Gtk2::HBox(0,2), + 0, gtkadd(gtkset_layout(Gtk2::VButtonBox->new(), 'end'), + gtksignal_connect(new Gtk2::Button(N("Help")),clicked => sub { + ${$central_widget}->destroy(); + help(); + }), + gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { + write_conf_file(); + $::isEmbedded and kill 'USR1', $::CCPID; + Gtk->main_quit(); + }), + ), ), - ), - ), + ), ), - ), - ), - ); + ), + ); $central_widget = \$main_box; $window1->{rwindow}->show_all; $window1->{rwindow}->realize; $window1->{rwindow}->show_all(); $window1->main; - my_gtk->exit(0); + ugtk2->exit(0); } sub about { - my $text = new Gtk::Text(undef, undef); - my $about_box; - gtkpack($status_box, - $about_box = gtkpack_(new Gtk::VBox(0,10), - 1, gtkpack_(new Gtk::HBox(0,0), - 1, gtktext_insert(gtkset_editable($text, 1), " + text_view(N(" Copyright (C) 2002 by MandrakeSoft Stew Benedict sbenedict\@mandrakesoft.com - This program is free software; you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation; either version 2, or (at your option) - any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program; if not, write to the Free Software - Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +") . $::license . N(" Thanks: - LTSP Project http://www.ltsp.org - Michael Brown -"), - 0, new Gtk::VScrollbar($text->vadj), +")); +} + +sub text_view { + my ($text) = @_; + my $box; + gtkpack($status_box, + $box = gtkpack_(new Gtk2::VBox(0,10), + 1, gtkpack_(new Gtk2::HBox(0,0), + 1, create_scrolled_window(gtktext_insert( +# gtkset_editable( + new Gtk2::TextView, +# 1) + [ [ $text ] ]) + ), ), - 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread), - gtksignal_connect(new Gtk::Button(N("OK")), clicked => - sub { ${$central_widget}->destroy(); create_fontsel() }), - ), - ) + 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'), + gtksignal_connect(new Gtk2::Button(N("OK")), clicked => + sub { ${$central_widget}->destroy() }), + ), + ) ); - $central_widget = \$about_box; + $central_widget = \$box; $status_box->show_all(); } sub help { - my $text = new Gtk::Text(undef, undef); - my $help_box; - gtkpack($status_box, - $help_box = gtkpack_(new Gtk::VBox(0,10), - 1, gtkpack_(new Gtk::HBox(0,0), - 1, gtktext_insert(gtkset_editable($text, 1), "drakTermServ Overview + text_view(N("drakTermServ Overview - Create Etherboot Enabled Boot Images: To boot a kernel via etherboot, a special kernel/initrdrd image must be created. @@ -461,17 +460,7 @@ sub help { /usr/lib/etherboot/lzrom/3c509.lzrom > /dev/fd0 -"), - 0, new Gtk::VScrollbar($text->vadj), - ), - 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -spread), - gtksignal_connect(new Gtk::Button(N("OK")), clicked => - sub { ${$central_widget}->destroy() }), - ), - ) - ); - $central_widget = \$help_box; - $status_box->show_all(); +")); } sub make_boot { @@ -479,30 +468,30 @@ sub make_boot { my $boot_box; my $rom_path = "/usr/lib/etherboot"; my @nics = all("/usr/lib/etherboot/lzrom"); - my $list_nics = new Gtk::List(); + my $list_nics = new Gtk2::List(); my $nic; foreach (@nics) { my $t = $_; - $list_nics->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t), + $list_nics->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t), select => sub { $nic = $t }))); } $list_nics->set_selection_mode('single'); gtkpack($status_box, - $boot_box = gtkpack_(new Gtk::VBox(0,10), - 0, gtkadd(new Gtk::HBox(0,10), - new Gtk::HBox(0,5), - createScrolledWindow($list_nics), - gtkadd(new Gtk::VBox(1,10), - new Gtk::HBox(0,20), - gtksignal_connect(new Gtk::Button(N("Boot Floppy")), clicked => + $boot_box = gtkpack_(new Gtk2::VBox(0,10), + 0, gtkadd(new Gtk2::HBox(0,10), + new Gtk2::HBox(0,5), + create_scrolled_window($list_nics), + gtkadd(new Gtk2::VBox(1,10), + new Gtk2::HBox(0,20), + gtksignal_connect(new Gtk2::Button(N("Boot Floppy")), clicked => sub { write_eb_image($nic, $rom_path, "floppy") }), - gtksignal_connect(new Gtk::Button(N("Boot ISO")), clicked => + gtksignal_connect(new Gtk2::Button(N("Boot ISO")), clicked => sub { write_eb_image($nic, $rom_path, "iso") }), - new Gtk::HBox(0,20), + new Gtk2::HBox(0,20), ), - new Gtk::HBox(0,5), + new Gtk2::HBox(0,5), ), ), ); @@ -528,21 +517,21 @@ sub make_nbi { "via-rhine", "winbond-840", "xircom_cb", "xircom_tulip_cb", "yellowfin"); #- kernel/module info in tree view - my $tree_kernels = new Gtk::Tree(); + my $tree_kernels = new Gtk2::Tree(); foreach (@kernels){ my $t = $_; - my $t_kernel = new_with_label Gtk::TreeItem($t); + my $t_kernel = new_with_label Gtk2::TreeItem($t); gtksignal_connect($t_kernel, select => sub { $kernel = $t; $nic = '' }); $tree_kernels->append($t_kernel); - my $k_detail = new Gtk::Tree(); + my $k_detail = new Gtk2::Tree(); $t_kernel->set_subtree($k_detail); foreach (@nics) { my $m = $_; - my $k_det_nic = new_with_label Gtk::TreeItem($m); + my $k_det_nic = new_with_label Gtk2::TreeItem($m); gtksignal_connect($k_det_nic, select => sub { $nic = $m; $kernel = $t }); $k_detail->append($k_det_nic); @@ -551,24 +540,24 @@ sub make_nbi { } # existing nbi images in list - my $list_nbis = new Gtk::List(); + my $list_nbis = new Gtk2::List(); my @nbis = grep(/\.nbi/, all("/var/lib/tftpboot")); my $nbi; foreach (@nbis) { my $t = $_; - $list_nbis->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t), + $list_nbis->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t), select => sub { $nbi = $t }))); } $list_nbis->set_selection_mode('single'); gtkpack($status_box, - $nbi_box = gtkpack_(new Gtk::VBox(1,10), - 0, gtkadd(new Gtk::HBox(0,10), - createScrolledWindow($tree_kernels), - gtkadd(new Gtk::VBox(1,10), - gtksignal_connect(new Gtk::Button(N("Build Whole Kernel -->")), clicked => - sub { if ($kernel) { + $nbi_box = gtkpack_(new Gtk2::VBox(1,10), + 0, gtkadd(new Gtk2::HBox(0,10), + create_scrolled_window($tree_kernels), + gtkadd(new Gtk2::VBox(1,10), + gtksignal_connect(new Gtk2::Button(N("Build Whole Kernel -->")), clicked => + sub { if ($kernel) { $in->ask_warn('',N("This will take a few minutes.")); cursor_wait(); system("/usr/bin/mknbi-set -k /boot/$kernel"); @@ -576,7 +565,7 @@ sub make_nbi { @nbis = grep(/\.nbi/, all("/var/lib/tftpboot")); foreach (@nbis) { my $t = $_; - $list_nbis->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t), + $list_nbis->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t), select => sub { $nbi = $t }))); } cursor_norm(); @@ -584,42 +573,42 @@ sub make_nbi { $in->ask_warn('',N("No kernel selected!")) if !($kernel); } }), - gtksignal_connect(new Gtk::Button(N("Build Single NIC -->")), clicked => + gtksignal_connect(new Gtk2::Button(N("Build Single NIC -->")), clicked => sub { if ($nic) { system("/usr/bin/mknbi-set -k /boot/$kernel -r $nic"); $list_nbis->clear_items(); @nbis = grep(/\.nbi/, all("/var/lib/tftpboot")); foreach (@nbis) { my $t = $_; - $list_nbis->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t), + $list_nbis->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t), select => sub { $nbi = $t }))); } } else { $in->ask_warn('',N("No nic selected!")); } }), - gtksignal_connect(new Gtk::Button(N("Build All Kernels -->")), clicked => - sub { $in->ask_warn('',N("This will take a few minutes.")); + gtksignal_connect(new Gtk2::Button(N("Build All Kernels -->")), clicked => sub { + $in->ask_warn('',N("This will take a few minutes.")); cursor_wait(); system("/usr/bin/mknbi-set"); $list_nbis->clear_items(); @nbis = grep(/\.nbi/, all("/var/lib/tftpboot")); foreach (@nbis) { my $t = $_; - $list_nbis->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t), + $list_nbis->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t), select => sub { $nbi = $t }))); } cursor_norm(); }), - new Gtk::HBox(1,1), - gtksignal_connect(new Gtk::Button(N("<-- Delete")), clicked => + new Gtk2::HBox(1,1), + gtksignal_connect(new Gtk2::Button(N("<-- Delete")), clicked => sub { my $nbi = "/var/lib/tftpboot/" . $nbi; my $result = unlink($nbi) || warn("Can't delete $nbi..."); if ($result eq 1) { $list_nbis->remove_items($list_nbis->selection); } }), - gtksignal_connect(new Gtk::Button(N("Delete All NBIs")), clicked => + gtksignal_connect(new Gtk2::Button(N("Delete All NBIs")), clicked => sub { cursor_wait(); foreach (grep(/\.nbi/, all("/var/lib/tftpboot"))) { my $nbi = "/var/lib/tftpboot/" . $_; @@ -631,9 +620,9 @@ sub make_nbi { $list_nbis->clear_items(); cursor_norm(); }), - new Gtk::HBox(1,1), + new Gtk2::HBox(1,1), ), - createScrolledWindow($list_nbis), + create_scrolled_window($list_nbis), ),), ); @@ -650,52 +639,52 @@ sub maintain_users { #- use /homes to filter system daemons my @homes = all("/home"); - my $list_sys_users = new Gtk::List(); + my $list_sys_users = new Gtk2::List(); my $sys_user; foreach (@sys_users) { my ($s_label, $dummy) = split(/:/, $_, 2); if (grep(/$s_label/, @homes)) { - $list_sys_users->add(gtkshow(gtksignal_connect(new Gtk::ListItem($s_label), + $list_sys_users->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($s_label), select => sub { $sys_user = $s_label }))); } } $list_sys_users->set_selection_mode('single'); - my $list_ts_users = new Gtk::List(); + my $list_ts_users = new Gtk2::List(); my $ts_user; foreach (@ts_users) { my ($t_label, $dummy) = split(/:/, $_, 2); my @system_entry = grep(/$t_label/, @sys_users); $t_label = $t_label . " !!!" if ($_ ne $system_entry[0]); - $list_ts_users->add(gtkshow(gtksignal_connect(new Gtk::ListItem($t_label), + $list_ts_users->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($t_label), select => sub { $ts_user = $t_label }))); } $list_ts_users->set_selection_mode('single'); gtkpack($status_box, - $user_box = gtkpack_(new Gtk::VBox(0,10), - 0, gtkadd(new Gtk::Label(N("!!! Indicates the password in the system database is different than\n the one in the Terminal Server database.\nDelete/re-add the user to the Terminal Server to enable login."))), - 0, gtkadd(new Gtk::HBox(0,20), - createScrolledWindow($list_sys_users), - gtkadd(new Gtk::VBox(1,10), - new Gtk::HBox(0,10), - gtksignal_connect(new Gtk::Button(N("Add User -->")), clicked => + $user_box = gtkpack_(new Gtk2::VBox(0,10), + 0, gtkadd(new Gtk2::Label(N("!!! Indicates the password in the system database is different than\n the one in the Terminal Server database.\nDelete/re-add the user to the Terminal Server to enable login."))), + 0, gtkadd(new Gtk2::HBox(0,20), + create_scrolled_window($list_sys_users), + gtkadd(new Gtk2::VBox(1,10), + new Gtk2::HBox(0,10), + gtksignal_connect(new Gtk2::Button(N("Add User -->")), clicked => sub { my $result = adduser(0, $sys_user); if ($result eq 0) { - $list_ts_users->add(gtkshow(gtksignal_connect(new Gtk::ListItem($sys_user), + $list_ts_users->add(gtkshow(gtksignal_connect(new Gtk2::ListItem($sys_user), select => sub { $ts_user = $sys_user; $list_ts_users->show() }))); } }), - gtksignal_connect(new Gtk::Button(N("<-- Del User")), clicked => + gtksignal_connect(new Gtk2::Button(N("<-- Del User")), clicked => sub { deluser(0, $ts_user); $list_ts_users->remove_items($list_ts_users->selection); }), - new Gtk::HBox(0,10), + new Gtk2::HBox(0,10), ), - createScrolledWindow($list_ts_users), + create_scrolled_window($list_ts_users), ),), ); @@ -710,30 +699,30 @@ sub maintain_clients { my $client; #- client info in tree view - my $tree_clients = new Gtk::Tree(); + my $tree_clients = new Gtk2::Tree(); foreach my $key(keys(%clients)){ my $t = $key; - my $t_client = new_with_label Gtk::TreeItem($t); + my $t_client = new_with_label Gtk2::TreeItem($t); gtksignal_connect($t_client, select => sub { $client = $t }); $tree_clients->append($t_client); - my $c_detail = new Gtk::Tree(); + my $c_detail = new Gtk2::Tree(); $t_client->set_subtree($c_detail); - my $c_det_hw = new_with_label Gtk::TreeItem($clients{$key}{hardware}); + my $c_det_hw = new_with_label Gtk2::TreeItem($clients{$key}{hardware}); $c_detail->append($c_det_hw); $c_det_hw->show(); - my $c_det_ip = new_with_label Gtk::TreeItem($clients{$key}{address}); + my $c_det_ip = new_with_label Gtk2::TreeItem($clients{$key}{address}); $c_detail->append($c_det_ip); $c_det_ip->show(); - my $c_det_type = new_with_label Gtk::TreeItem(N("type: %s", $clients{$key}{type})); + my $c_det_type = new_with_label Gtk2::TreeItem(N("type: %s", $clients{$key}{type})); $c_detail->append($c_det_type); $c_det_type->show(); if ($clients{$key}{filename}) { - my $c_det_nbi = new_with_label Gtk::TreeItem($clients{$key}{filename}); + my $c_det_nbi = new_with_label Gtk2::TreeItem($clients{$key}{filename}); $c_detail->append($c_det_nbi); $c_det_nbi->show(); } @@ -741,18 +730,18 @@ sub maintain_clients { $tree_clients->set_selection_mode('single'); #- entry boxes for client data entry - my $label_host = new Gtk::Label("Client Name:"); + my $label_host = new Gtk2::Label("Client Name:"); $label_host->set_justify('left'); - my $entry_host = new Gtk::Entry(20); - my $label_mac = new Gtk::Label("MAC Address:"); + my $entry_host = new Gtk2::Entry(20); + my $label_mac = new Gtk2::Label("MAC Address:"); $label_mac->set_justify('left'); - my $entry_mac = new Gtk::Entry(20); - my $label_ip = new Gtk::Label("IP Address:"); + my $entry_mac = new Gtk2::Entry(20); + my $label_ip = new Gtk2::Label("IP Address:"); $label_ip->set_justify('left'); - my $entry_ip = new Gtk::Entry(20); - my $label_nbi = new Gtk::Label("Kernel Netboot Image:"); + my $entry_ip = new Gtk2::Entry(20); + my $label_nbi = new Gtk2::Label("Kernel Netboot Image:"); $label_nbi->set_justify('left'); - my $entry_nbi = new Gtk::Combo(); + my $entry_nbi = new Gtk2::Combo(); my @images = grep(/\.nbi/, all("/var/lib/tftpboot/")); my $have_nbis = @images; @@ -771,22 +760,22 @@ sub maintain_clients { my $is_thin = 0; gtkpack($status_box, - $client_box = gtkpack_(new Gtk::VBox(1,10), - 0, gtkadd(new Gtk::HBox(0,5), - gtkadd(new Gtk::VBox(0,5), + $client_box = gtkpack_(new Gtk2::VBox(1,10), + 0, gtkadd(new Gtk2::HBox(0,5), + gtkadd(new Gtk2::VBox(0,5), gtkadd($label_host), gtkadd($entry_host), gtkadd($label_mac), gtkadd($entry_mac), gtkadd($label_ip), gtkadd($entry_ip), gtkadd($label_nbi), gtkadd($entry_nbi), ), - gtkadd(new Gtk::VBox(1,10), - gtkadd(new Gtk::HBox(0,1), - gtksignal_connect($check_thin = new Gtk::CheckButton(N("Thin Client")), clicked => + gtkadd(new Gtk2::VBox(1,10), + gtkadd(new Gtk2::HBox(0,1), + gtksignal_connect($check_thin = new Gtk2::CheckButton(N("Thin Client")), clicked => sub { invbool \$is_thin }), - $check_allow_thin = new Gtk::CheckButton(N("Allow Thin Clients")), + $check_allow_thin = new Gtk2::CheckButton(N("Allow Thin Clients")), ), -# new Gtk::HBox(1,1), - gtksignal_connect(new Gtk::Button(N("Add Client -->")), clicked => +# new Gtk2::HBox(1,1), + gtksignal_connect(new Gtk2::Button(N("Add Client -->")), clicked => sub { my $hostname = $entry_host->get_text(); my $mac = $entry_mac->get_text(); my $ip = $entry_ip->get_text(); @@ -796,29 +785,29 @@ sub maintain_clients { my $result = addclient(0, $hostname, $mac, $ip, $nbi, $is_thin); if ($result eq 0) { - my $t_client = new_with_label Gtk::TreeItem($hostname); + my $t_client = new_with_label Gtk2::TreeItem($hostname); gtksignal_connect($t_client, select => sub { $client = $hostname }); $tree_clients->append($t_client); - my $c_detail = new Gtk::Tree(); + my $c_detail = new Gtk2::Tree(); $t_client->set_subtree($c_detail); - my $c_det_hw = new_with_label Gtk::TreeItem($mac); + my $c_det_hw = new_with_label Gtk2::TreeItem($mac); $c_detail->append($c_det_hw); $c_det_hw->show(); - my $c_det_ip = new_with_label Gtk::TreeItem($ip); + my $c_det_ip = new_with_label Gtk2::TreeItem($ip); $c_detail->append($c_det_ip); $c_det_ip->show(); my $client_type = "type: fat"; $client_type = "type: thin" if ($is_thin eq 1); - my $c_det_type = new_with_label Gtk::TreeItem($client_type); + my $c_det_type = new_with_label Gtk2::TreeItem($client_type); $c_detail->append($c_det_type); $c_det_type->show(); if ($nbi) { - my $c_det_nbi = new_with_label Gtk::TreeItem($nbi); + my $c_det_nbi = new_with_label Gtk2::TreeItem($nbi); $c_detail->append($c_det_nbi); $c_det_nbi->show(); } @@ -829,7 +818,7 @@ sub maintain_clients { } } }), - gtksignal_connect(new Gtk::Button(N("<-- Edit Client")), clicked => + gtksignal_connect(new Gtk2::Button(N("<-- Edit Client")), clicked => sub { $entry_host->set_text($client); $entry_mac->set_text($clients{$client}{hardware}); $entry_ip->set_text($clients{$client}{address}); @@ -845,17 +834,17 @@ sub maintain_clients { $tree_clients->remove_items($tree_clients->selection); } }), - gtksignal_connect(new Gtk::Button(N("Delete Client")), clicked => + gtksignal_connect(new Gtk2::Button(N("Delete Client")), clicked => sub { my $result = delclient(0, $client); if ($result eq 0) { $tree_clients->remove_items($tree_clients->selection); } }), - gtksignal_connect(new Gtk::Button(N("dhcpd Config...")), clicked => + gtksignal_connect(new Gtk2::Button(N("dhcpd Config...")), clicked => sub { ${$central_widget}->destroy(); dhcpd_config() }), -# new Gtk::HBox(1,1), +# new Gtk2::HBox(1,1), ), - createScrolledWindow($tree_clients), + create_scrolled_window($tree_clients), ),), ); @@ -901,65 +890,65 @@ sub dhcpd_config { my @nservers; #- entry boxes for data entry - my $box_subnet = new Gtk::HBox(0,0); - my $label_subnet = new Gtk::Label(N("Subnet:")); + my $box_subnet = new Gtk2::HBox(0,0); + my $label_subnet = new Gtk2::Label(N("Subnet:")); $label_subnet->set_justify('right'); - my $entry_subnet = new Gtk::Entry(20); + my $entry_subnet = new Gtk2::Entry(20); $box_subnet->pack_end($entry_subnet, 0, 0, 10); $box_subnet->pack_end($label_subnet, 0, 0, 10); - my $box_netmask = new Gtk::HBox(0,0); - my $label_netmask = new Gtk::Label(N("Netmask:")); + my $box_netmask = new Gtk2::HBox(0,0); + my $label_netmask = new Gtk2::Label(N("Netmask:")); $label_netmask->set_justify('left'); - my $entry_netmask = new Gtk::Entry(20); + my $entry_netmask = new Gtk2::Entry(20); $box_netmask->pack_end($entry_netmask, 0, 0, 10); $box_netmask->pack_end($label_netmask, 0, 0, 10); - my $box_routers = new Gtk::HBox(0,0); - my $label_routers = new Gtk::Label(N("Routers:")); + my $box_routers = new Gtk2::HBox(0,0); + my $label_routers = new Gtk2::Label(N("Routers:")); $label_routers->set_justify('left'); - my $entry_routers = new Gtk::Entry(20); + my $entry_routers = new Gtk2::Entry(20); $box_routers->pack_end($entry_routers, 0, 0, 10); $box_routers->pack_end($label_routers, 0, 0, 10); - my $box_subnet_mask = new Gtk::HBox(0,0); - my $label_subnet_mask = new Gtk::Label(N("Subnet Mask:")); + my $box_subnet_mask = new Gtk2::HBox(0,0); + my $label_subnet_mask = new Gtk2::Label(N("Subnet Mask:")); $label_subnet_mask->set_justify('left'); - my $entry_subnet_mask = new Gtk::Entry(); + my $entry_subnet_mask = new Gtk2::Entry(); $box_subnet_mask->pack_end($entry_subnet_mask, 0, 0, 10); $box_subnet_mask->pack_end($label_subnet_mask, 0, 0, 10); - my $box_broadcast = new Gtk::HBox(0,0); - my $label_broadcast = new Gtk::Label(N("Broadcast Address:")); + my $box_broadcast = new Gtk2::HBox(0,0); + my $label_broadcast = new Gtk2::Label(N("Broadcast Address:")); $label_broadcast->set_justify('left'); - my $entry_broadcast = new Gtk::Entry(20); + my $entry_broadcast = new Gtk2::Entry(20); $box_broadcast->pack_end($entry_broadcast, 0, 0, 10); $box_broadcast->pack_end($label_broadcast, 0, 0, 10); - my $box_domain = new Gtk::HBox(0,0); - my $label_domain = new Gtk::Label(N("Domain Name:")); + my $box_domain = new Gtk2::HBox(0,0); + my $label_domain = new Gtk2::Label(N("Domain Name:")); $label_domain->set_justify('left'); - my $entry_domain = new Gtk::Entry(20); + my $entry_domain = new Gtk2::Entry(20); $box_domain->pack_end($entry_domain, 0, 0, 10); $box_domain->pack_end($label_domain, 0, 0, 10); - my $box_name_servers = new Gtk::HBox(0,0); - my $box_name_servers_entry = new Gtk::VBox(0,0); - my $label_name_servers = new Gtk::Label(N("Name Servers:")); + my $box_name_servers = new Gtk2::HBox(0,0); + my $box_name_servers_entry = new Gtk2::VBox(0,0); + my $label_name_servers = new Gtk2::Label(N("Name Servers:")); $label_name_servers->set_justify('left'); - my $entry_name_server1 = new Gtk::Entry(); - my $entry_name_server2 = new Gtk::Entry(); - my $entry_name_server3 = new Gtk::Entry(); + my $entry_name_server1 = new Gtk2::Entry(); + my $entry_name_server2 = new Gtk2::Entry(); + my $entry_name_server3 = new Gtk2::Entry(); $box_name_servers_entry->pack_start($entry_name_server1, 0, 0, 0); $box_name_servers_entry->pack_start($entry_name_server2, 0, 0, 0); $box_name_servers_entry->pack_start($entry_name_server3, 0, 0, 0); $box_name_servers->pack_end($box_name_servers_entry, 0, 0, 10); $box_name_servers->pack_end($label_name_servers, 0, 0, 10); - my $label_ip_range_start = new Gtk::Label(N("IP Range Start:")); - my $label_ip_range_end = new Gtk::Label(N("IP Range End:")); - my $entry_ip_range_start = new Gtk::Entry(15); - my $entry_ip_range_end = new Gtk::Entry(15); + my $label_ip_range_start = new Gtk2::Label(N("IP Range Start:")); + my $label_ip_range_end = new Gtk2::Label(N("IP Range End:")); + my $entry_ip_range_start = new Gtk2::Entry(15); + my $entry_ip_range_end = new Gtk2::Entry(15); #- grab some default entries from the running system @@ -987,7 +976,7 @@ sub dhcpd_config { chop(@resolve); foreach (@resolve) { - @ifvalues = split(/ /, $_); + @ifvalues = split / /; if (($ifvalues[0] =~ /nameserver/) && ($i lt 4)){ $nservers[$i] = $ifvalues[1]; $i++; } @@ -998,8 +987,8 @@ sub dhcpd_config { $entry_name_server3->set_text($nservers[3]); gtkpack($status_box, - $dhcpd_box = gtkpack_(new Gtk::HBox(1,10), - 0, gtkadd((new Gtk::VBox), + $dhcpd_box = gtkpack_(new Gtk2::HBox(1,10), + 0, gtkadd((new Gtk2::VBox), gtkadd($box_subnet), gtkadd($box_netmask), gtkadd($box_routers), @@ -1008,25 +997,25 @@ sub dhcpd_config { gtkadd($box_domain), gtkadd($box_name_servers), ), - 0, gtkadd(new Gtk::VBox(0,0), - new Gtk::Label(N("dhcpd Server Configuration")."\n\n". + 0, gtkadd(new Gtk2::VBox(0,0), + new Gtk2::Label(N("dhcpd Server Configuration")."\n\n". N("Most of these values were extracted\nfrom your running system.\nYou can modify as needed.")), - new Gtk::HSeparator, - gtkadd((new Gtk::HBox), - new Gtk::Label(N("Dynamic IP Address Pool:")), + new Gtk2::HSeparator, + gtkadd((new Gtk2::HBox), + new Gtk2::Label(N("Dynamic IP Address Pool:")), ), - gtkadd((new Gtk::HBox(0,0)), - gtkadd((new Gtk::VBox), + gtkadd((new Gtk2::HBox(0,0)), + gtkadd((new Gtk2::VBox), gtkadd($label_ip_range_start), gtkadd($entry_ip_range_start), ), - gtkadd((new Gtk::VBox), + gtkadd((new Gtk2::VBox), gtkadd($label_ip_range_end), gtkadd($entry_ip_range_end), ), ), - gtkadd(new Gtk::HBox), - gtksignal_connect(new Gtk::Button(N("Write Config")), clicked => + gtkadd(new Gtk2::HBox), + gtksignal_connect(new Gtk2::Button(N("Write Config")), clicked => sub { write_dhcpd_config( $entry_subnet->get_text(), $entry_netmask->get_text(), @@ -1040,7 +1029,7 @@ sub dhcpd_config { $entry_ip_range_start->get_text(), $entry_ip_range_end->get_text(), ) }), - new Gtk::HBox(0,10), + new Gtk2::HBox(0,10), ), ), ); @@ -1133,7 +1122,7 @@ sub write_eb_image { $result = system("cat $rom_path/boot1a.bin $rom_path/lzrom/$nic > /dev/fd0") if $result; if ($result) { $in->ask_warn('',N("Couldn't access the floppy!")) - } else { + } else { $in->ask_warn('',N("Floppy can be removed now")) } } else { @@ -1192,7 +1181,7 @@ sub enable_ts { $buff_index = toggle_chkconfig("on", "tftp", $buff_index); $buff_index = service_change("xinetd", "restart", $buff_index); $buff[$buff_index] = "\n\tDone!"; - + if ($cmd_line == 1){ print "@buff\n"; return; @@ -1285,21 +1274,7 @@ sub stop_ts { } sub show_status { - #- just a generic routine to display an array of text in the GUI screen - my @buff = @_; - - my $text = new Gtk::Text(undef, undef); - my $status_t_box; - gtkpack($status_box, - $status_t_box = gtkpack_(new Gtk::VBox(0,10), - 1, gtkpack_(new Gtk::HBox(0,0), - 1, gtktext_insert(gtkset_editable($text, 1), "@buff"), - ), - ), - ); - - $central_widget = \$status_t_box; - $status_box->show_all(); + text_view("@buff"); } sub adduser { diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 998f8c706..376fb2fd3 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -78,20 +78,18 @@ # directory to install fonts /usr/X11R6/lib/X11/fonts/ # -->> /usr/X11R6/lib/X11/fonts/drakfont -use lib qw(/usr/lib/libDrakX ); +use strict; +use diagnostics; +use lib qw(/usr/lib/libDrakX); use standalone; #- warning, standalone must be loaded very first, for 'explanations' use interactive; -use my_gtk qw(:helpers :wrappers); +use ugtk2 qw(:helpers :wrappers :create); use common; -use strict; -use diagnostics; -#use Config; -#use POSIX; -my $in = 'interactive'->vnew( 'su', 'network' ); +my $in = 'interactive'->vnew('su', 'network'); # global variables needed by each functions my $xlsfonts = 0; @@ -147,12 +145,12 @@ foreach (@ARGV) { } foreach my $i (@application) { - if ( $i =~ /so/i ) { - if ( $gs != 2 ) { $gs = 0; } + if ($i =~ /so/i) { + if ($gs != 2) { $gs = 0 } $so = 2; } - if ( $i =~ /gs/i ) { - if ( $so != 2 ) { $so = 0; } + if ($i =~ /gs/i) { + if ($so != 2) { $so = 0 } $gs = 2; } } @@ -186,7 +184,7 @@ my @fontsdir_to_uninstall; my @installed_fonts_full_path; sub list_fontpath { - foreach ( grep { /\d+:\s/ } `$chkfontpath -l` ) { + foreach (grep { /\d+:\s/ } `$chkfontpath -l`) { chomp; s/\d+:\s//gi; s/:\w*$//gi; @@ -198,12 +196,12 @@ sub chk_empty_xfs_path { my @temp3; foreach my $tmp_path (@installed_fonts_path) { @temp3 = (); - foreach my $temp2 ( all($tmp_path) ) { - if ( !( ( $temp2 =~ /^fonts/ ) || ( $temp2 =~ /^type/ ) ) ) { + foreach my $temp2 (all($tmp_path)) { + if (!($temp2 =~ /^fonts/ || $temp2 =~ /^type/)) { push @temp3, $temp2; } } - if ( !(@temp3) ) { + if (!(@temp3)) { system("chkfontpath -r $tmp_path ") or print "PERL::system command failed during chkfontpath\n"; } @@ -212,51 +210,51 @@ sub chk_empty_xfs_path { sub search_installed_fonts { list_fontpath(); - $interactive and progress( $pbar, 0.1, N("Search installed fonts") ); + $interactive and progress($pbar, 0.1, N("Search installed fonts")); push @installed_fonts, all($_) foreach @installed_fonts_path; - $interactive and progress( $pbar, 0.1, N("Unselect fonts installed") ); + $interactive and progress($pbar, 0.1, N("Unselect fonts installed")); } sub search_installed_fonts_full_path { list_fontpath(); foreach my $i (@installed_fonts_path) { - foreach my $j ( all($i) ) { + foreach my $j (all($i)) { push @installed_fonts_full_path, "$i/$j"; } } } sub search_windows_font { - foreach my $fstab_line ( grep { /vfat|ntfs/ } cat_('/etc/mtab') ) { - my $win_dir = ( split ( '\s', $fstab_line ) )[1]; + foreach my $fstab_line (grep { /vfat|ntfs/ } cat_('/etc/mtab')) { + my $win_dir = (split ('\s', $fstab_line))[1]; my @list_fonts_win = all("$win_dir/windows/fonts"); my @list_fonts_winnt = all("$win_dir/winnt/fonts"); my $nb_dir = @list_fonts_win + @list_fonts_winnt; - foreach ( [ \@list_fonts_win, "windows" ], - [ \@list_fonts_winnt, "winnt" ] ) + foreach ([ \@list_fonts_win, "windows" ], + [ \@list_fonts_winnt, "winnt" ]) { - foreach my $i ( @{ $_->[0] } ) { + foreach my $i (@{ $_->[0] }) { if ($interactive) { if ($nb_dir) { - progress( $pbar, 0.25 / $nb_dir, N("parse all fonts") ); + progress($pbar, 0.25 / $nb_dir, N("parse all fonts")); } else { - display_error( N("no fonts found") ); + display_error(N("no fonts found")); return 0; } } - !$replace && grep( /$i/, @installed_fonts ) and next; - grep ( /$i$/, @font_list ) + !$replace && grep(/$i/, @installed_fonts) and next; + grep (/$i$/, @font_list) or push @font_list, "$win_dir/$_->[1]/fonts/$i"; } } - $interactive && $nb_dir and progress( $pbar, 1, N("done") ); + $interactive && $nb_dir and progress($pbar, 1, N("done")); } - if ( !@font_list ) { + if (!@font_list) { print "drakfont:: could not find any font in /win*/fonts \n"; $interactive and display_error( - N("could not find any font in your mounted partitions") ); + N("could not find any font in your mounted partitions")); return 0; } 1; @@ -276,18 +274,18 @@ sub is_a_font { # Optimisation de cette etape indispensable sub search_dir_font { foreach my $fn (@install) { - my @font_list_tmp = (); - my @font_list_tmpp = (); + my @font_list_tmp; + my @font_list_tmpp; my $dir; - if ( !( -e $fn ) ) { print "$_ :: no such file or directory \n" } + if (!(-e $fn)) { print "$_ :: no such file or directory \n" } else { - if ( -d $fn ) { + if (-d $fn) { $dir = $fn; - foreach my $i ( all($fn) ) { - if ( is_a_font($i) ) { + foreach my $i (all($fn)) { + if (is_a_font($i)) { push @font_list_tmp, "$i"; foreach my $i (@font_list_tmp) { - !$replace && grep( /$i/, @installed_fonts ) + !$replace && grep(/$i/, @installed_fonts) and next; grep /$i/, @font_list or push @font_list, "$fn/$i"; } @@ -295,57 +293,57 @@ sub search_dir_font { } } else { - if ( is_a_font($fn) ) { - !$replace && grep( /$fn/, @installed_fonts ) and next; + if (is_a_font($fn)) { + !$replace && grep(/$fn/, @installed_fonts) and next; !grep /$fn/, (@installed_fonts) and push @font_list, "$fn"; } } } $interactive - and progress( $pbar, 0.50 / @install, N("Reselect correct fonts") ); + and progress($pbar, 0.50 / @install, N("Reselect correct fonts")); } - $interactive and progress( $pbar, 1, N("done") ); + $interactive and progress($pbar, 1, N("done")); !@font_list && $interactive - and display_error( N("could not find any font.\n") ); + and display_error(N("could not find any font.\n")); } sub search_dir_font_uninstall { - my @font_list_tmp = (); - my $fn = $_; - if ( -d $fn ) { - foreach my $i ( all($fn) ) { - if ( is_a_font($i) ) { push @font_list_tmp, "$i"; } + my @font_list_tmp; + my $fn = $_; + if (-d $fn) { + foreach my $i (all($fn)) { + if (is_a_font($i)) { push @font_list_tmp, "$i" } } } else { - if ( is_a_font($fn) ) { push @font_list_tmp, "$fn"; } + if (is_a_font($fn)) { push @font_list_tmp, "$fn" } } foreach my $i (@installed_fonts_full_path) { foreach my $j (@font_list_tmp) { - if ( $i =~ /$j/ ) { push @font_list, "$i"; } + if ($i =~ /$j/) { push @font_list, "$i" } } } - print "Fonts to uninstal: " . $_ . "\n" foreach (@font_list); + print "Fonts to uninstal: " . $_ . "\n" foreach @font_list; } sub search_dir_font_uninstall_gi { @font_list = @uninstall; - $interactive and progress( $pbar, 1, N("Search fonts in installed list") ); + $interactive and progress($pbar, 1, N("Search fonts in installed list")); } sub print_list { print "Font(s) to Install:\n\n"; - print "$_\n" foreach (@font_list); + print "$_\n" foreach @font_list; } sub dir_created { -e $drakfont_dir || mkdir_p($drakfont_dir); - -e $drakfont_dir . "/Type1" || mkdir_p( $drakfont_dir . "/Type1" ); - -e $drakfont_dir . "/ttf" || mkdir_p( $drakfont_dir . "/ttf" ); - -e $drakfont_dir . "/tmp" || mkdir_p( $drakfont_dir . "/tmp" ); - -e $drakfont_dir . "/tmp/ttf" || mkdir_p( $drakfont_dir . "/tmp/ttf" ); - -e $drakfont_dir . "/tmp/Type1" || mkdir_p( $drakfont_dir . "/tmp/Type1" ); - -e $drakfont_dir . "/tmp/tmp" || mkdir_p( $drakfont_dir . "/tmp/tmp" ); + -e $drakfont_dir . "/Type1" || mkdir_p($drakfont_dir . "/Type1"); + -e $drakfont_dir . "/ttf" || mkdir_p($drakfont_dir . "/ttf"); + -e $drakfont_dir . "/tmp" || mkdir_p($drakfont_dir . "/tmp"); + -e $drakfont_dir . "/tmp/ttf" || mkdir_p($drakfont_dir . "/tmp/ttf"); + -e $drakfont_dir . "/tmp/Type1" || mkdir_p($drakfont_dir . "/tmp/Type1"); + -e $drakfont_dir . "/tmp/tmp" || mkdir_p($drakfont_dir . "/tmp/tmp"); } sub put_font_dir { @@ -356,42 +354,42 @@ sub put_font_dir { if (@font_list) { dir_created(); foreach my $i (@font_list) { - cp_af( $i, $drakfont_dir . "/tmp/tmp" ); + cp_af($i, $drakfont_dir . "/tmp/tmp"); $interactive - and progress( $pbar1, 1 / @font_list, N("Fonts copy") ); + and progress($pbar1, 1 / @font_list, N("Fonts copy")); } - $interactive and progress( $pbar1, 0.01, N("done") ); + $interactive and progress($pbar1, 0.01, N("done")); $interactive - and progress( $pbar2, 0.10, N("True Type fonts installation") ); + and progress($pbar2, 0.10, N("True Type fonts installation")); glob("$drakfont_dir/tmp/tmp/*.TTF") - and system( 'cd ' + and system('cd ' . $drakfont_dir . '/tmp/tmp ; for foo in *.TTF; do mv $foo `basename $foo .TTF`.ttf; done' ); - system( 'cd ' . $drakfont_dir . '/tmp/tmp && cp *.ttf ../../ttf' ); + system('cd ' . $drakfont_dir . '/tmp/tmp && cp *.ttf ../../ttf'); $interactive - and progress( $pbar2, 0.20, N("please wait during ttmkfdir...") ); + and progress($pbar2, 0.20, N("please wait during ttmkfdir...")); my $ttfdir = $drakfont_dir . "/ttf"; # mkttfdir only knows about iso-8859-1, using ttmkfdir -u instead -- pablo #`$mkttfdir $ttfdir`; - system ("cd $ttfdir && $xftcache . && $ttmkfdir -u > fonts.dir"); - $interactive and progress( $pbar2, 0.10, N("True Type install done") ); + system("cd $ttfdir && $xftcache . && $ttmkfdir -u > fonts.dir"); + $interactive and progress($pbar2, 0.10, N("True Type install done")); my $update_chkfontpath = "$chkfontpath -a $drakfont_dir/ttf"; - if ( $so && $gs ) { + if ($so && $gs) { my @glob_drak = glob("$drakfont_dir/tmp/tmp/*.ttf"); foreach my $fontname (@glob_drak) { system("cd $drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname"); $interactive and - progress( $pbar2, 0.50 / @glob_drak, N("Fonts conversion") ); + progress($pbar2, 0.50 / @glob_drak, N("Fonts conversion")); } system( "cd $drakfont_dir/tmp/tmp && mv *.gsf *.pfb *.pfm *.afm ../Type1" ); system("cd $drakfont_dir/tmp/Type1 && $type1inst"); - $interactive and progress( $pbar2, 0.10, N("type1inst building") ); + $interactive and progress($pbar2, 0.10, N("type1inst building")); -e "$drakfont_dir/tmp/Type1/Fontmap" and system( "cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` " @@ -402,21 +400,21 @@ sub put_font_dir { my $type1dir = $drakfont_dir . "/Type1"; system("cd $type1dir && $xftcache . && $type1inst"); $interactive - and progress( $pbar2, 0.05, N("Ghostscript referencing") ); + and progress($pbar2, 0.05, N("Ghostscript referencing")); $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1"; } - if ( !$so && $gs ) { + if (!$so && $gs) { foreach - my $fontname ( @tmpl = glob("$/drakfont_dir/tmp/tmp/*.ttf") ) + my $fontname (@tmpl = glob("$/drakfont_dir/tmp/tmp/*.ttf")) { system("cd $/drakfont_dir/tmp/tmp && $ttf2pt1 -b $fontname"); $interactive - and progress( $pbar2, 0.50 / @tmpl, N("Fonts conversion") ); + and progress($pbar2, 0.50 / @tmpl, N("Fonts conversion")); } system("cd $drakfont_dir/tmp/tmp && mv *.gsf *.pfb *.pfm ../Type1"); system("cd $drakfont_dir/tmp/Type1 && $type1inst"); - $interactive and progress( $pbar2, 0.1, N("type1inst building") ); + $interactive and progress($pbar2, 0.1, N("type1inst building")); system( "cd $drakfont_dir/tmp/Type1 && cat Fontmap >> `rpm -ql ghostscript | grep Fontmap.GS` " ); @@ -426,80 +424,80 @@ sub put_font_dir { my $type1dir = $drakfont_dir . "/Type1"; system("cd $type1dir && $xftcache . && $type1inst"); $interactive - and progress( $pbar2, 0.05, N("Ghostscript referencing") ); + and progress($pbar2, 0.05, N("Ghostscript referencing")); $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1"; } - if ( $so && !$gs ) { - foreach my $fontname ( @tmpl = glob("$drakfont_dir/tmp/tmp/*.ttf") ) + if ($so && !$gs) { + foreach my $fontname (@tmpl = glob("$drakfont_dir/tmp/tmp/*.ttf")) { system("cd $drakfont_dir/tmp/tmp && $ttf2pt1 $fontname"); $interactive and - progress( $pbar2, 0.25 / @tmpl, N("ttf fonts conversion") ); + progress($pbar2, 0.25 / @tmpl, N("ttf fonts conversion")); } - foreach my $fontname ( @tmpl = glob("$drakfont_dir/tmp/tmp/*.pfm") ) + foreach my $fontname (@tmpl = glob("$drakfont_dir/tmp/tmp/*.pfm")) { system("cd $drakfont_dir/tmp/tmp && $pfm2afm $fontname"); $interactive and - progress( $pbar2, 0.25 / @tmpl, N("pfm fonts conversion") ); + progress($pbar2, 0.25 / @tmpl, N("pfm fonts conversion")); } system("cd $drakfont_dir/tmp/tmp && mv *.afm ../Type1"); system("cd $drakfont_dir/tmp/Type1 && mv *.afm ../../Type1 "); my $type1dir = $drakfont_dir . "/Type1"; system("cd $type1dir && $xftcache . && $type1inst"); - $interactive and progress( $pbar2, 0.14, N("type1inst building") ); + $interactive and progress($pbar2, 0.14, N("type1inst building")); $update_chkfontpath .= "; $chkfontpath -a $drakfont_dir/Type1"; } - $interactive and progress( $pbar2, 1, N("done") ); + $interactive and progress($pbar2, 1, N("done")); $interactive - and progress( $pbar3, 0.25, N("Suppress temporary Files") ); + and progress($pbar3, 0.25, N("Suppress temporary Files")); rm_rf("$drakfont_dir/tmp/"); print "\n\nretarting xfs......\n"; - $interactive and progress( $pbar3, 0.5, N("Restart XFS") ); + $interactive and progress($pbar3, 0.5, N("Restart XFS")); system($update_chkfontpath); # system ($restart_xfs); # system('kill -USR1 `/sbin/pidof xfs` 2&1>/dev/null'); system('/etc/rc.d/init.d/xfs restart'); system('xset fp rehash'); - $interactive and progress( $pbar3, 0.30, N("done") ); + $interactive and progress($pbar3, 0.30, N("done")); } } sub remove_gs_fonts { my @Fontmap_new; - if ( all("$drakfont_dir/remove") ) { + if (all("$drakfont_dir/remove")) { system(" cd $drakfont_dir/remove && $type1inst"); my @Fontmap_out = cat_("$drakfont_dir/remove/Fontmap"); my $FontmapGS = `rpm -ql ghostscript | grep Fontmap.GS`; chomp($FontmapGS); my @FontmapGS_list = cat_($FontmapGS); foreach my $font_gs (@FontmapGS_list) { - my @tmp_list = split ( ' ', $font_gs ); - grep ( $_ =~ /$tmp_list[0]/, @Fontmap_out ) + my @tmp_list = split (' ', $font_gs); + grep ($_ =~ /$tmp_list[0]/, @Fontmap_out) or push @Fontmap_new, $font_gs; } print $_ foreach @Fontmap_new; - output( $FontmapGS, @Fontmap_new ); + output($FontmapGS, @Fontmap_new); } } sub remove_fonts { my @list_dir; - -e $drakfont_dir . "/remove" || mkdir_p( $drakfont_dir . "/remove" ); - $interactive and progress( $pbar, 1, N("done") ); + -e $drakfont_dir . "/remove" || mkdir_p($drakfont_dir . "/remove"); + $interactive and progress($pbar, 1, N("done")); foreach my $i (@font_list) { $_ = $i; - if ( /.pfb$/ || /.gsf$/ || /.pfm$/ || /.pfa$/ ) { + if (/.pfb$/ || /.gsf$/ || /.pfm$/ || /.pfa$/) { system("mv $_ $drakfont_dir/remove "); } else { - if ( /.ttf$/ ) { + if (/.ttf$/) { rm_rf($_); # rebuild of the fonts.dir and xftcache files system("cd `dirname $_` && $xftcache . && $ttmkfdir -u > fonts.dir"); @@ -509,14 +507,14 @@ sub remove_fonts { } } $i =~ s/\/\w*\.\w*//gi; - grep ( $i, (@list_dir) ) or push @list_dir, $i; + grep ($i, (@list_dir)) or push @list_dir, $i; $interactive - and progress( $pbar1, 1 / @font_list, N("Suppress Fonts Files") ); + and progress($pbar1, 1 / @font_list, N("Suppress Fonts Files")); } - $interactive and progress( $pbar1, 0.01, N("done") ); + $interactive and progress($pbar1, 0.01, N("done")); -e "/usr/share/ghostscript" and remove_gs_fonts(); foreach my $i (@list_dir) { - if ( listlength all("$i") < 3 ) { + if (listlength all("$i") < 3) { system("chkfontpath -r $i") or print "PERL::system command failed during chkfontpath\n"; } @@ -525,13 +523,13 @@ sub remove_fonts { or print "PERL::system command failed during cd or type1inst\n"; } $interactive - and progress( $pbar2, 1 / @list_dir, N("Suppress Fonts Files") ); + and progress($pbar2, 1 / @list_dir, N("Suppress Fonts Files")); } - $interactive and progress( $pbar2, 0.01, N("xfs restart") ); + $interactive and progress($pbar2, 0.01, N("xfs restart")); system("/etc/rc.d/init.d/xfs restart"); system('xset fp rehash'); -e "/usr/share/ghostscript" and rm_rf("$drakfont_dir/remove"); - $interactive and progress( $pbar2, 0.01, N("done") ); + $interactive and progress($pbar2, 0.01, N("done")); } sub license_msg { @@ -555,7 +553,7 @@ sub backend_mod { license_msg(); print "\nWindows fonts Installation........\n"; search_installed_fonts(); - if ( search_windows_font() ) { + if (search_windows_font()) { print_list(); put_font_dir(); } @@ -567,7 +565,7 @@ sub backend_mod { print "\nInstall Specifics Fonts...........\n"; search_installed_fonts(); search_dir_font; - print "Font to install: " . $_ . "\n" foreach (@font_list); + print "Font to install: " . $_ . "\n" foreach @font_list; put_font_dir(); print "\nThe End...........................\n"; } @@ -576,7 +574,7 @@ sub backend_mod { print "\nUninstall Specifics Fonts.........\n"; search_installed_fonts_full_path(); if ($interactive) { search_dir_font_uninstall_gi() } - else { search_dir_font_uninstall $_ foreach (@uninstall) } + else { search_dir_font_uninstall $_ foreach @uninstall } remove_fonts(); print "\nThe End............................\n"; } @@ -584,7 +582,7 @@ sub backend_mod { sub create_fontsel { my $font_sel; - gtkpack( $font_box, $font_sel = new Gtk::FontSelection, ); + gtkpack($font_box, $font_sel = new Gtk2::FontSelection,); $central_widget = \$font_sel; } @@ -596,14 +594,14 @@ sub display_error { gtkpack( $font_box, $error_box = gtkpack_( - new Gtk::VBox( 0, 0 ), + new Gtk2::VBox(0, 0), 1, - new Gtk::Label($message), + new Gtk2::Label($message), 0, gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), + gtkset_layout(new Gtk2::HButtonBox, 'spread'), gtksignal_connect( - new Gtk::Button( N("OK") ), + new Gtk2::Button(N("OK")), clicked => sub { ${$central_widget}->destroy(); create_fontsel() } ), @@ -616,42 +614,40 @@ sub display_error { sub interactive_mode { my $font_sel; $interactive = 1; - my $window1 = my_gtk->new('drakfont'); - $window1->{rwindow}->signal_connect( delete_event => sub { my_gtk->exit(0) } ); + my $window1 = ugtk2->new('drakfont'); + $window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) }); unless ($::isEmbedded) { - $window1->{rwindow}->set_position(1); - $window1->{rwindow}->set_title( N("Fonts Importation") ); + $window1->{rwindow}->set_position('center'); + $window1->{rwindow}->set_title(N("Fonts Importation")); } $window1->{rwindow}->set_border_width(5); - my ( $pix_user_map, $pix_user_mask ) = gtkcreate_png("ic-drakfont-48"); - my ( $pix_u_map, $pix_u_mask ) = gtkcreate_png("drakfont.620x57"); gtkadd( $window1->{window}, gtkpack_( - new Gtk::VBox( 0, 2 ), + new Gtk2::VBox(0, 2), if_( - !$::isEmbedded, 0, new Gtk::Pixmap( $pix_u_map, $pix_u_mask ) + !$::isEmbedded, 0, gtkcreate_img("drakfont.620x57") ), 1, gtkpack_( - new Gtk::HBox( 0, 2 ), + new Gtk2::HBox(0, 2), 1, gtkpack_( - new Gtk::VBox( 0, 2 ), + new Gtk2::VBox(0, 2), 1, gtkpack( - $font_box = new Gtk::VBox( 0, 5 ), - $font_sel = new Gtk::FontSelection, + $font_box = new Gtk2::VBox(0, 5), + $font_sel = new Gtk2::FontSelection, ), 1, gtkpack_( - new Gtk::HBox( 0, 2 ), + new Gtk2::HBox(0, 2), 0, gtkadd( - gtkset_layout( new Gtk::VButtonBox, -end ), + gtkset_layout(new Gtk2::VButtonBox, 'end'), gtksignal_connect( - new Gtk::Button( N("Get Windows Fonts") ), + new Gtk2::Button(N("Get Windows Fonts")), clicked => sub { ${$central_widget}->destroy(); $windows = 1; @@ -659,7 +655,7 @@ sub interactive_mode { } ), gtksignal_connect( - new Gtk::Button( N("Uninstall Fonts") ), + new Gtk2::Button(N("Uninstall Fonts")), clicked => sub { ${$central_widget}->destroy(); uninstall(); @@ -668,9 +664,9 @@ sub interactive_mode { ), 0, gtkadd( - gtkset_layout( new Gtk::VButtonBox, -end ), + gtkset_layout(new Gtk2::VButtonBox, 'end'), gtksignal_connect( - new Gtk::Button( N("Advanced Options") ), + new Gtk2::Button(N("Advanced Options")), clicked => sub { ${$central_widget}->destroy(); $windows = 0; @@ -678,7 +674,7 @@ sub interactive_mode { } ), gtksignal_connect( - new Gtk::Button( N("Font List") ), + new Gtk2::Button(N("Font List")), clicked => sub { ${$central_widget}->destroy(); create_fontsel(); @@ -686,17 +682,17 @@ sub interactive_mode { ), ), 1, - new Gtk::HBox( 0, 2 ), + new Gtk2::HBox(0, 2), 0, gtkadd( - gtkset_layout( new Gtk::VButtonBox, -end ), + gtkset_layout(new Gtk2::VButtonBox, 'end'), gtksignal_connect( - new Gtk::Button( N("Help") ), + new Gtk2::Button(N("Help")), clicked => sub { ${$central_widget}->destroy(); help() } ), gtksignal_connect( - new Gtk::Button( N("Close") ), + new Gtk2::Button(N("Close")), clicked => sub { $::isEmbedded and kill 'USR1', $::CCPID; Gtk->main_quit(); @@ -706,16 +702,16 @@ sub interactive_mode { ), ), - # 0, gtkpack_(new Gtk::VBox(0,5), - # 0, new Gtk::VBox(0,0), - # 0, new Gtk::Pixmap($pix_user_map, $pix_user_mask), - # 1, new Gtk::VBox(0,0), - # 1, gtkadd(gtkset_layout(new Gtk::VButtonBox, -end), - # gtksignal_connect(new Gtk::Button(N("About")), clicked => sub { + # 0, gtkpack_(new Gtk2::VBox(0,5), + # 0, new Gtk2::VBox(0,0), + # 0, new Gtk2::Pixmap(gtkcreate_img("ic-drakfont-48"), + # 1, new Gtk2::VBox(0,0), + # 1, gtkadd(gtkset_layout(new Gtk2::VButtonBox, 'end'), + # gtksignal_connect(new Gtk2::Button(N("About")), clicked => sub { # ${$central_widget}->destroy(); about() }), - # gtksignal_connect(new Gtk::Button(N(" Help ")), clicked => sub { + # gtksignal_connect(new Gtk2::Button(N(" Help ")), clicked => sub { # ${$central_widget}->destroy(); help() }), - # gtksignal_connect(new Gtk::Button(N("Close")), clicked => sub { + # gtksignal_connect(new Gtk2::Button(N("Close")), clicked => sub { # $::isEmbedded and kill 'USR1', $::CCPID; # Gtk->main_quit() }), # ), @@ -725,31 +721,20 @@ sub interactive_mode { ); $central_widget = \$font_sel; $window1->{rwindow}->show_all; - $font_sel->set_page(1); - $font_sel->cur_page->child->hide(); - $font_sel->set_page(2); - $font_sel->cur_page->child->hide(); - $font_sel->set_page(0); +# $font_sel->set_page(1); +# $font_sel->cur_page->child->hide(); +# $font_sel->set_page(2); +# $font_sel->cur_page->child->hide(); +# $font_sel->set_page(0); $window1->{rwindow}->realize; # $window1->{rwindow}->show_all(); $window1->main; - my_gtk->exit(0); + ugtk2->exit(0); } sub about { - my $text = new Gtk::Text( undef, undef ); - my $about_box; - gtkpack( - $font_box, - $about_box = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - gtkpack_( - new Gtk::HBox( 0, 0 ), - 1, - gtktext_insert( - gtkset_editable( $text, 1 ), " + text_view(N(" Copyright (C) 2001-2002 by MandrakeSoft DUPONT Sebastien sdupont\@mandrakesoft.com @@ -779,39 +764,33 @@ sub about { Convert ttf font files to afm and pfb fonts -" - ), - 0, - new Gtk::VScrollbar( $text->vadj ), - ), - 0, - gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), - gtksignal_connect( - new Gtk::Button( N("OK") ), - clicked => - sub { ${$central_widget}->destroy(); create_fontsel() } - ), - ), - ) - ); - $central_widget = \$about_box; +")) } + +sub text_view { + my ($text) = @_; + my $box; + gtkpack($font_box, + $box = gtkpack_(new Gtk2::VBox(0,10), + 1, gtkpack_(new Gtk2::HBox(0,0), + 1, create_scrolled_window(gtktext_insert( +# gtkset_editable( + new Gtk2::TextView, +# 1) + [ [ $text ] ]) + ), + ), + 0, gtkadd(gtkset_layout(new Gtk2::HButtonBox, 'spread'), + gtksignal_connect(new Gtk2::Button(N("OK")), clicked => + sub { ${$central_widget}->destroy() }), + ), + ) + ); + $central_widget = \$box; $font_box->show_all(); } sub help { - my $text = new Gtk::Text( undef, undef ); - my $help_box; - gtkpack( - $font_box, - $help_box = gtkpack_( - new Gtk::VBox( 0, 10 ), - 1, - gtkpack_( - new Gtk::HBox( 0, 0 ), - 1, - gtktext_insert( - gtkset_editable( $text, 1 ), "drakfont Future Overview + text_view(N("drakfont Future Overview - Fonts import: pfb ( Adobe Type 1 binary ) pfa ( Adobe Type 1 ASCII ) @@ -856,106 +835,89 @@ Visual Interface: - Printer Application Fonts Support... -" - ), - 0, - new Gtk::VScrollbar( $text->vadj ), - ), - 0, - gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), - gtksignal_connect( - new Gtk::Button( N("OK") ), - clicked => - sub { ${$central_widget}->destroy(); create_fontsel() } - ), - ), - ) - ); - $central_widget = \$help_box; - $font_box->show_all(); +")); } sub appli_choice { my $choice_box; - my $text = new Gtk::Text( undef, undef ); + my $text = new Gtk2::Text; gtkpack( $font_box, $choice_box = gtkpack_( - new Gtk::HBox( 0, 10 ), + new Gtk2::HBox(0, 10), 0, - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 0, - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, gtkpack_( - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, gtkpack_( - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, gtkpack( - new Gtk::HBox( 0, 10 ), - new Gtk::HBox( 0, 10 ), + new Gtk2::HBox(0, 10), + new Gtk2::HBox(0, 10), N("Choose the applications that will support the fonts:"), - new Gtk::HBox( 0, 10 ), + new Gtk2::HBox(0, 10), ), 0, - new Gtk::HBox( 0, 10 ), + new Gtk2::HBox(0, 10), 0, gtkpack_( - new Gtk::HBox( 0, 10 ), 0, + new Gtk2::HBox(0, 10), 0, N("Ghostscript"), 1, - new Gtk::HBox( 0, 10 ), 0, - my $check11 = new Gtk::CheckButton(), + new Gtk2::HBox(0, 10), 0, + my $check11 = new Gtk2::CheckButton(), ), 0, gtkpack_( - new Gtk::HBox( 0, 10 ), 0, + new Gtk2::HBox(0, 10), 0, N("StarOffice"), 1, - new Gtk::HBox( 0, 10 ), 0, - my $check22 = new Gtk::CheckButton(), + new Gtk2::HBox(0, 10), 0, + my $check22 = new Gtk2::CheckButton(), ), 0, gtkpack_( - new Gtk::HBox( 0, 10 ), 0, + new Gtk2::HBox(0, 10), 0, N("Abiword"), 1, - new Gtk::HBox( 0, 10 ), 0, - my $check33 = new Gtk::CheckButton(), + new Gtk2::HBox(0, 10), 0, + my $check33 = new Gtk2::CheckButton(), ), 0, gtkpack_( - new Gtk::HBox( 0, 10 ), 0, + new Gtk2::HBox(0, 10), 0, N("Generic Printers"), 1, - new Gtk::HBox( 0, 10 ), 0, - my $check44 = new Gtk::CheckButton(), + new Gtk2::HBox(0, 10), 0, + my $check44 = new Gtk2::CheckButton(), ), ), 0, gtkpack_( - new Gtk::HBox( 0, 10 ), + new Gtk2::HBox(0, 10), 1, gtktext_insert( - gtkset_editable( $text, 0 ), + gtkset_editable($text, 0), N("Before installing any fonts, be sure that you have the right to use and install them on your system.\n\n-You can install the fonts using the normal way. In rare cases, bogus fonts may hang up your X Server.") ), 0, - new Gtk::VScrollbar( $text->vadj ), + new Gtk2::VScrollbar($text->vadj), 0, - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), ), 0, gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), + gtkset_layout(new Gtk2::HButtonBox, 'spread'), gtksignal_connect( - new Gtk::Button( N("OK") ), + new Gtk2::Button(N("OK")), clicked => sub { ${$central_widget}->destroy(); import_status(); } ), gtksignal_connect( - new Gtk::Button( N("Cancel") ), + new Gtk2::Button(N("Cancel")), clicked => sub { ${$central_widget}->destroy(); create_fontsel(); @@ -964,22 +926,16 @@ sub appli_choice { ), ), 0, - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 0, - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), ), ); - foreach ( - [ $check11, \$gs ], - [ $check22, \$so ], - [ $check33, \$abi ], - [ $check44, \$printer ] - ) - { + foreach ([ $check11, \$gs ], [ $check22, \$so ], [ $check33, \$abi ], [ $check44, \$printer ]) { my $ref = $_->[1]; - gtksignal_connect( gtkset_active( $_->[0], ${$ref} ), - toggled => sub { ${$ref} = ${$ref} ? 0 : 1; } ); + gtksignal_connect(gtkset_active($_->[0], ${$ref}), + toggled => sub { ${$ref} = ${$ref} ? 0 : 1 }); } $central_widget = \$choice_box; $font_box->show_all(); @@ -989,66 +945,66 @@ sub font_choice { my $file_dialog; $file_dialog = gtksignal_connect( - new Gtk::FileSelection( N("File Selection") ), - destroy => sub { $file_dialog->destroy(); } + new Gtk2::FileSelection(N("File Selection")), + destroy => sub { $file_dialog->destroy() } ); $file_dialog->ok_button->signal_connect( clicked => \&file_ok_sel, $file_dialog ); - $file_dialog->ok_button->child->set( N("Add") ); + $file_dialog->ok_button->child->set(N("Add")); $file_dialog->cancel_button->signal_connect( - clicked => sub { $file_dialog->destroy() } ); - $file_dialog->cancel_button->child->set( N("Close") ); + clicked => sub { $file_dialog->destroy() }); + $file_dialog->cancel_button->child->set(N("Close")); $file_dialog->set_filename( - N("Select the font file or directory and click on 'Add'") ); + N("Select the font file or directory and click on 'Add'")); $file_dialog->show(); } sub file_ok_sel { - my ( $widget, $file_selection ) = @_; + my ($widget, $file_selection) = @_; my $file_name = $file_selection->get_filename(); print "-- @install\n"; - if ( !member( $file_name, @install ) ) { - push ( @install, $file_name ); - $list->add( gtkshow( new Gtk::ListItem($file_name) ) ); + if (!member($file_name, @install)) { + push (@install, $file_name); + $list->add(gtkshow(new Gtk2::ListItem($file_name))); } } sub list_remove { - my ( $widget, $list ) = @_; + my ($widget, $list) = @_; my @to_remove; - push @to_remove, $list->child_position($_) foreach ( $list->selection ); - splice @install, $_, 1 foreach ( reverse sort @to_remove ); - $list->remove_items( $list->selection ); + push @to_remove, $list->child_position($_) foreach $list->selection; + splice @install, $_, 1 foreach reverse sort @to_remove; + $list->remove_items($list->selection); } sub advanced_install { my $scrolled_window; my $adv_box; - $list = new Gtk::List(); - $list->set_selection_mode( -extended ); + $list = new Gtk2::List(); + $list->set_selection_mode('extended'); gtkpack( $font_box, $adv_box = gtkpack_( - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, - gtkpack_( new Gtk::HBox( 0, 4 ), 1, createScrolledWindow($list), ), + gtkpack_(new Gtk2::HBox(0, 4), 1, create_scrolled_window($list),), 0, gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), + gtkset_layout(new Gtk2::HButtonBox, 'spread'), gtksignal_connect( - new Gtk::Button( N("Add") ), + new Gtk2::Button(N("Add")), clicked => sub { font_choice() } ), gtksignal_connect( - new Gtk::Button( N("Remove Selected") ), + new Gtk2::Button(N("Remove Selected")), clicked => \&list_remove, $list ), gtksignal_connect( - new Gtk::Button( N("Install List") ), + new Gtk2::Button(N("Install List")), clicked => sub { ${$central_widget}->destroy(); appli_choice(); @@ -1063,42 +1019,42 @@ sub advanced_install { sub list_to_remove { my @number_to_remove; - my @files_path = grep( !/fonts/, all($current_path) ); + my @files_path = grep(!/fonts/, all($current_path)); Gtk->main_iteration while Gtk->events_pending; push @number_to_remove, - $path_list->child_position($_) foreach ( $path_list->selection ); + $path_list->child_position($_) foreach $path_list->selection; @uninstall = (); push @uninstall, - $current_path . "/" . $files_path[$_] foreach (@number_to_remove); + $current_path . "/" . $files_path[$_] foreach @number_to_remove; ${$central_widget}->destroy(); show_list_to_remove(); } sub show_list_to_remove { my $show_box; - my $show_list = new Gtk::List(); - $show_list->add( gtkshow( new Gtk::ListItem($_) ) ) foreach @uninstall; + my $show_list = new Gtk2::List(); + $show_list->add(gtkshow(new Gtk2::ListItem($_))) foreach @uninstall; gtkpack( $font_box, $show_box = gtkpack_( - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, gtkpack_( - new Gtk::HBox( 0, 4 ), - 1, createScrolledWindow($show_list) + new Gtk2::HBox(0, 4), + 1, create_scrolled_window($show_list) ), 0, gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), + gtkset_layout(new Gtk2::HButtonBox, 'spread'), gtksignal_connect( - new Gtk::Button( N("click here if you are sure.") ), + new Gtk2::Button(N("click here if you are sure.")), clicked => sub { ${$central_widget}->destroy(); import_status_uninstall(); } ), gtksignal_connect( - new Gtk::Button( N("here if no.") ), + new Gtk2::Button(N("here if no.")), clicked => sub { ${$central_widget}->destroy(); create_fontsel() } ), @@ -1117,57 +1073,53 @@ sub uninstall { @installed_fonts_path = (); list_fontpath(); chk_empty_xfs_path(); - $list_path = new Gtk::List(); - $list_path->set_selection_mode( -extended ); + $list_path = new Gtk2::List(); + $list_path->set_selection_mode('extended'); foreach (@installed_fonts_path) { my $t = $_; $list_path->add( gtkshow( gtksignal_connect( - new Gtk::ListItem($t), + new Gtk2::ListItem($t), select => sub { $current_path = $t; - $path_list->clear_items( 0, -1 ); + $path_list->clear_items(0, -1); $path_list->append_items( - map { - /fonts/ - ? () - : gtkshow( new Gtk::ListItem($_) ) - } all($t) + map { /fonts/ ? () : gtkshow(new Gtk2::ListItem($_)) } all($t) ); } ) ) ); } - $list_path->set_selection_mode( -single ); - $path_list = new Gtk::List(); - $path_list->set_selection_mode( -extended ); + $list_path->set_selection_mode('single'); + $path_list = new Gtk2::List(); + $path_list->set_selection_mode('extended'); gtkpack( $font_box, $uninst_box = gtkpack_( - new Gtk::VBox( 0, 10 ), + new Gtk2::VBox(0, 10), 1, gtkpack_( - new Gtk::HBox( 0, 4 ), 1, - createScrolledWindow($list_path), 1, - createScrolledWindow($path_list) + new Gtk2::HBox(0, 4), 1, + create_scrolled_window($list_path), 1, + create_scrolled_window($path_list) ), 0, gtkadd( - gtkset_layout( new Gtk::HButtonBox, -spread ), + gtkset_layout(new Gtk2::HButtonBox, 'spread'), gtksignal_connect( - new Gtk::Button( N("Unselected All") ), - clicked => sub { $path_list->unselect_all(); } + new Gtk2::Button(N("Unselected All")), + clicked => sub { $path_list->unselect_all() } ), gtksignal_connect( - new Gtk::Button( N("Selected All") ), - clicked => sub { $path_list->select_all(); } + new Gtk2::Button(N("Selected All")), + clicked => sub { $path_list->select_all() } ), gtksignal_connect( - new Gtk::Button( N("Remove List") ), + new Gtk2::Button(N("Remove List")), clicked => sub { list_to_remove() } ), ), @@ -1179,28 +1131,28 @@ sub uninstall { sub import_status { my $table; - $pbar = new Gtk::ProgressBar; - $pbar1 = new Gtk::ProgressBar; - $pbar2 = new Gtk::ProgressBar; - $pbar3 = new Gtk::ProgressBar; + $pbar = new Gtk2::ProgressBar; + $pbar1 = new Gtk2::ProgressBar; + $pbar2 = new Gtk2::ProgressBar; + $pbar3 = new Gtk2::ProgressBar; gtkpack( $font_box, $table = create_packtable( { col_spacings => 10, row_spacings => 50 }, [ "", "" ], [ - N("Initials tests"), $pbar, $pbar->{label} = new Gtk::Label(' ') + N("Initials tests"), $pbar, $pbar->{label} = new Gtk2::Label(' ') ], [ N("Copy fonts on your system"), $pbar1, - $pbar1->{label} = new Gtk::Label(' ') + $pbar1->{label} = new Gtk2::Label(' ') ], [ N("Install & convert Fonts"), $pbar2, - $pbar2->{label} = new Gtk::Label(' ') + $pbar2->{label} = new Gtk2::Label(' ') ], [ - N("Post Install"), $pbar3, $pbar3->{label} = new Gtk::Label(' ') + N("Post Install"), $pbar3, $pbar3->{label} = new Gtk2::Label(' ') ], ), ); @@ -1212,9 +1164,9 @@ sub import_status { sub import_status_uninstall { my $table; - $pbar = new Gtk::ProgressBar; - $pbar1 = new Gtk::ProgressBar; - $pbar2 = new Gtk::ProgressBar; + $pbar = new Gtk2::ProgressBar; + $pbar1 = new Gtk2::ProgressBar; + $pbar2 = new Gtk2::ProgressBar; gtkpack( $font_box, $table = create_packtable( @@ -1222,15 +1174,15 @@ sub import_status_uninstall { [ "", "" ], [ "", "" ], [ - N("Initials tests"), $pbar, $pbar->{label} = new Gtk::Label(' ') + N("Initials tests"), $pbar, $pbar->{label} = new Gtk2::Label(' ') ], [ N("Remove fonts on your system"), $pbar1, - $pbar1->{label} = new Gtk::Label(' ') + $pbar1->{label} = new Gtk2::Label(' ') ], [ N("Post Uninstall"), $pbar2, - $pbar2->{label} = new Gtk::Label(' ') + $pbar2->{label} = new Gtk2::Label(' ') ], ), ); @@ -1241,10 +1193,10 @@ sub import_status_uninstall { } sub progress { - my ( $progressbar, $incr, $label_text ) = @_; + my ($progressbar, $incr, $label_text) = @_; my ($new_val) = $progressbar->get_current_percentage; $new_val += $incr; - if ( $new_val > 1 ) { $new_val = 1 } + if ($new_val > 1) { $new_val = 1 } $progressbar->update($new_val); $progressbar->{label}->set($label_text); Gtk->main_iteration while Gtk->events_pending; -- cgit v1.2.1