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.143 by root, Thu Apr 20 21:28:51 2006 UTC vs.
Revision 1.146 by elmex, Fri Apr 21 15:03:46 2006 UTC

… …
625our @ISA = CFClient::UI::Bin::; 625our @ISA = CFClient::UI::Bin::;
626 626
627use CFClient::OpenGL; 627use CFClient::OpenGL;
628 628
629my @tex = 629my @tex =
630 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 630 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
631 qw(d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png); 631 qw(d1_bg.png d1_border_top.png d1_border_right.png d1_border_left.png d1_border_bottom.png);
632 632
633sub new { 633sub new {
634 my $class = shift; 634 my $class = shift;
635 635
… …
1109 1109
1110sub size_allocate { 1110sub size_allocate {
1111 my ($self, $w, $h) = @_; 1111 my ($self, $w, $h) = @_;
1112 1112
1113 delete $self->{texture}; 1113 delete $self->{texture};
1114}
1115
1116sub set_fontsize {
1117 my ($self, $fontsize) = @_;
1118
1119 $self->{fontsize} = $fontsize;
1120 $self->update;
1114} 1121}
1115 1122
1116sub _draw { 1123sub _draw {
1117 my ($self) = @_; 1124 my ($self) = @_;
1118 1125
… …
1344our @ISA = CFClient::UI::Label::; 1351our @ISA = CFClient::UI::Label::;
1345 1352
1346use CFClient::OpenGL; 1353use CFClient::OpenGL;
1347 1354
1348my @tex = 1355my @tex =
1349 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1356 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1350 qw(b1_button_active.png); 1357 qw(b1_button_active.png);
1351 1358
1352sub new { 1359sub new {
1353 my $class = shift; 1360 my $class = shift;
1354 1361
… …
1401package CFClient::UI::CheckBox; 1408package CFClient::UI::CheckBox;
1402 1409
1403our @ISA = CFClient::UI::DrawBG::; 1410our @ISA = CFClient::UI::DrawBG::;
1404 1411
1405my @tex = 1412my @tex =
1406 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1413 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1407 qw(c1_checkbox_bg.png c1_checkbox_active.png); 1414 qw(c1_checkbox_bg.png c1_checkbox_active.png);
1408 1415
1409use CFClient::OpenGL; 1416use CFClient::OpenGL;
1410 1417
1411sub new { 1418sub new {
… …
1460 glDisable GL_BLEND; 1467 glDisable GL_BLEND;
1461} 1468}
1462 1469
1463############################################################################# 1470#############################################################################
1464 1471
1472package CFClient::UI::Image;
1473
1474our @ISA = CFClient::UI::Base::;
1475
1476use CFClient::OpenGL;
1477use Carp qw/confess/;
1478
1479our %loaded_images;
1480
1481sub new {
1482 my $class = shift;
1483
1484 my $self = $class->SUPER::new (@_);
1485
1486 $self->{image} or confess "Image has 'image' not set. This is a fatal error!";
1487
1488 $loaded_images{$self->{image}} ||=
1489 new_from_file CFClient::Texture CFClient::find_rcfile $self->{image}, mipmap => 1;
1490
1491 my $tex = $self->{tex} = $loaded_images{$self->{image}};
1492
1493 $self->{aspect} = $tex->{w} / $tex->{h};
1494
1495 $self
1496}
1497
1498sub size_request {
1499 my ($self) = @_;
1500
1501 ($self->{tex}->{w}, $self->{tex}->{h})
1502}
1503
1504sub _draw {
1505 my ($self) = @_;
1506
1507 my $tex = $self->{tex};
1508
1509 my ($w, $h) = ($self->{w}, $self->{h});
1510
1511 if ($self->{rot90}) {
1512 glRotate 90, 0, 0, 1;
1513 glTranslate 0, -$self->{w}, 0;
1514
1515 ($w, $h) = ($h, $w);
1516 }
1517
1518 glEnable GL_BLEND;
1519 glBlendFunc GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA;
1520 glEnable GL_TEXTURE_2D;
1521 glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE;
1522
1523 $tex->draw_quad (0, 0, $w, $h);
1524
1525 glDisable GL_BLEND;
1526 glDisable GL_TEXTURE_2D;
1527}
1528
1529#############################################################################
1530
1465package CFClient::UI::VGauge; 1531package CFClient::UI::VGauge;
1466 1532
1467our @ISA = CFClient::UI::Base::; 1533our @ISA = CFClient::UI::Base::;
1468 1534
1469use CFClient::OpenGL; 1535use CFClient::OpenGL;
1470 1536
1471my %tex = ( 1537my %tex = (
1472 food => [ 1538 food => [
1473 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1539 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1474 qw/g1_food_gauge_empty.png g1_food_gauge_full.png/ 1540 qw/g1_food_gauge_empty.png g1_food_gauge_full.png/
1475 ], 1541 ],
1476 grace => [ 1542 grace => [
1477 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1543 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1478 qw/g1_grace_gauge_empty.png g1_grace_gauge_full.png/ 1544 qw/g1_grace_gauge_empty.png g1_grace_gauge_full.png/
1479 ], 1545 ],
1480 hp => [ 1546 hp => [
1481 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1547 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1482 qw/g1_hp_gauge_empty.png g1_hp_gauge_full.png/ 1548 qw/g1_hp_gauge_empty.png g1_hp_gauge_full.png/
1483 ], 1549 ],
1484 mana => [ 1550 mana => [
1485 map { new_from_file CFClient::Texture CFClient::find_rcfile $_ } 1551 map { new_from_file CFClient::Texture CFClient::find_rcfile $_, mipmap => 1 }
1486 qw/g1_mana_gauge_empty.png g1_mana_gauge_full.png/ 1552 qw/g1_mana_gauge_empty.png g1_mana_gauge_full.png/
1487 ], 1553 ],
1488); 1554);
1489 1555
1490# eg. VGauge->new (gauge => 'food'), default gauge: food 1556# eg. VGauge->new (gauge => 'food'), default gauge: food
… …
1591 $self->add ($self->{value} = new CFClient::UI::Label valign => 1, align => 0, template => "999"); 1657 $self->add ($self->{value} = new CFClient::UI::Label valign => 1, align => 0, template => "999");
1592 $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1); 1658 $self->add ($self->{gauge} = new CFClient::UI::VGauge type => $self->{type}, expand => 1);
1593 $self->add ($self->{max} = new CFClient::UI::Label valign => 1, align => 0, template => "999"); 1659 $self->add ($self->{max} = new CFClient::UI::Label valign => 1, align => 0, template => "999");
1594 1660
1595 $self 1661 $self
1662}
1663
1664sub set_fontsize {
1665 my ($self, $fsize) = @_;
1666
1667 $self->{value}->set_fontsize ($fsize);
1668 $self->{max} ->set_fontsize ($fsize);
1669 $self->update;
1596} 1670}
1597 1671
1598sub set_value { 1672sub set_value {
1599 my ($self, $val, $max) = @_; 1673 my ($self, $val, $max) = @_;
1600 1674
… …
2027} 2101}
2028 2102
2029sub add { 2103sub add {
2030 my ($self, $child) = @_; 2104 my ($self, $child) = @_;
2031 2105
2106 # integerize window positions
2107 $child->{x} = int $child->{x};
2108 $child->{y} = int $child->{y};
2109
2032 $self->SUPER::add ($child); 2110 $self->SUPER::add ($child);
2033} 2111}
2034 2112
2035sub on_refresh { 2113sub on_refresh {
2036 my ($self, $id, $cb) = @_; 2114 my ($self, $id, $cb) = @_;

Diff Legend

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