| … | |
… | |
| 115 | if ($kv == $Gtk2::Gdk::Keysyms{Control_L}) { |
115 | if ($kv == $Gtk2::Gdk::Keysyms{Control_L}) { |
| 116 | $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase}; |
116 | $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase}; |
| 117 | |
117 | |
| 118 | } elsif ($kv == $Gtk2::Gdk::Keysyms{Alt_L}) { |
118 | } elsif ($kv == $Gtk2::Gdk::Keysyms{Alt_L}) { |
| 119 | $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick}; |
119 | $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick}; |
|
|
120 | } elsif ($kv == $Gtk2::Gdk::Keysyms{c}) { |
|
|
121 | $::MAINWIN->{edit_collection}{select}->copy; |
|
|
122 | } elsif ($kv == $Gtk2::Gdk::Keysyms{v}) { |
|
|
123 | my ($x, $y) = $map->coord ($map->get_pointer); |
|
|
124 | $::MAINWIN->{edit_collection}{select}->paste ($x, $y); |
| 120 | } |
125 | } |
| 121 | |
126 | |
| 122 | if ($self->ea->special_arrow) { |
127 | if ($self->ea->special_arrow) { |
| 123 | $map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ($self->ea->special_arrow)); |
128 | $map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ($self->ea->special_arrow)); |
| 124 | } |
129 | } |
