(CreateTree) reindent

1 files changed, 33 insertions, 24 deletions

diff --git a/userdrake b/userdrake
index 33141af..a0760f7 100755
--- a/userdrake
+++ b/userdrake
@@ -640,6 +640,7 @@ sub Delete() {
     $us->{wnd}{rwindow}->set_sensitive(1);
     gtkset_mousecursor_normal();
 }
+
 # Gtk Facilities
 sub CreateTree {
     my ($tree_model) = @_;
@@ -658,31 +659,39 @@ sub CreateTree {
     foreach (@menu_treeview_actions) {
         my ($action, $text) = @$_;
         my %actions; %actions = (
-                                 edit => sub { 
-				     my (undef, $iter) = $tree->get_selection->get_selected;
-				     $iter and Edit();
-				 },
-                                 delete => sub {
-				     my (undef, $iter) = $tree->get_selection->get_selected;
-				     $iter and Delete();
-				 }
-                                );
-        $menu_treeview->append(gtksignal_connect(gtkshow(Gtk2::MenuItem->new_with_label($text)), activate => sub { $actions{$action}->() }));
+            edit => sub { 
+                my (undef, $iter) = $tree->get_selection->get_selected;
+                $iter and Edit();
+            },
+            delete => sub {
+                my (undef, $iter) = $tree->get_selection->get_selected;
+                $iter and Delete();
+            }
+        );
+        $menu_treeview->append(
+            gtksignal_connect(
+                gtkshow(Gtk2::MenuItem->new_with_label($text)),
+                activate => sub { $actions{$action}->() }));
     }
-    $tree->signal_connect(button_press_event => sub {
-			       my (undef, $event) = @_;
-			       my (undef, $iter) = $tree->get_selection->get_selected;
-			       return unless $iter;
-			       foreach ($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete}) { $_->set_sensitive(1) }
-			       Edit() if $event->type eq '2button-press';
-			       $_[1]->button == 3 and  $menu_treeview->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time);
-			   });
-    $tree->signal_connect(key_press_event => sub {
-			       my (undef, $event) = @_;
-			       my (undef, $iter) = $tree->get_selection->get_selected;
-			       return unless $iter;
-			       Edit() if $event->keyval == $Gtk2::Gdk::Keysyms{Return};
-			   });
+    $tree->signal_connect(
+        button_press_event => sub {
+            my (undef, $event) = @_;
+            my (undef, $iter) = $tree->get_selection->get_selected;
+            return unless $iter;
+            foreach ($tbedit, $tbdel, $buttorcheck{edit}, $buttorcheck{delete}) {
+                $_->set_sensitive(1);
+            }
+            Edit() if $event->type eq '2button-press';
+            $_[1]->button == 3
+              and $menu_treeview->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time);
+        });
+    $tree->signal_connect(
+        key_press_event => sub {
+            my (undef, $event) = @_;
+            my (undef, $iter) = $tree->get_selection->get_selected;
+            return unless $iter;
+            Edit() if $event->keyval == $Gtk2::Gdk::Keysyms{Return};
+        });
     $tree;
 }