gde/GCE/EditAction.pm

package GCE::EditAction;

=head1 NAME

  GCE::EditActions - this is the abstraction of edit actions (placing, deleting, etc.)

=cut

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

use Crossfire;
use Crossfire::MapWidget;

use strict;

sub new {
   my $class = shift;
   my $self = { @_ };
   bless $self, $class;
   return $self;
}

sub want_cursor { 1 }

sub special_arrow { }

# edits one tile of the map
sub edit_one {
   my ($self, $x, $y) = @_;
   # do one edition 
}

# edits a selection
sub edit_selection {
}

# abstraction for edit_one and edit_selection ?
# takes selection if present
sub edit {
   my ($self, $map, $x, $y, $btn) = @_;
}

sub begin {
   my ($self, $map, $x, $y, $btn) = @_;

   $map->change_begin (ref $self);
}

sub end {
   my ($self, $map) = @_;

   if (my $changeset = $map->change_end) {
      splice @{ $map->{undo_stack} ||= [] },
             $map->{undo_stack_pos}++, 1e99,
             $changeset;

      #TODO: limit undo stack size to some preconfigured limit
   }
}


package GCE::EditAction::Pick;

our @ISA = qw/GCE::EditAction/;

sub special_arrow { 'GDK_HAND2' }

sub begin {
   my ($self, $map, $x, $y, $btn) = @_;

   $self->SUPER::begin ($map, $x, $y, $btn);
   $self->edit ($map, $x, $y, $btn);
}

sub edit {
   my ($self, $map, $x, $y, $btn) = @_;

   my $cstack = $map->get ($x, $y);

   my $arch = $cstack->[-1];

   # virtual... grmbl....
   # FIXME: I have to patch the stack of the real arch??? argl.. how??
   if ($arch->{_virtual}) {
      $x    = $arch->{virtual_x};
      $y    = $arch->{virtual_y};
      $arch = $arch->{_virtual};
   }

   $GCE::MainWindow::MAINWIN->set_pick ($arch)
      if @$cstack && $btn == 1;

   $GCE::MainWindow::MAINWIN->update_attr_editor ($arch, sub {
      $map->change_stack ($x, $y, $cstack);
   });

   $GCE::MainWindow::MAINWIN->update_stack_view ($map, $x, $y);
}

package GCE::EditAction::Place;

use GCE::Util;

our @ISA = qw/GCE::EditAction/;

sub want_cursor { 0 }

sub begin {
   my ($self, $map, $x, $y, $btn) = @_;

   $self->SUPER::begin ($map, $x, $y, $btn);
   $self->edit ($map, $x, $y, $btn);
}

