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.3 by root, Wed Apr 19 20:46:44 2006 UTC vs.
Revision 1.5 by root, Wed Apr 19 23:43:07 2006 UTC

… …
2 2
3use strict; 3use strict;
4 4
5use List::Util qw(min max); 5use List::Util qw(min max);
6 6
7use SDL::OpenGL; 7use CFClient::OpenGL;
8 8
9our @ISA = CFClient::UI::Base::; 9our @ISA = CFClient::UI::Base::;
10 10
11sub new { 11sub new {
12 my $class = shift; 12 my $class = shift;
13 13
14 $class->SUPER::new ( 14 $class->SUPER::new (
15 z => -1, 15 z => -1,
16 can_focus => 1, 16 can_focus => 1,
17 list => (glGenLists 1), 17 list => glGenList,
18 @_ 18 @_
19 ) 19 )
20} 20}
21 21
22sub DESTROY {
23 my $self = shift;
24
25 glDeleteList $self->{list};
26
27 $self->SUPER::DESTROY;
28}
29
22sub key_down { 30sub key_down {
23 print "MAPKEYDOWN\n"; 31 print "MAPKEYDOWN\n";
24} 32}
25 33
26sub key_up { 34sub key_up {
… …
29sub button_down { 37sub button_down {
30 my ($self, $ev, $x, $y) = @_; 38 my ($self, $ev, $x, $y) = @_;
31 39
32 $self->focus_in; 40 $self->focus_in;
33 41
34 if ($ev->button == 2) { 42 if ($ev->{button} == 2) {
35 my ($ox, $oy) = ($ev->button_x, $ev->button_y); 43 my ($ox, $oy) = ($ev->{x}, $ev->{y});
36 my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y}); 44 my ($bw, $bh) = ($::CFG->{map_shift_x}, $::CFG->{map_shift_y});
37 45
38 $self->{motion} = sub { 46 $self->{motion} = sub {
39 my ($ev, $x, $y) = @_; 47 my ($ev, $x, $y) = @_;
40 48
41 ($x, $y) = ($ev->motion_x, $ev->motion_y); 49 ($x, $y) = ($ev->{x}, $ev->{y});
42 50
43 $::CFG->{map_shift_x} = $bw + $x - $ox; 51 $::CFG->{map_shift_x} = $bw + $x - $ox;
44 $::CFG->{map_shift_y} = $bh + $y - $oy; 52 $::CFG->{map_shift_y} = $bh + $y - $oy;
45 53
46 $self->update; 54 $self->update;
… …
76 84
77sub draw { 85sub draw {
78 my ($self) = @_; 86 my ($self) = @_;
79 87
80 if (delete $self->{need_update}) { 88 if (delete $self->{need_update}) {
81 glNewList $self->{list}, GL_COMPILE; 89 glNewList $self->{list};
82 90
83 if ($::MAP) { 91 if ($::MAP) {
84 my $sw = int $::WIDTH / 32; 92 my $sw = int $::WIDTH / 32;
85 my $sh = int $::HEIGHT / 32; 93 my $sh = int $::HEIGHT / 32;
86 94
… …
191); 199);
192 200
193sub key_down { 201sub key_down {
194 my ($self, $ev) = @_; 202 my ($self, $ev) = @_;
195 203
196 my $mod = $ev->key_mod; 204 my $mod = $ev->{mod};
197 my $sym = $ev->key_sym; 205 my $sym = $ev->{sym};
198 206
199 if ($sym == CFClient::SDLK_KP5) { 207 if ($sym == CFClient::SDLK_KP5) {
200 $::CONN->user_send ("stay fire"); 208 $::CONN->user_send ("stay fire");
201 } elsif ($sym == ord "a") { 209 } elsif ($sym == ord "a") {
202 $::CONN->user_send ("apply"); 210 $::CONN->user_send ("apply");
… …
218} 226}
219 227
220sub key_up { 228sub key_up {
221 my ($self, $ev) = @_; 229 my ($self, $ev) = @_;
222 230
223 my $mod = $ev->key_mod; 231 my $mod = $ev->{mod};
224 my $sym = $ev->key_sym; 232 my $sym = $ev->{sym};
225 233
226 if (!($mod & CFClient::KMOD_SHIFT) && delete $self->{shft}) { 234 if (!($mod & CFClient::KMOD_SHIFT) && delete $self->{shft}) {
227 $::CONN->user_send ("fire_stop"); 235 $::CONN->user_send ("fire_stop");
228 } 236 }
229 if (!($mod & CFClient::KMOD_CTRL ) && delete $self->{ctrl}) { 237 if (!($mod & CFClient::KMOD_CTRL ) && delete $self->{ctrl}) {

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines