gde/GCE/MapEditor.pm

package GCE::MapEditor;

=head1 NAME

  GCE::MapEditor - the map editing widget

=cut

use Gtk2;
use Gtk2::Gdk::Keysyms;
use Gtk2::SimpleMenu;

use Crossfire;
use Crossfire::Map;
use Crossfire::MapWidget;

use GCE::AttrEdit;

use Glib::Object::Subclass
    Gtk2::Window;

use strict;

sub build_menu {
   my ($self) = @_;

   my $menu_tree = [
      _File => {
         item_type => '<Branch>',
         children => [
            "_Save" => {
               callback => sub { $self->save_map },
               accelerator => '<ctrl>S'
            },
            "Save As" => {
               callback => sub { $self->save_map_as },
            },
            "Close" => {
               callback => sub { $self->delete; 1 },
            },
         ]
      },
      _Edit => {
         item_type => '<Branch>',
         children => [
            "_Undo" => {
               callback => sub { $self->undo },
               accelerator => "<ctrl>Z" 
            },
            "_Redo" => {
               callback => sub { $self->redo },
               accelerator => "<ctrl>Y" 
            },

         ]
      },

   ];

   my $men =
      Gtk2::SimpleMenu->new (
         menu_tree => $menu_tree,
         default_callback => \&default_cb,
      );

   $self->add_accel_group ($men->{accel_group});

   return $men->{widget};
}

sub INIT_INSTANCE {
   my ($self) = @_;

   $self->set_title ('gce - map editor');
   $self->add (my $vb = Gtk2::VBox->new);

   $self->signal_connect (delete_event => sub { $self->delete });

   $vb->pack_start (my $menu = $self->build_menu, 0, 1, 0);

   $vb->pack_start (my $map = $self->{map} = Crossfire::MapWidget->new, 1, 1, 0);

   $map->signal_connect (button_press_event => sub {
         my ($map, $event) = @_;

         my ($x, $y) = $map->coord ($event->x, $event->y);
         my $as = $map->get ($x, $y);

         my $btn = $event->button;

         if ((not $self->{draw_mode})
             and $btn != 2 
             and my $ea = $::MAINWIN->{sel_editaction}) {

            $ea->begin ($map, $x, $y, $btn)
               if $x >= 0 and $y >= 0 and $x < $map->{map}{width} and $y < $map->{map}{height};

            $self->{draw_mode} = [$ea, $x, $y, $btn];

            $ea->want_cursor
               or $map->disable_tooltip;

            if ($ea->special_arrow) {

               $map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ($ea->special_arrow));
               #'GDK_QUESTION_ARROW'));
            }

            return 1;
         } 

         0
   });

   $map->signal_connect_after (motion_notify_event => sub {
      my ($map, $event) = @_;

      $self->{draw_mode}
         or return;

      my ($X, $Y) = @{$self->{draw_mode}}[1,2];
      my ($x, $y) = $map->coord ($map->get_pointer);

      while ($x != $X || $y != $Y) {

         $X++ if $X < $x;
         $X-- if $X > $x;
         $Y++ if $Y < $y;
         $Y-- if $Y > $y;

         $self->{draw_mode}[0]->edit ($map, $X, $Y, $self->{draw_mode}[3])
            if $X >= 0 and $Y >= 0 and $X < $map->{map}{width} and $Y < $map->{map}{height};
      }

      @{$self->{draw_mode}}[1,2] = ($X, $Y);

      1
   });

   $map->signal_connect (button_release_event => sub {
      my ($map, $event) = @_;

      if ($self->{draw_mode} 
          and my $ea = $self->{draw_mode}[0] 
          and $self->{draw_mode}[3] == $event->button) {

         my ($x, $y) = $map->coord ($map->get_pointer);

         $ea->end ($map, $x, $y, $event->button);

         if ($ea->special_arrow) {

            # XXX: Get the original cursor and insert it here
            $map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ('GDK_LEFT_PTR'));
         }

         delete $self->{draw_mode};

         $ea->want_cursor
            or $map->enable_tooltip;

         return 1;
      }

      0
   });
}

sub undo {
   my ($self) = @_;

   my $map = $self->{map}; # the Crossfire::MapWidget

   $map->{undo_stack_pos}
      or return;

   $map->change_swap ($map->{undo_stack}[--$map->{undo_stack_pos}]);
}

sub redo {
   my ($self) = @_;

   my $map = $self->{map}; # the Crossfire::MapWidget

   $map->{undo_stack} 
      and $map->{undo_stack_pos} < @{$map->{undo_stack}}
         or return;

   $map->change_swap ($map->{undo_stack}[$map->{undo_stack_pos}++]);
}

sub delete_arch {
   my ($self, $x, $y) = @_;

   defined $self->{map}
      or return 0;

   my $as = $self->{map}->get ($x, $y);
   pop @$as;
   $self->{map}->set ($x, $y, $as);
}

sub place_pick {
   my ($self, $x, $y) = @_;

   my $pick = $::MAINWIN->get_pick;
   my $as = $self->{map}->get ($x, $y);

   my $arch = { _name => $pick->{_name} };

   push @$as, $arch
      unless @$as && $as->[-1]->{_name} eq $arch->{_name};

   $self->{map}->set ($x, $y, $as);
}

sub delete {
   my ($self) = @_;

   # check and modla dialog if "dirty"

   $self->destroy;
}

sub open_map {
   my ($self, $path) = @_;

   $self->{path} = $path;
   $self->{map}->set_map (my $m = new_from_file Crossfire::Map $path);
   require Data::Dumper;
}

sub save_map {
   my ($self) = @_;

   $self->{map}{map}->write_file ($self->{path});
}

sub save_map_as {
   my ($self) = @_;
   warn "save_map_as nyi\n";
}

=head1 AUTHOR

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

 Robin Redeker <elmex@ta-sa.org>
 http://www.ta-sa.org/

=cut
1;

Revision:	1.15
Committed:	Sun Mar 12 12:18:55 2006 UTC (18 years, 3 months ago) by elmex
Branch:	MAIN
Changes since 1.14:	+6 -3 lines
Log Message:	Implemented first parts of the new attribute editor.
#	User	Rev	Content
1	elmex	1.1	package GCE::MapEditor;
2
3			=head1 NAME
4
5			GCE::MapEditor - the map editing widget
6
7			=cut
8
9			use Gtk2;
10			use Gtk2::Gdk::Keysyms;
11			use Gtk2::SimpleMenu;
12
13			use Crossfire;
14	root	1.3	use Crossfire::Map;
15	elmex	1.1	use Crossfire::MapWidget;
16
17			use GCE::AttrEdit;
18
19	elmex	1.4	use Glib::Object::Subclass
20	elmex	1.6	Gtk2::Window;
21	elmex	1.1
22			use strict;
23
24	root	1.9	sub build_menu {
25			my ($self) = @_;
26
27			my $menu_tree = [
28			_File => {
29			item_type => '<Branch>',
30			children => [
31			"_Save" => {
32	root	1.10	callback => sub { $self->save_map },
33	root	1.9	accelerator => '<ctrl>S'
34			},
35	root	1.10	"Save As" => {
36			callback => sub { $self->save_map_as },
37			},
38	root	1.13	"Close" => {
39			callback => sub { $self->delete; 1 },
40			},
41	root	1.10	]
42	root	1.9	},
43			_Edit => {
44			item_type => '<Branch>',
45			children => [
46			"_Undo" => {
47			callback => sub { $self->undo },
48			accelerator => "<ctrl>Z"
49			},
50			"_Redo" => {
51			callback => sub { $self->redo },
52			accelerator => "<ctrl>Y"
53			},
54
55			]
56			},
57
58			];
59
60			my $men =
61			Gtk2::SimpleMenu->new (
62			menu_tree => $menu_tree,
63			default_callback => \&default_cb,
64			);
65
66			$self->add_accel_group ($men->{accel_group});
67
68			return $men->{widget};
69			}
70
71	elmex	1.1	sub INIT_INSTANCE {
72			my ($self) = @_;
73
74	elmex	1.6	$self->set_title ('gce - map editor');
75			$self->add (my $vb = Gtk2::VBox->new);
76	elmex	1.1
77	root	1.13	$self->signal_connect (delete_event => sub { $self->delete });
78
79	root	1.9	$vb->pack_start (my $menu = $self->build_menu, 0, 1, 0);
80
81			$vb->pack_start (my $map = $self->{map} = Crossfire::MapWidget->new, 1, 1, 0);
82
83			$map->signal_connect (button_press_event => sub {
84			my ($map, $event) = @_;
85
86			my ($x, $y) = $map->coord ($event->x, $event->y);
87			my $as = $map->get ($x, $y);
88
89			my $btn = $event->button;
90
91			if ((not $self->{draw_mode})
92			and $btn != 2
93			and my $ea = $::MAINWIN->{sel_editaction}) {
94
95	elmex	1.15	$ea->begin ($map, $x, $y, $btn)
96			if $x >= 0 and $y >= 0 and $x < $map->{map}{width} and $y < $map->{map}{height};
97	elmex	1.1
98	root	1.9	$self->{draw_mode} = [$ea, $x, $y, $btn];
99	elmex	1.1
100	root	1.9	$ea->want_cursor
101			or $map->disable_tooltip;
102	elmex	1.4
103	root	1.9	if ($ea->special_arrow) {
104	elmex	1.4
105	root	1.9	$map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ($ea->special_arrow));
106			#'GDK_QUESTION_ARROW'));
107			}
108
109			return 1;
110			}
111
112			0
113			});
114
115			$map->signal_connect_after (motion_notify_event => sub {
116			my ($map, $event) = @_;
117
118			$self->{draw_mode}
119			or return;
120
121			my ($X, $Y) = @{$self->{draw_mode}}[1,2];
122			my ($x, $y) = $map->coord ($map->get_pointer);
123	elmex	1.4
124	root	1.9	while ($x != $X \|\| $y != $Y) {
125	elmex	1.4
126	root	1.9	$X++ if $X < $x;
127			$X-- if $X > $x;
128			$Y++ if $Y < $y;
129			$Y-- if $Y > $y;
130	elmex	1.4
131	elmex	1.15	$self->{draw_mode}[0]->edit ($map, $X, $Y, $self->{draw_mode}[3])
132			if $X >= 0 and $Y >= 0 and $X < $map->{map}{width} and $Y < $map->{map}{height};
133	root	1.9	}
134	elmex	1.4
135	root	1.9	@{$self->{draw_mode}}[1,2] = ($X, $Y);
136	elmex	1.1
137	root	1.9	1
138			});
139	elmex	1.1
140	root	1.9	$map->signal_connect (button_release_event => sub {
141			my ($map, $event) = @_;
142	elmex	1.1
143	root	1.9	if ($self->{draw_mode}
144			and my $ea = $self->{draw_mode}[0]
145			and $self->{draw_mode}[3] == $event->button) {
146	elmex	1.1
147	root	1.9	my ($x, $y) = $map->coord ($map->get_pointer);
148	elmex	1.4
149	root	1.9	$ea->end ($map, $x, $y, $event->button);
150	elmex	1.1
151	root	1.9	if ($ea->special_arrow) {
152	elmex	1.1
153	root	1.9	# XXX: Get the original cursor and insert it here
154			$map->{window}->set_cursor (Gtk2::Gdk::Cursor->new ('GDK_LEFT_PTR'));
155			}
156	elmex	1.1
157	root	1.9	delete $self->{draw_mode};
158	elmex	1.4
159	root	1.9	$ea->want_cursor
160			or $map->enable_tooltip;
161	elmex	1.1
162	root	1.9	return 1;
163			}
164	elmex	1.1
165	root	1.9	0
166			});
167			}
168	elmex	1.8
169	root	1.9	sub undo {
170			my ($self) = @_;
171	elmex	1.8
172	root	1.9	my $map = $self->{map}; # the Crossfire::MapWidget
173	elmex	1.1
174	root	1.9	$map->{undo_stack_pos}
175			or return;
176	elmex	1.1
177	root	1.9	$map->change_swap ($map->{undo_stack}[--$map->{undo_stack_pos}]);
178			}
179	elmex	1.1
180	root	1.9	sub redo {
181			my ($self) = @_;
182	elmex	1.7
183	root	1.9	my $map = $self->{map}; # the Crossfire::MapWidget
184	elmex	1.7
185	elmex	1.14	$map->{undo_stack}
186			and $map->{undo_stack_pos} < @{$map->{undo_stack}}
187			or return;
188	elmex	1.1
189	root	1.9	$map->change_swap ($map->{undo_stack}[$map->{undo_stack_pos}++]);
190	root	1.3	}
191
192			sub delete_arch {
193			my ($self, $x, $y) = @_;
194
195			defined $self->{map}
196			or return 0;
197
198	root	1.5	my $as = $self->{map}->get ($x, $y);
199			pop @$as;
200			$self->{map}->set ($x, $y, $as);
201	root	1.3	}
202
203			sub place_pick {
204			my ($self, $x, $y) = @_;
205
206	root	1.9	my $pick = $::MAINWIN->get_pick;
207	root	1.5	my $as = $self->{map}->get ($x, $y);
208	root	1.3
209	elmex	1.6	my $arch = { _name => $pick->{_name} };
210	root	1.3
211	root	1.5	push @$as, $arch
212			unless @$as && $as->[-1]->{_name} eq $arch->{_name};
213	root	1.3
214	root	1.5	$self->{map}->set ($x, $y, $as);
215	root	1.3	}
216
217	root	1.13	sub delete {
218			my ($self) = @_;
219
220			# check and modla dialog if "dirty"
221
222			$self->destroy;
223			}
224
225	root	1.3	sub open_map {
226			my ($self, $path) = @_;
227
228	root	1.13	$self->{path} = $path;
229	elmex	1.15	$self->{map}->set_map (my $m = new_from_file Crossfire::Map $path);
230			require Data::Dumper;
231	root	1.3	}
232
233	root	1.13	sub save_map {
234			my ($self) = @_;
235
236			$self->{map}{map}->write_file ($self->{path});
237			}
238
239			sub save_map_as {
240			my ($self) = @_;
241			warn "save_map_as nyi\n";
242			}
243
244	elmex	1.1	=head1 AUTHOR
245
246			Marc Lehmann <schmorp@schmorp.de>
247			http://home.schmorp.de/
248
249			Robin Redeker <elmex@ta-sa.org>
250			http://www.ta-sa.org/
251
252			=cut
253			1;
254