summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakfont8
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 "drakfont:: could not find any font in /win*/fonts \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();