summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakfont5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/standalone/drakfont b/perl-install/standalone/drakfont
index 40f2e0529..0b8fc2440 100755
--- a/perl-install/standalone/drakfont
+++ b/perl-install/standalone/drakfont
@@ -636,19 +636,22 @@ sub dialog {
}
sub advanced_install() {
+ my $button;
$model = Gtk2::TreeStore->new("Glib::String");
$list = Gtk2::TreeView->new_with_model($model);
$list->append_column(Gtk2::TreeViewColumn->new_with_attributes(undef, Gtk2::CellRendererText->new, 'text' => 0));
$list->set_headers_visible(0);
$list->get_selection->set_mode('browse');
$list->set_rules_hint(1);
+ $model->signal_connect("row-inserted" => sub { $button and $button->set_sensitive(1) });
+ $model->signal_connect("row-deleted" => sub { $button and $button->set_sensitive($model->get_iter_first) });
dialog(N("Import fonts"),
[ 1, create_scrolled_window($list) ],
[
gtksignal_connect(Gtk2::Button->new(N("Add")), clicked => \&font_choice),
gtksignal_connect(Gtk2::Button->new(N("Remove Selected")), clicked => \&list_remove),
- gtksignal_connect(Gtk2::Button->new(N("Install fonts")),
+ gtksignal_connect($button = gtkset_sensitive(Gtk2::Button->new(N("Install fonts")), 0),
clicked => sub {
$dialog->destroy;
undef $dialog;