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.6 by elmex, Fri Apr 7 19:58:55 2006 UTC vs.
Revision 1.12 by root, Fri Apr 7 20:55:32 2006 UTC

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

Diff Legend

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