| … | |
… | |
| 904 | $tex[1]->draw_quad (0, 0, $w, $border); |
904 | $tex[1]->draw_quad (0, 0, $w, $border); |
| 905 | $tex[3]->draw_quad (0, $border, $border, $ch); |
905 | $tex[3]->draw_quad (0, $border, $border, $ch); |
| 906 | $tex[2]->draw_quad ($w - $border, $border, $border, $ch); |
906 | $tex[2]->draw_quad ($w - $border, $border, $border, $ch); |
| 907 | $tex[4]->draw_quad (0, $h - $border, $w, $border); |
907 | $tex[4]->draw_quad (0, $h - $border, $w, $border); |
| 908 | |
908 | |
|
|
909 | if (@{$self->{bg}} < 4 || $self->{bg}[3]) { |
| 909 | my $bg = $tex[0]; |
910 | my $bg = $tex[0]; |
| 910 | |
911 | |
| 911 | # TODO: repeat texture not scale |
912 | # TODO: repeat texture not scale |
| 912 | my $rep_x = $cw / $bg->{w}; |
913 | my $rep_x = $cw / $bg->{w}; |
| 913 | my $rep_y = $ch / $bg->{h}; |
914 | my $rep_y = $ch / $bg->{h}; |
| 914 | |
915 | |
| 915 | glColor @{ $self->{bg} }; |
916 | glColor @{ $self->{bg} }; |
| 916 | |
917 | |
| 917 | $bg->{s} = $rep_x; |
918 | $bg->{s} = $rep_x; |
| 918 | $bg->{t} = $rep_y; |
919 | $bg->{t} = $rep_y; |
| 919 | $bg->{wrap_mode} = 1; |
920 | $bg->{wrap_mode} = 1; |
| 920 | $bg->draw_quad ($border, $border, $cw, $ch); |
921 | $bg->draw_quad ($border, $border, $cw, $ch); |
| 921 | |
922 | |
| 922 | glDisable GL_TEXTURE_2D; |
923 | glDisable GL_TEXTURE_2D; |
| 923 | glDisable GL_BLEND; |
924 | glDisable GL_BLEND; |
|
|
925 | } |
| 924 | |
926 | |
| 925 | $self->{title}->draw if $self->{title}; |
927 | $self->{title}->draw if $self->{title}; |
|
|
928 | |
| 926 | $self->child->draw; |
929 | $self->child->draw; |
| 927 | } |
930 | } |
| 928 | |
931 | |
| 929 | ############################################################################# |
932 | ############################################################################# |
| 930 | |
933 | |
