make select checkbox not activatable for base packages instead of popup an explanation about not possible

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');