| … | |
… | |
| 81 | callback => sub { $self->follow ('l') }, |
81 | callback => sub { $self->follow ('l') }, |
| 82 | accelerator => "<ctrl>L" |
82 | accelerator => "<ctrl>L" |
| 83 | }, |
83 | }, |
| 84 | ] |
84 | ] |
| 85 | }, |
85 | }, |
| 86 | |
86 | _Help => { |
|
|
87 | item_type => '<Branch>', |
|
|
88 | children => [ |
|
|
89 | _Help => { |
|
|
90 | callback => sub { $::MAINWIN->show_help_window }, |
|
|
91 | accelerator => "<ctrl>H" |
|
|
92 | }, |
|
|
93 | ] |
|
|
94 | }, |
| 87 | ]; |
95 | ]; |
| 88 | |
96 | |
| 89 | my $men = |
97 | my $men = |
| 90 | Gtk2::SimpleMenu->new ( |
98 | Gtk2::SimpleMenu->new ( |
| 91 | menu_tree => $menu_tree, |
99 | menu_tree => $menu_tree, |
| … | |
… | |
| 146 | |
154 | |
| 147 | my ($x, $y) = $map->coord ($map->get_pointer); |
155 | my ($x, $y) = $map->coord ($map->get_pointer); |
| 148 | for ([Control_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase} }], |
156 | for ([Control_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{erase} }], |
| 149 | [Alt_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick} }], |
157 | [Alt_L => sub { $self->{ea_alt} = $::MAINWIN->{edit_collection}{pick} }], |
| 150 | [c => sub { $::MAINWIN->{edit_collection}{select}->copy }], |
158 | [c => sub { $::MAINWIN->{edit_collection}{select}->copy }], |
| 151 | [v => sub { $::MAINWIN->{edit_collection}{select}->paste ($x, $y) }], |
159 | [v => sub { $::MAINWIN->{edit_collection}{select}->paste ($map, $x, $y) }], |
| 152 | [n => sub { $::MAINWIN->{edit_collection}{select}->invoke }], |
160 | [n => sub { $::MAINWIN->{edit_collection}{select}->invoke }], |
| 153 | ) |
161 | ) |
| 154 | { |
162 | { |
| 155 | if ($kv == $Gtk2::Gdk::Keysyms{$_->[0]}) { |
163 | if ($kv == $Gtk2::Gdk::Keysyms{$_->[0]}) { |
| 156 | $_->[1]->(); |
164 | $_->[1]->(); |
