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.9 by elmex, Fri Apr 7 20:09:52 2006 UTC vs.
Revision 1.13 by elmex, Fri Apr 7 20:57:29 2006 UTC

1package Crossfire::Client::Widget; 1package Crossfire::Client::Widget;
2 2
3use strict; 3use strict;
4use SDL::OpenGL;
5use SDL::OpenGL::Constants;
4 6
5our $FOCUS; # the widget with current focus 7our $FOCUS; # the widget with current focus
6our %ACTIVE_WIDGETS; 8our @ACTIVE_WIDGETS;
7 9
8# class methods for events 10# class methods for events
9sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS } 11sub feed_sdl_key_down_event { $FOCUS->key_down ($_[0]) if $FOCUS }
10sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS } 12sub feed_sdl_key_up_event { $FOCUS->key_up ($_[0]) if $FOCUS }
11sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS } 13sub feed_sdl_button_down_event { $FOCUS->button_down ($_[0]) if $FOCUS }
12sub feed_sdl_button_up_event { $FOCUS->button_up ($_[0]) if $FOCUS } 14sub feed_sdl_button_up_event { $FOCUS->button_up ($_[0]) if $FOCUS }
13 15
14sub new { 16sub new {
15 my $class = shift; 17 my $class = shift;
16 my $self = { @_ }; 18
17 bless $self, $class; 19 bless { @_ }, $class
18 return $self;
19} 20}
20 21
21sub activate { 22sub activate {
22 $ACTIVE_WIDGETS{$_[0]} = $_[0]; 23 push @ACTIVE_WIDGETS, $_[0];
23} 24}
24 25
25sub deactivate { 26sub deactivate {
26 delete $ACTIVE_WIDGETS{$_[0]}; 27 @ACTIVE_WIDGETS =
28 sort { $a->{z} <=> $b->{z} }
29 grep { $_ != $_[0] }
30 @ACTIVE_WIDGETS;
27} 31}
28 32
29sub focus_in { 33sub focus_in {
30 my ($widget) = @_; 34 my ($widget) = @_;
31 $FOCUS = $widget; 35 $FOCUS = $widget;
… …
49 53
50sub button_up { 54sub button_up {
51 my ($widget, $sdlev) = @_; 55 my ($widget, $sdlev) = @_;
52} 56}
53 57
58sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
59sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
60sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
61
54sub draw { 62sub draw {
63 my ($self) = @_;
64
65 glPushMatrix;
66 glTranslate $self->{x}, $self->{y}, 0;
67 $self->_draw;
68 glPopMatrix;
69}
70
71sub _draw {
55 my ($widget) = @_; 72 my ($widget) = @_;
56} 73}
57 74
58sub bbox { 75sub bbox {
59 my ($widget) = @_; 76 my ($widget) = @_;
60} 77}
61 78
79package Crossfire::Client::Widget::Label;
80
81our @ISA = Crossfire::Client::Widget::;
82
83use SDL::OpenGL;
84
85sub new {
86 my ($class, $x, $y, $z, $ttf, $text) = @_;
87
88 my $self = $class->SUPER::new (x => $x, y => $y, z => $z);
89
90 $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text;
91
92 $self
93}
94
95sub _draw {
96 my ($self) = @_;
97
98 my $tex = $self->{texture};
99
100 $self->{x}--;
101
102 glEnable GL_BLEND;
103 glEnable GL_TEXTURE_2D;
104 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
105 glBindTexture GL_TEXTURE_2D, $tex->{name};
106
107 glColor 1, 1, 1;
108
109 glBegin GL_QUADS;
110 glTexCoord 0, 0; glVertex 0 , 0;
111 glTexCoord 0, 1; glVertex 0 , $tex->{height};
112 glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
113 glTexCoord 1, 0; glVertex $tex->{width}, 0;
114 glEnd;
115
116 glDisable GL_BLEND;
117 glDisable GL_TEXTURE_2D;
118}
119
62package Crossfire::Client::Widget::TextView; 120package Crossfire::Client::Widget::TextView;
63 121
64use strict; 122use strict;
123
65our @ISA = qw/Crossfire::Client::Widget/; 124our @ISA = qw/Crossfire::Client::Widget/;
66 125
67use SDL::OpenGL; 126use SDL::OpenGL;
68use SDL::OpenGL::Constants; 127use SDL::OpenGL::Constants;
69 128
70sub add_line { 129sub add_line {
71 my ($self, $line) = @_; 130 my ($self, $line) = @_;
72 push @{$self->{lines}}, $line; 131 push @{$self->{lines}}, $line;
73} 132}
74 133
75sub draw { 134sub _draw {
76 my ($self) = @_; 135 my ($self) = @_;
77 136
78} 137}
79 138
80package Crossfire::Client::Widget::MapWidget; 139package Crossfire::Client::Widget::MapWidget;
… …
91} 150}
92 151
93sub key_up { 152sub key_up {
94} 153}
95 154
96sub draw { 155sub _draw {
97 glEnable GL_TEXTURE_2D; 156 glEnable GL_TEXTURE_2D;
98 glEnable GL_BLEND; 157 glEnable GL_BLEND;
158 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
99 159
100 my $map = $::CONN->{map}; 160 my $map = $::CONN->{map};
101 161
102 for my $x (0 .. $::CONN->{mapw} - 1) { 162 for my $x (0 .. $::CONN->{mapw} - 1) {
103 for my $y (0 .. $::CONN->{maph} - 1) { 163 for my $y (0 .. $::CONN->{maph} - 1) {
… …
112 my $tex = $::CONN->{face}[$num]{texture} || next; 172 my $tex = $::CONN->{face}[$num]{texture} || next;
113 173
114 glBindTexture GL_TEXTURE_2D, $tex->{name}; 174 glBindTexture GL_TEXTURE_2D, $tex->{name};
115 175
116 glBegin GL_QUADS; 176 glBegin GL_QUADS;
117 glTexCoord 0, 0; glVertex $x, $y; 177 glTexCoord 0, 0; glVertex $x * 32 , $y * 32;
118 glTexCoord 0, 1; glVertex $x, $y + 1; 178 glTexCoord 0, 1; glVertex $x * 32 , $y * 32 + 32;
119 glTexCoord 1, 1; glVertex $x + 1, $y + 1; 179 glTexCoord 1, 1; glVertex $x * 32 + 32, $y * 32 + 32;
120 glTexCoord 1, 0; glVertex $x + 1, $y; 180 glTexCoord 1, 0; glVertex $x * 32 + 32, $y * 32;
121 glEnd; 181 glEnd;
122 } 182 }
123 } 183 }
124 } 184 }
125 185

Diff Legend

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