sub edit {
   my ($self, $map, $x, $y, $btn) = @_;

   if ($btn == 3) { # btn 3 does pick

      my $cstack = $map->get ($x, $y) or return;
      my $arch   = $cstack->[-1];

      $arch->{_virtual}
         and $arch = $arch->{_virtual};

      $GCE::MainWindow::MAINWIN->set_pick ($arch)
         if @$cstack;;

   } else {

      my $pick = $GCE::MainWindow::MAINWIN->get_pick;
      my $as = $map->get ($x, $y);

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

      $map->change_stack ($x, $y, insert_arch_stack_layer ($as, $arch));
#      push @$as, $arch
#         unless @$as && $as->[-1]->{_name} eq $arch->{_name};

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

package GCE::EditAction::Erase;

our @ISA = qw/GCE::EditAction/;

sub want_cursor { 0 }

sub begin {
   my ($self, $map, $x, $y, $btn) = @_;

   $self->SUPER::begin ($map, $x, $y, $btn);
   $self->edit ($map, $x, $y, $btn);
}

sub edit {
   my ($self, $map, $x, $y, $btn) = @_;

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

=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.3
Committed:	Mon Feb 20 23:22:03 2006 UTC (18 years, 3 months ago) by root
Branch:	MAIN
Changes since 1.2:	+23 -14 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	elmex	1.1	package GCE::EditAction;
2
3			=head1 NAME
4
5			GCE::EditActions - this is the abstraction of edit actions (placing, deleting, etc.)
6
7			=cut
8
9			use Gtk2;
10			use Gtk2::Gdk::Keysyms;
11			use Gtk2::SimpleMenu;
12
13			use Crossfire;
14			use Crossfire::MapWidget;
15
16			use strict;
17
18			sub new {
19			my $class = shift;
20			my $self = { @_ };
21			bless $self, $class;
22			return $self;
23			}
24
25			sub want_cursor { 1 }
26
27			sub special_arrow { }
28
29			# edits one tile of the map
30			sub edit_one {
31			my ($self, $x, $y) = @_;
32			# do one edition
33			}
34
35			# edits a selection
36			sub edit_selection {
37			}
38
39			# abstraction for edit_one and edit_selection ?
40			# takes selection if present
41			sub edit {
42			my ($self, $map, $x, $y, $btn) = @_;
43			}
44
45			sub begin {
46			my ($self, $map, $x, $y, $btn) = @_;
47	root	1.3
48			$map->change_begin (ref $self);
49	elmex	1.1	}
50	root	1.3
51	elmex	1.1	sub end {
52	root	1.3	my ($self, $map) = @_;
53
54			if (my $changeset = $map->change_end) {
55			splice @{ $map->{undo_stack} \|\|= [] },
56			$map->{undo_stack_pos}++, 1e99,
57			$changeset;
58
59			#TODO: limit undo stack size to some preconfigured limit
60			}
61	elmex	1.1	}
62
63
64			package GCE::EditAction::Pick;
65
66			our @ISA = qw/GCE::EditAction/;
67
68			sub special_arrow { 'GDK_HAND2' }
69
70			sub begin {
71			my ($self, $map, $x, $y, $btn) = @_;
72
73	root	1.3	$self->SUPER::begin ($map, $x, $y, $btn);
74	elmex	1.1	$self->edit ($map, $x, $y, $btn);
75			}
76
77			sub edit {
78			my ($self, $map, $x, $y, $btn) = @_;
79
80			my $cstack = $map->get ($x, $y);
81
82			my $arch = $cstack->[-1];
83
84			# virtual... grmbl....
85			# FIXME: I have to patch the stack of the real arch??? argl.. how??
86			if ($arch->{_virtual}) {
87	root	1.3	$x = $arch->{virtual_x};
88			$y = $arch->{virtual_y};
89	elmex	1.1	$arch = $arch->{_virtual};
90			}
91
92	root	1.3	$GCE::MainWindow::MAINWIN->set_pick ($arch)
93			if @$cstack && $btn == 1;
94	elmex	1.1
95			$GCE::MainWindow::MAINWIN->update_attr_editor ($arch, sub {
96	root	1.3	$map->change_stack ($x, $y, $cstack);
97	elmex	1.1	});
98
99			$GCE::MainWindow::MAINWIN->update_stack_view ($map, $x, $y);
100			}
101
102			package GCE::EditAction::Place;
103
104	elmex	1.2	use GCE::Util;
105
106	elmex	1.1	our @ISA = qw/GCE::EditAction/;
107
108			sub want_cursor { 0 }
109
110			sub begin {
111			my ($self, $map, $x, $y, $btn) = @_;
112
113	root	1.3	$self->SUPER::begin ($map, $x, $y, $btn);
114	elmex	1.1	$self->edit ($map, $x, $y, $btn);
115			}
116
117			sub edit {
118			my ($self, $map, $x, $y, $btn) = @_;
119
120			if ($btn == 3) { # btn 3 does pick
121
122			my $cstack = $map->get ($x, $y) or return;
123	root	1.3	my $arch = $cstack->[-1];
124	elmex	1.1
125			$arch->{_virtual}
126			and $arch = $arch->{_virtual};
127
128			$GCE::MainWindow::MAINWIN->set_pick ($arch)
129			if @$cstack;;
130
131			} else {
132
133			my $pick = $GCE::MainWindow::MAINWIN->get_pick;
134			my $as = $map->get ($x, $y);
135
136			my $arch = { _name => $pick->{_name} };
137
138	root	1.3	$map->change_stack ($x, $y, insert_arch_stack_layer ($as, $arch));
139	elmex	1.2	# push @$as, $arch
140			# unless @$as && $as->[-1]->{_name} eq $arch->{_name};
141	elmex	1.1
142	elmex	1.2	#$map->set ($x, $y, $as);
143	elmex	1.1	}
144			}
145
146			package GCE::EditAction::Erase;
147
148			our @ISA = qw/GCE::EditAction/;
149
150			sub want_cursor { 0 }
151
152			sub begin {
153			my ($self, $map, $x, $y, $btn) = @_;
154
155	root	1.3	$self->SUPER::begin ($map, $x, $y, $btn);
156	elmex	1.1	$self->edit ($map, $x, $y, $btn);
157			}
158
159			sub edit {
160			my ($self, $map, $x, $y, $btn) = @_;
161
162			my $as = $map->get ($x, $y);
163			pop @$as;
164	root	1.3	$map->change_stack ($x, $y, $as);
165	elmex	1.1	}
166
167			=head1 AUTHOR
168
169			Marc Lehmann <schmorp@schmorp.de>
170			http://home.schmorp.de/
171
172			Robin Redeker <elmex@ta-sa.org>
173			http://www.ta-sa.org/
174
175			=cut
176			1;
177