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

Comparing deliantra/Deliantra-Client/DC/MapWidget.pm (file contents):
Revision 1.93 by root, Thu Nov 16 19:42:45 2006 UTC vs.
Revision 1.95 by root, Sat Dec 9 02:21:25 2006 UTC

6use List::Util qw(min max); 6use List::Util qw(min max);
7 7
8use CFPlus; 8use CFPlus;
9use CFPlus::OpenGL; 9use CFPlus::OpenGL;
10use CFPlus::UI; 10use CFPlus::UI;
11use CFPlus::Macro;
11 12
12our @ISA = CFPlus::UI::Base::; 13our @ISA = CFPlus::UI::Base::;
13 14
14my $magicmap_tex = 15my $magicmap_tex =
15 new_from_file CFPlus::Texture CFPlus::find_rcfile "magicmap.png", 16 new_from_file CFPlus::Texture CFPlus::find_rcfile "magicmap.png",
182 my $y = $self->{dy} + CFPlus::floor +($ev->{y} - $self->{sy0}) / $self->{tilesize}; 183 my $y = $self->{dy} + CFPlus::floor +($ev->{y} - $self->{sy0}) / $self->{tilesize};
183 184
184 $x -= CFPlus::floor $::MAP->w * 0.5; 185 $x -= CFPlus::floor $::MAP->w * 0.5;
185 $y -= CFPlus::floor $::MAP->h * 0.5; 186 $y -= CFPlus::floor $::MAP->h * 0.5;
186 187
188 if ($::CONN) {
189 if ($::IN_BUILD_MODE) {
190 $::CONN->buildat ($::IN_BUILD_MODE, $x, $y);
191 } else {
187 $::CONN->lookat ($x, $y) 192 $::CONN->lookat ($x, $y)
188 if $::CONN; 193 }
194 }
189 195
190 } elsif ($ev->{button} == 2) { 196 } elsif ($ev->{button} == 2) {
191 $self->grab_focus; 197 $self->grab_focus;
192 return unless $::CONN; 198 return unless $::CONN;
193 199
670 676
671 if ($ev->{button} == 3) { 677 if ($ev->{button} == 3) {
672 (new CFPlus::UI::Menu 678 (new CFPlus::UI::Menu
673 items => [ 679 items => [
674 ["bind <i>" . (CFPlus::asxml $self->{select}) . "</i> to a key" 680 ["bind <i>" . (CFPlus::asxml $self->{select}) . "</i> to a key"
675 => sub { $::BIND_EDITOR->do_quick_binding ([$self->{select}], sub { $entry->grab_focus }) }] 681 => sub { CFPlus::Macro::quick_macro [$self->{select}], sub { $entry->grab_focus } }]
676 ], 682 ],
677 )->popup ($ev); 683 )->popup ($ev);
678 return 1; 684 return 1;
679 } 685 }
680 0 686 0

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines