| … | |
… | |
| 33 | callback => sub { $self->save_map }, |
33 | callback => sub { $self->save_map }, |
| 34 | accelerator => '<ctrl>S' |
34 | accelerator => '<ctrl>S' |
| 35 | }, |
35 | }, |
| 36 | "Save As" => { |
36 | "Save As" => { |
| 37 | callback => sub { $self->save_map_as }, |
37 | callback => sub { $self->save_map_as }, |
|
|
38 | }, |
|
|
39 | "_Map Properties" => { |
|
|
40 | callback => sub { $self->open_map_prop }, |
|
|
41 | accelerator => "<ctrl>P" |
|
|
42 | }, |
|
|
43 | "_Map Resize" => { |
|
|
44 | callback => sub { $self->open_resize_map }, |
|
|
45 | accelerator => "<ctrl>R" |
| 38 | }, |
46 | }, |
| 39 | "Close" => { |
47 | "Close" => { |
| 40 | callback => sub { $self->destroy }, |
48 | callback => sub { $self->destroy }, |
| 41 | }, |
49 | }, |
| 42 | ] |
50 | ] |
| … | |
… | |
| 49 | accelerator => "<ctrl>Z" |
57 | accelerator => "<ctrl>Z" |
| 50 | }, |
58 | }, |
| 51 | "_Redo" => { |
59 | "_Redo" => { |
| 52 | callback => sub { $self->redo }, |
60 | callback => sub { $self->redo }, |
| 53 | accelerator => "<ctrl>Y" |
61 | accelerator => "<ctrl>Y" |
| 54 | }, |
|
|
| 55 | "_Map Properties" => { |
|
|
| 56 | callback => sub { $self->open_map_prop }, |
|
|
| 57 | accelerator => "<ctrl>P" |
|
|
| 58 | }, |
|
|
| 59 | "_Map Resize" => { |
|
|
| 60 | callback => sub { $self->open_resize_map }, |
|
|
| 61 | accelerator => "<ctrl>R" |
|
|
| 62 | }, |
62 | }, |
| 63 | ] |
63 | ] |
| 64 | }, |
64 | }, |
| 65 | _Go => { |
65 | _Go => { |
| 66 | item_type => '<Branch>', |
66 | item_type => '<Branch>', |
| … | |
… | |
| 197 | $map->signal_connect_after (button_press_event => sub { |
197 | $map->signal_connect_after (button_press_event => sub { |
| 198 | my ($map, $event) = @_; |
198 | my ($map, $event) = @_; |
| 199 | |
199 | |
| 200 | if ((not $self->{draw_mode}) and $event->button == 1) { |
200 | if ((not $self->{draw_mode}) and $event->button == 1) { |
| 201 | my ($x, $y) = $map->coord ($event->x, $event->y); |
201 | my ($x, $y) = $map->coord ($event->x, $event->y); |
| 202 | my $as = $map->get ($x, $y); |
|
|
| 203 | |
202 | |
| 204 | my $ea = $self->ea; |
203 | my $ea = $self->ea; |
| 205 | |
204 | |
| 206 | $ea->begin ($map, $x, $y, $self) |
205 | $ea->begin ($map, $x, $y, $self) |
| 207 | if $x >= 0 and $y >= 0 and $x < $map->{map}{width} and $y < $map->{map}{height}; |
206 | if $x >= 0 and $y >= 0 and $x < $map->{map}{width} and $y < $map->{map}{height}; |
