1 files changed, 16 insertions, 9 deletions

diff --git a/control-center3 b/control-center3
index c922ec30..209f7b4f 100755
--- a/control-center3
+++ b/control-center3
@@ -100,7 +100,7 @@ $vbox_global->pack_start($hpane_global, 1, 1, 0);
 $hpane_global->border_width(5);
 my $scrolled_global = new Gtk::ScrolledWindow;
 $scrolled_global->set_policy('automatic','automatic');
-$scrolled_global->set_usize(195, 0);
+$scrolled_global->set_usize(210, 0);
 $scrolled_global->set_name("icons_back");
 $hpane_global->pack1($scrolled_global,0,1);
 
@@ -130,6 +130,8 @@ $window_global->realize;
 
 my $tree= new Gtk::Tree;
 $tree->set_selection_mode('browse');
+$tree->set_view_lines(0);
+$tree->set_view_mode('item');
 $vbox_global_left->pack_start($tree,1,1,0);
 map {
     create_tree_item($tree, $_->[0] , "$xpm_path_l/$_->[1]",1);
@@ -323,21 +325,22 @@ my $treeitem_old;
 sub create_tree_item {
     my ($parent_tree, $label, $pixmap, $tree_depth_max) =@_;
 
+    my $expanded=0;
     my ($treeitem, $treebox, $new_subtree);
     $treeitem = new Gtk::TreeItem();
-    $treebox = xpm_label_box($window_global,$pixmap,$label);
+    $treebox = xpm_label_box($window_global,$pixmap,$label, !$tree_depth_max);
     $treeitem->add($treebox);
-    $treebox->show();
     if ($tree_depth_max == 0) {
 	$tree_launched{$label}->[1]=\$treeitem;
 	$treeitem->signal_connect('select', sub { exec_treeitem($label, $tree_exec{$label}, -e $tree_exec{$label} ) });
     } else {
+	$treeitem->signal_connect('button_press_event', sub { $expanded ? $treeitem->collapse : $treeitem->expand; $expanded = !$expanded });
 	$treeitem->signal_connect('select', sub { $treeitem_old and $$treeitem_old->collapse(); $treeitem->expand(); $treeitem_old=\$treeitem;
-						  #$treeitem->deselect();
+						  $expanded=1;
 					      });
     }
     $parent_tree->append($treeitem);
-    $treeitem->show();
+    $treeitem->show_all();
 
     if ($tree_depth_max) {
 	$tree_depth_max-- ;
@@ -375,10 +378,16 @@ sub create_tree_item {
 }
 
 sub xpm_label_box {
-    my ( $parent, $xpm_filename, $label_text ) = @_;
+    my ( $parent, $xpm_filename, $label_text, $is_last ) = @_;
     # Create box for xpm and label
     my $box = new Gtk::HBox( 0, 0 );
-    # Get the style of the button to get the background color.  
+    my $box2;
+    if ($is_last) {
+	$box2 = new Gtk::HBox( 0, 0 );
+	$box2->set_usize(20, 0);
+	$box->pack_start($box2, 0, 0, 0);
+    }
+    # Get the style of the button to get the background color.
     my $style = $parent->get_style()->bg( 'normal' );
     # Now on to the xpm stuff
     my ($pixmap, $mask) = gtkcreate_png($xpm_filename );
@@ -389,8 +398,6 @@ sub xpm_label_box {
     $box->pack_start( $pixmapwid, 0, 0, 3 );
     $box->pack_start( $label, 0, 0, 3 );
     $box->border_width( 2 );
-    $pixmapwid->show();
-    $label->show();
     return ( $box );
 }