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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.14 by root, Fri Apr 7 21:07:29 2006 UTC vs.
Revision 1.17 by elmex, Sat Apr 8 13:34:19 2006 UTC

… …
57 57
58sub button_up { 58sub button_up {
59 my ($widget, $sdlev) = @_; 59 my ($widget, $sdlev) = @_;
60} 60}
61 61
62sub w { $_[0]->{w} }
63sub h { $_[0]->{h} }
62sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} } 64sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
63sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} } 65sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
64sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} } 66sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
65 67
66sub draw { 68sub draw {
… …
78 80
79sub bbox { 81sub bbox {
80 my ($widget) = @_; 82 my ($widget) = @_;
81} 83}
82 84
85package Crossfire::Client::Widget::Container;
86
87our @ISA = Crossfire::Client::Widget::;
88
89use SDL::OpenGL;
90
91sub add { $_[0]->{child} = $_[1] }
92sub get { $_[0]->{child} }
93
94sub size_request { $_[0]->{child}->size_request if $_[0]->{child} }
95
96sub _draw { die "Containers can't be drawn!" }
97
98package Crossfire::Client::Widget::Frame;
99
100our @ISA = Crossfire::Client::Widget::Container::;
101
102use SDL::OpenGL;
103
104sub size_request {
105 my ($self) = @_;
106 my $chld = $self->get
107 or return (0, 0);
108 map { $_ + 4 } $chld->size_request;
109}
110
111sub _draw {
112 my ($self) = @_;
113
114 my $chld = $self->get;
115
116 my ($w, $h) = $chld->size_request;
117
118 glColor 1, 0, 0;
119 glBegin GL_QUADS;
120 glTexCoord 0, 0; glVertex 0 , 0;
121 glTexCoord 0, 1; glVertex 0 , $h + 4;
122 glTexCoord 1, 1; glVertex $w + 4 , $h + 4;
123 glTexCoord 1, 0; glVertex $w + 4 , 0;
124 glEnd;
125
126 glPushMatrix;
127 glTranslate (2, 2, 0);
128 $chld->_draw;
129 glPopMatrix;
130}
131
132package Crossfire::Client::Widget::Table;
133
134our @ISA = Crossfire::Client::Widget::Container::;
135
136use SDL::OpenGL;
137
138sub add {
139 my ($self, $x, $y, $chld) = @_;
140 $self->{childs}[$y][$x] = $chld;
141}
142
143sub max_row_height {
144 my ($self, $row) = @_;
145
146 my $hs = 0;
147 for (my $xi = 0; $xi <= $#{$self->{childs}->[$row] || []}; $xi++) {
148 my $c = $self->{childs}->[$row]->[$xi];
149 if ($c) {
150 my ($w, $h) = $c->size_request;
151 if ($hs < $h) { $hs = $h }
152 }
153 }
154 return $hs;
155}
156
157sub max_col_width {
158 my ($self, $col) = @_;
159
160 my $ws = 0;
161 for (my $yi = 0; $yi <= $#{$self->{childs} || []}; $yi++) {
162 my $c = ($self->{childs}->[$yi] || [])->[$col];
163 if ($c) {
164 my ($w, $h) = $c->size_request;
165 if ($ws < $w) { $ws = $w }
166 }
167 }
168 return $ws;
169}
170
171sub size_request {
172 my ($self) = @_;
173
174 my ($hs, $ws) = (0, 0);
175
176 for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
177 $hs += $self->max_row_height ($yi);
178 }
179
180 for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
181 my $wm = 0;
182 for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
183 $wm += $self->max_col_width ($xi)
184 }
185 if ($ws < $wm) { $ws = $wm }
186 }
187
188 return ($ws, $hs);
189}
190
191sub _draw {
192 my ($self) = @_;
193
194 my $y = 0;
195 for (my $yi = 0; $yi <= $#{$self->{childs}}; $yi++) {
196 my $x = 0;
197
198 for (my $xi = 0; $xi <= $#{$self->{childs}->[$yi]}; $xi++) {
199
200 glPushMatrix;
201 glTranslate ($x, $y, 0);
202 my $c = $self->{childs}->[$yi]->[$xi];
203 $c->_draw if $c;
204 glPopMatrix;
205
206 $x += $self->max_col_width ($xi);
207 }
208
209 $y += $self->max_row_height ($yi);
210 }
211}
212
213package Crossfire::Client::Widget::VBox;
214
215our @ISA = Crossfire::Client::Widget::Container::;
216
217use SDL::OpenGL;
218
219sub add {
220 my ($self, $chld) = @_;
221 push @{$self->{childs}}, $chld;
222}
223
224sub size_request {
225 my ($self) = @_;
226
227 my ($hs, $ws) = (0, 0);
228 for (@{$self->{childs} || []}) {
229 my ($w, $h) = $_->size_request;
230 $hs += $h;
231 if ($ws < $w) { $ws = $w }
232 }
233
234 return ($ws, $hs);
235}
236
237sub _draw {
238 my ($self) = @_;
239
240 my ($x, $y);
241 for (@{$self->{childs} || []}) {
242 glPushMatrix;
243 glTranslate (0, $y, 0);
244 $_->_draw;
245 glPopMatrix;
246 my ($w, $h) = $_->size_request;
247 $y += $h;
248 }
249}
250
83package Crossfire::Client::Widget::Label; 251package Crossfire::Client::Widget::Label;
84 252
85our @ISA = Crossfire::Client::Widget::; 253our @ISA = Crossfire::Client::Widget::;
86 254
87use SDL::OpenGL; 255use SDL::OpenGL;
88 256
89sub new { 257sub new {
90 my ($class, $x, $y, $z, $ttf, $text) = @_; 258 my ($class, $x, $y, $z, $ttf, $text) = @_;
91 259
92 my $self = $class->SUPER::new (x => $x, y => $y, z => $z); 260 my $self = $class->SUPER::new (x => $x, y => $y, z => $z, ttf => $ttf);
93 261
94 $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text; 262 $self->set_text ($text);
95 263
96 $self 264 $self
265}
266
267sub set_text {
268 my ($self, $text) = @_;
269 $self->{texture} = new_from_ttf Crossfire::Client::Texture $self->{ttf}, $self->{text} = $text;
270}
271
272sub get_text {
273 my ($self, $text) = @_;
274 $self->{text}
97} 275}
98 276
99sub size_request { 277sub size_request {
100 my ($self) = @_; 278 my ($self) = @_;
101 279
… …
153 331
154use strict; 332use strict;
155 333
156our @ISA = qw/Crossfire::Client::Widget/; 334our @ISA = qw/Crossfire::Client::Widget/;
157 335
336use SDL;
158use SDL::OpenGL; 337use SDL::OpenGL;
159use SDL::OpenGL::Constants; 338use SDL::OpenGL::Constants;
160 339
161sub key_down { 340sub key_down {
162 print "MAPKEYDOWN\n"; 341 print "MAPKEYDOWN\n";
… …
198 377
199 glDisable GL_TEXTURE_2D; 378 glDisable GL_TEXTURE_2D;
200 glDisable GL_BLEND; 379 glDisable GL_BLEND;
201} 380}
202 381
382my %DIR = (
383 SDLK_KP8, [1, "north"],
384 SDLK_KP9, [2, "northest"],
385 SDLK_KP6, [3, "east"],
386 SDLK_KP3, [4, "southeast"],
387 SDLK_KP2, [5, "south"],
388 SDLK_KP1, [6, "southwest"],
389 SDLK_KP4, [7, "west"],
390 SDLK_KP7, [8, "northwest"],
391);
392
393sub key_down {
394 my ($self, $ev) = @_;
395
396 my $mod = $ev->key_mod;
397 my $sym = $ev->key_sym;
398
399 if ($sym == SDLK_KP5) {
400 $::CONN->send ("command stay fire");
401 } elsif (exists $DIR{$sym}) {
402 if ($mod & KMOD_SHIFT) {
403 $::CONN->send ("command fire $DIR{$sym}[0]");
404 } elsif ($mod & KMOD_CTRL) {
405 $::CONN->send ("command run $DIR{$sym}[0]");
406 } else {
407 }
408 }
409}
410
411sub key_up {
412 my ($self, $ev) = @_;
413
414 my $mod = $ev->key_mod;
415 my $sym = $ev->key_sym;
416
417 if (exists $DIR{$sym}) {
418 if ($mod & KMOD_SHIFT) {
419 $::CONN->send ("command fire_stop");
420 } else {
421 $::CONN->send ("command run_stop");
422 }
423 }
424}
425
2031; 4261;
204 427

Diff Legend

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