ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra/Deliantra/MapWidget.pm
(Generate patch)

Comparing deliantra/Deliantra/Deliantra/MapWidget.pm (file contents):
Revision 1.30 by root, Mon Mar 20 01:12:23 2006 UTC vs.
Revision 1.31 by root, Mon Mar 20 01:39:00 2006 UTC

16 16
17package Crossfire::MapWidget; 17package Crossfire::MapWidget;
18 18
19use strict; 19use strict;
20 20
21use Glib;
21use Gtk2; 22use Gtk2;
22use Storable (); 23use Storable ();
23 24
24use Crossfire; 25use Crossfire;
25 26
26use Glib::Object::Subclass 27use Glib::Object::Subclass
27 'Gtk2::DrawingArea'; 28 'Gtk2::DrawingArea',
29 signals => {
30 stack_change => {
31 flags => [qw/run-last/],
32 return_type => undef,
33 param_types => ["Glib::Int", "Glib::Int", "Glib::Scalar"],
34 class_closure => \&set,
35 },
36 };
28 37
29use List::Util qw(min max); 38use List::Util qw(min max);
30 39
31#my ($TILE_MINX, $TILE_MINY, $TILE_MAXX, $TILE_MAXY); 40#my ($TILE_MINX, $TILE_MINY, $TILE_MAXX, $TILE_MAXY);
32# 41#
519sub change_stack { 528sub change_stack {
520 my ($self, $x, $y, $as) = @_; 529 my ($self, $x, $y, $as) = @_;
521 530
522 $self->{change}{map}[$x][$y] ||= [$x, $y, $self->{map}{map}[$x][$y]]; 531 $self->{change}{map}[$x][$y] ||= [$x, $y, $self->{map}{map}[$x][$y]];
523 532
524 $self->set ($x, $y, $as); 533 $self->signal_emit (stack_change => $x, $y, $as);
525} 534}
526 535
527sub change_end { 536sub change_end {
528 my ($self) = @_; 537 my ($self) = @_;
529 538

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines