| … | |
… | |
| 79 | use SDL::OpenGL; |
79 | use SDL::OpenGL; |
| 80 | |
80 | |
| 81 | sub new { |
81 | sub new { |
| 82 | my $class = shift; |
82 | my $class = shift; |
| 83 | |
83 | |
| 84 | bless { |
84 | my $self = bless { |
| 85 | x => 0, |
85 | x => 0, |
| 86 | y => 0, |
86 | y => 0, |
| 87 | z => 0, |
87 | z => 0, |
| 88 | w => -1, |
88 | w => -1, |
| 89 | h => -1, |
89 | h => -1, |
| 90 | @_ |
90 | @_ |
| 91 | }, $class |
91 | }, $class; |
|
|
92 | |
|
|
93 | for (keys %$self) { |
|
|
94 | if (/^connect_(.*)$/) { |
|
|
95 | $self->connect ($1 => delete $self->{$_}); |
|
|
96 | } |
|
|
97 | } |
|
|
98 | |
|
|
99 | $self |
| 92 | } |
100 | } |
| 93 | |
101 | |
| 94 | sub move { |
102 | sub move { |
| 95 | my ($self, $x, $y, $z) = @_; |
103 | my ($self, $x, $y, $z) = @_; |
| 96 | $self->{x} = $x; |
104 | $self->{x} = $x; |
| … | |
… | |
| 263 | |
271 | |
| 264 | # range [value, low, high, page] |
272 | # range [value, low, high, page] |
| 265 | |
273 | |
| 266 | $class->SUPER::new ( |
274 | $class->SUPER::new ( |
| 267 | bg => [0, 0, 0, 0.2], |
275 | bg => [0, 0, 0, 0.2], |
| 268 | active_bg => [1, 1, 1], |
276 | active_bg => [1, 1, 1, 0.5], |
| 269 | @_ |
277 | @_ |
| 270 | ) |
278 | ) |
| 271 | } |
279 | } |
| 272 | |
280 | |
| 273 | sub _draw { |
281 | sub _draw { |
| … | |
… | |
| 1012 | my $class = shift; |
1020 | my $class = shift; |
| 1013 | |
1021 | |
| 1014 | $class->SUPER::new ( |
1022 | $class->SUPER::new ( |
| 1015 | fg => [1, 1, 1], |
1023 | fg => [1, 1, 1], |
| 1016 | bg => [0, 0, 0, 0.2], |
1024 | bg => [0, 0, 0, 0.2], |
| 1017 | active_bg => [1, 1, 1], |
1025 | active_bg => [1, 1, 1, 0.5], |
| 1018 | active_fg => [0, 0, 0], |
1026 | active_fg => [0, 0, 0], |
| 1019 | @_ |
1027 | @_ |
| 1020 | ) |
1028 | ) |
| 1021 | } |
1029 | } |
| 1022 | |
1030 | |
| … | |
… | |
| 1155 | } |
1163 | } |
| 1156 | } |
1164 | } |
| 1157 | |
1165 | |
| 1158 | ############################################################################# |
1166 | ############################################################################# |
| 1159 | |
1167 | |
|
|
1168 | package CFClient::UI::Button; |
|
|
1169 | |
|
|
1170 | our @ISA = CFClient::UI::Label::; |
|
|
1171 | |
|
|
1172 | use SDL; |
|
|
1173 | use SDL::OpenGL; |
|
|
1174 | |
|
|
1175 | sub new { |
|
|
1176 | my $class = shift; |
|
|
1177 | |
|
|
1178 | $class->SUPER::new ( |
|
|
1179 | padding => 4, |
|
|
1180 | fg => [1, 1, 1], |
|
|
1181 | bg => [1, 1, 1, 0.2], |
|
|
1182 | active_bg => [0, 0, 0, 0.5], |
|
|
1183 | active_fg => [1, 1, 0], |
|
|
1184 | border_fg => [1, 1, 0], |
|
|
1185 | @_ |
|
|
1186 | ) |
|
|
1187 | } |
|
|
1188 | |
|
|
1189 | sub button_up { |
|
|
1190 | my ($self, $ev, $x, $y) = @_; |
|
|
1191 | |
|
|
1192 | if ($x >= 0 && $x < $self->{w} |
|
|
1193 | && $y >= 0 && $y < $self->{h}) { |
|
|
1194 | $self->emit ("activate"); |
|
|
1195 | } |
|
|
1196 | } |
|
|
1197 | |
|
|
1198 | sub _draw { |
|
|
1199 | my ($self) = @_; |
|
|
1200 | |
|
|
1201 | local $self->{fg} = $self->{fg}; |
|
|
1202 | |
|
|
1203 | glEnable GL_BLEND; |
|
|
1204 | glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA; |
|
|
1205 | |
|
|
1206 | glTranslate 0.375, 0.375, 0; # make line and polyogon coordinates behave similarly |
|
|
1207 | |
|
|
1208 | glBegin GL_LINE_LOOP; |
|
|
1209 | glColor @{$self->{border_fg}}; |
|
|
1210 | glVertex 1 , 1; |
|
|
1211 | glVertex 1 , $self->{h} - 2; |
|
|
1212 | glVertex $self->{w} - 2, $self->{h} - 2; |
|
|
1213 | glVertex $self->{w} - 2, 1; |
|
|
1214 | glEnd; |
|
|
1215 | |
|
|
1216 | if ($GRAB == $self) { |
|
|
1217 | glColor @{$self->{active_bg}}; |
|
|
1218 | $self->{fg} = $self->{active_fg}; |
|
|
1219 | } else { |
|
|
1220 | glColor @{$self->{bg}}; |
|
|
1221 | } |
|
|
1222 | |
|
|
1223 | glBegin GL_QUADS; |
|
|
1224 | glVertex 2 , 2; |
|
|
1225 | glVertex 2 , $self->{h} - 2; |
|
|
1226 | glVertex $self->{w} - 2, $self->{h} - 2; |
|
|
1227 | glVertex $self->{w} - 2, 2; |
|
|
1228 | glEnd; |
|
|
1229 | glDisable GL_BLEND; |
|
|
1230 | |
|
|
1231 | $self->SUPER::_draw; |
|
|
1232 | } |
|
|
1233 | |
|
|
1234 | ############################################################################# |
|
|
1235 | |
| 1160 | package CFClient::UI::Slider; |
1236 | package CFClient::UI::Slider; |
| 1161 | |
1237 | |
| 1162 | use strict; |
1238 | use strict; |
| 1163 | |
1239 | |
| 1164 | use SDL::OpenGL; |
1240 | use SDL::OpenGL; |
