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.10 by root, Fri Apr 7 20:34:44 2006 UTC vs.
Revision 1.14 by root, Fri Apr 7 21:07: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 }
… …
16 18
17 bless { @_ }, $class 19 bless { @_ }, $class
18} 20}
19 21
20sub activate { 22sub activate {
21 $ACTIVE_WIDGETS{$_[0]} = $_[0]; 23 push @ACTIVE_WIDGETS, $_[0];
22} 24}
23 25
24sub deactivate { 26sub deactivate {
25 delete $ACTIVE_WIDGETS{$_[0]}; 27 @ACTIVE_WIDGETS =
28 sort { $a->{z} <=> $b->{z} }
29 grep { $_ != $_[0] }
30 @ACTIVE_WIDGETS;
31}
32
33sub size_request {
34 die "size_request is abtract";
26} 35}
27 36
28sub focus_in { 37sub focus_in {
29 my ($widget) = @_; 38 my ($widget) = @_;
30 $FOCUS = $widget; 39 $FOCUS = $widget;
… …
48 57
49sub button_up { 58sub button_up {
50 my ($widget, $sdlev) = @_; 59 my ($widget, $sdlev) = @_;
51} 60}
52 61
62sub x { $_[0]->{x} = $_[1] if $_[1]; $_[0]->{x} }
63sub y { $_[0]->{y} = $_[1] if $_[1]; $_[0]->{y} }
64sub z { $_[0]->{z} = $_[1] if $_[1]; $_[0]->{z} }
65
53sub draw { 66sub draw {
67 my ($self) = @_;
68
69 glPushMatrix;
70 glTranslate $self->{x}, $self->{y}, 0;
71 $self->_draw;
72 glPopMatrix;
73}
74
75sub _draw {
54 my ($widget) = @_; 76 my ($widget) = @_;
55} 77}
56 78
57sub bbox { 79sub bbox {
58 my ($widget) = @_; 80 my ($widget) = @_;
59} 81}
60 82
61package Crossfire::Client::Widget::Label; 83package Crossfire::Client::Widget::Label;
62 84
85our @ISA = Crossfire::Client::Widget::;
86
63use SDL::OpenGL; 87use SDL::OpenGL;
64 88
65sub new { 89sub new {
66 my ($class, $ttf, $text) = @_; 90 my ($class, $x, $y, $z, $ttf, $text) = @_;
67 91
68 my $self = $class->SUPER::new; 92 my $self = $class->SUPER::new (x => $x, y => $y, z => $z);
69 93
70 $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text; 94 $self->{texture} = new_from_ttf Crossfire::Client::Texture $ttf, $text;
71 95
72 $self 96 $self
73} 97}
74 98
99sub size_request {
100 my ($self) = @_;
101
102 (
103 $self->{texture}{width},
104 $self->{texture}{height},
105 )
106}
107
75sub draw { 108sub _draw {
76 my ($self) = @_; 109 my ($self) = @_;
77 110
78 my $tex = $self->{texture}; 111 my $tex = $self->{texture};
79 112
113 $self->{x}--;
114
115 glEnable GL_BLEND;
80 glEnable GL_TEXTURE_2D; 116 glEnable GL_TEXTURE_2D;
117 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
81 glBindTexture GL_TEXTURE_2D, $tex->{name}; 118 glBindTexture GL_TEXTURE_2D, $tex->{name};
119
120 glColor 1, 1, 1;
82 121
83 glBegin GL_QUADS; 122 glBegin GL_QUADS;
84 glTexCoord 0, 0; glVertex 0 , 0; 123 glTexCoord 0, 0; glVertex 0 , 0;
85 glTexCoord 0, 1; glVertex 0 , $tex->{height}; 124 glTexCoord 0, 1; glVertex 0 , $tex->{height};
86 glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height}; 125 glTexCoord 1, 1; glVertex $tex->{width}, $tex->{height};
87 glTexCoord 1, 0; glVertex $tex->{width}, 0; 126 glTexCoord 1, 0; glVertex $tex->{width}, 0;
88 glEnd; 127 glEnd;
89 128
129 glDisable GL_BLEND;
90 glDisable GL_TEXTURE_2D; 130 glDisable GL_TEXTURE_2D;
91} 131}
92 132
93package Crossfire::Client::Widget::TextView; 133package Crossfire::Client::Widget::TextView;
94 134
… …
102sub add_line { 142sub add_line {
103 my ($self, $line) = @_; 143 my ($self, $line) = @_;
104 push @{$self->{lines}}, $line; 144 push @{$self->{lines}}, $line;
105} 145}
106 146
107sub draw { 147sub _draw {
108 my ($self) = @_; 148 my ($self) = @_;
109 149
110} 150}
111 151
112package Crossfire::Client::Widget::MapWidget; 152package Crossfire::Client::Widget::MapWidget;
… …
123} 163}
124 164
125sub key_up { 165sub key_up {
126} 166}
127 167
128sub draw { 168sub _draw {
129 glEnable GL_TEXTURE_2D; 169 glEnable GL_TEXTURE_2D;
130 glEnable GL_BLEND; 170 glEnable GL_BLEND;
171 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE;
131 172
132 my $map = $::CONN->{map}; 173 my $map = $::CONN->{map};
133 174
134 for my $x (0 .. $::CONN->{mapw} - 1) { 175 for my $x (0 .. $::CONN->{mapw} - 1) {
135 for my $y (0 .. $::CONN->{maph} - 1) { 176 for my $y (0 .. $::CONN->{maph} - 1) {

Diff Legend

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