Changeset 9644

Timestamp:

12/12/09 12:25:20 (2 years ago)

Author:

Sewi

Message:

Reference shortcuts to actions

File:

• trunk/Padre/lib/Padre/Action.pm (modified) (1 diff)

trunk/Padre/lib/Padre/Action.pm

@@ -109 +109 @@
             warn "Found a duplicate shortcut '$shortcut' with " . $a->name . " for '$name'\n";
             last;
+        }
+
+        my $shortcuts = Padre->ide->{shortcuts};
+        if (defined($shortcuts->{$shortcut})) {
+            warn "Found a duplicate shortcut '$shortcut' with " . $shortcuts->{$shortcut}->name . " for '$name'\n";
+        } else {
+            $shortcuts->{$shortcut} = $self;
         }
     }