From cfe74ef9cbf9abe3828cee37149e206b90f4e74e Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 27 Feb 2008 14:00:23 +0000 Subject: make select checkbox not activatable for base packages instead of popup an explanation about not possible --- Rpmdrake/gui.pm | 2 ++ rpmdrake | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 3725860c..debd54d9 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -63,6 +63,7 @@ our %pkg_columns = ( version => 5, release => 6, 'arch' => 7, + selectable => 8, ); @@ -253,6 +254,7 @@ sub set_node_state { $model->set($iter, $pkg_columns{state_icon} => $pix{$state}); $model->set($iter, $pkg_columns{state} => $state); $model->set($iter, $pkg_columns{selected} => to_bool(member($state, qw(base installed to_install)))); #$pkg->{selected})); + $model->set($iter, $pkg_columns{selectable} => to_bool($state ne 'base')); } sub set_leaf_state { diff --git a/rpmdrake b/rpmdrake index 54de9d65..93f9df8f 100755 --- a/rpmdrake +++ b/rpmdrake @@ -236,14 +236,16 @@ sub run_treeview_dialog { "Glib::String", "Glib::String", "Glib::String", - "Glib::String"); + "Glib::String", + "Glib::Boolean"); $detail_list = Gtk2::TreeView->new_with_model($detail_list_model); $detail_list->append_column( my $col_sel = Gtk2::TreeViewColumn->new_with_attributes( undef, Gtk2::CellRendererToggle->new, - active => $pkg_columns{selected} + active => $pkg_columns{selected}, + activatable => $pkg_columns{selectable} )); $col_sel->set_fixed_width(34); # w/o this the toggle cells are not displayed $col_sel->set_sizing('fixed'); -- cgit v1.2.1