… | |
… | |
900 | { |
900 | { |
901 | package CFPlus::UI::Base; |
901 | package CFPlus::UI::Base; |
902 | |
902 | |
903 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
903 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
904 | (0, 0, $self->{w}, $self->{h}); |
904 | (0, 0, $self->{w}, $self->{h}); |
|
|
905 | |
|
|
906 | $self->_render; |
905 | } |
907 | } |
906 | |
|
|
907 | $self->_render; |
|
|
908 | }; |
908 | }; |
909 | } |
909 | } |
910 | |
910 | |
911 | sub _draw { |
911 | sub _draw { |
912 | my ($self) = @_; |
912 | my ($self) = @_; |
… | |
… | |
2959 | |
2959 | |
2960 | $self->{texture} ||= new_from_opengl CFPlus::Texture $W, $H, sub { |
2960 | $self->{texture} ||= new_from_opengl CFPlus::Texture $W, $H, sub { |
2961 | glClearColor 0, 0, 0, 0; |
2961 | glClearColor 0, 0, 0, 0; |
2962 | glClear GL_COLOR_BUFFER_BIT; |
2962 | glClear GL_COLOR_BUFFER_BIT; |
2963 | |
2963 | |
2964 | { |
|
|
2965 | package CFPlus::UI::Base; |
2964 | package CFPlus::UI::Base; |
2966 | |
|
|
2967 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
2965 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
2968 | (0, 0, $self->{w}, $self->{h}); |
2966 | (0, 0, $self->{w}, $self->{h}); |
2969 | } |
|
|
2970 | |
2967 | |
2971 | my $top = int $self->{children}[1]{range}[0]; |
2968 | my $top = int $self->{children}[1]{range}[0]; |
2972 | |
2969 | |
2973 | my $paridx = 0; |
2970 | my $paridx = 0; |
2974 | my $top_paragraph; |
2971 | my $top_paragraph; |
… | |
… | |
4133 | { |
4130 | { |
4134 | package CFPlus::UI::Base; |
4131 | package CFPlus::UI::Base; |
4135 | |
4132 | |
4136 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
4133 | local ($draw_x, $draw_y, $draw_w, $draw_h) = |
4137 | (0, 0, $self->{w}, $self->{h}); |
4134 | (0, 0, $self->{w}, $self->{h}); |
4138 | } |
|
|
4139 | |
4135 | |
4140 | $self->_draw; |
4136 | $self->_draw; |
|
|
4137 | } |
4141 | } |
4138 | } |
4142 | |
4139 | |
4143 | ############################################################################# |
4140 | ############################################################################# |
4144 | |
4141 | |
4145 | package CFPlus::UI; |
4142 | package CFPlus::UI; |