ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/GCE/MapEditor.pm
(Generate patch)

Comparing deliantra/gde/GCE/MapEditor.pm (file contents):
Revision 1.27 by elmex, Fri Mar 17 17:59:43 2006 UTC vs.
Revision 1.28 by elmex, Sun Mar 19 19:30:38 2006 UTC

… …
146 146
147 my ($x, $y) = $map->coord ($map->get_pointer); 147 my ($x, $y) = $map->coord ($map->get_pointer);
148 for ([Control_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase} }], 148 for ([Control_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase} }],
149 [Alt_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick} }], 149 [Alt_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick} }],
150 [c => sub { $::MAINWIN->{edit_collection}{select}->copy }], 150 [c => sub { $::MAINWIN->{edit_collection}{select}->copy }],
151 [v => sub { $::MAINWIN->{edit_collection}{select}->paste ($x, $y) }], 151 [v => sub { $::MAINWIN->{edit_collection}{select}->paste ($map, $x, $y) }],
152 [n => sub { $::MAINWIN->{edit_collection}{select}->invoke }], 152 [n => sub { $::MAINWIN->{edit_collection}{select}->invoke }],
153 ) 153 )
154 { 154 {
155 if ($kv == $Gtk2::Gdk::Keysyms{$_->[0]}) { 155 if ($kv == $Gtk2::Gdk::Keysyms{$_->[0]}) {
156 $_->[1]->(); 156 $_->[1]->();

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines