diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 16:14:34 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-01-12 16:14:34 +0000 |
| commit | 14fd314a23473005be94b6182dc02c37bda73ceb (patch) | |
| tree | a97247c646171a66cffe0889a344c56aeae17e67 /perl-install/standalone/drakfont | |
| parent | 403fb575bf02beebc8360bb84af05c675bd7d625 (diff) | |
| download | drakx-backup-do-not-use-14fd314a23473005be94b6182dc02c37bda73ceb.tar drakx-backup-do-not-use-14fd314a23473005be94b6182dc02c37bda73ceb.tar.gz drakx-backup-do-not-use-14fd314a23473005be94b6182dc02c37bda73ceb.tar.bz2 drakx-backup-do-not-use-14fd314a23473005be94b6182dc02c37bda73ceb.tar.xz drakx-backup-do-not-use-14fd314a23473005be94b6182dc02c37bda73ceb.zip | |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/drakfont')
| -rwxr-xr-x | perl-install/standalone/drakfont | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont index 185d4f3f9..af8080185 100755 --- a/perl-install/standalone/drakfont +++ b/perl-install/standalone/drakfont @@ -112,7 +112,6 @@ my $pbar1; my $pbar2; my $pbar3; my $window1; -my $font_box; my $model; my $list; my $list_all_font_path; @@ -222,8 +221,7 @@ sub search_windows_font() { if (!@font_list) { print "[35mdrakfont:: could not find any font in /win*/fonts [0m\n"; $interactive - and display_error( - N("could not find any font in your mounted partitions")); + and err_dialog(N("Error"), N("could not find any font in your mounted partitions")); return 0; } 1; @@ -552,7 +550,6 @@ sub help() { } sub appli_choice() { - my %checks; dialog(N("Options"), [ 0, N("Choose the applications that will support the fonts:"), @@ -619,7 +616,7 @@ sub list_remove() { #- TODO : multi-selection $treeStore->remove($iter); } -sub exitdialog { Gtk2->main_quit }; +sub exitdialog() { Gtk2->main_quit }; sub dialog { my ($title, $widgets, $buttons, $o_main_loop) = @_; @@ -698,7 +695,6 @@ sub show_list_to_remove() { } sub uninstall() { #- TODO : add item to right list with gtksignal_connect - my $uninst_box; @install = (); @installed_fonts_path = (); list_fontpath(); |