… | |
… | |
909 | } |
909 | } |
910 | |
910 | |
911 | sub _draw { |
911 | sub _draw { |
912 | my ($self) = @_; |
912 | my ($self) = @_; |
913 | |
913 | |
914 | my ($w, $h) = @$self{qw(w h)}; |
|
|
915 | |
|
|
916 | my $tex = $self->{texture} |
914 | my $tex = $self->{texture} |
917 | or return; |
915 | or return; |
918 | |
916 | |
919 | glEnable GL_TEXTURE_2D; |
917 | glEnable GL_TEXTURE_2D; |
920 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
918 | glTexEnv GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE; |
921 | glColor 0, 0, 0, 1; |
919 | glColor 0, 0, 0, 1; |
922 | |
920 | |
923 | $tex->draw_quad_alpha_premultiplied (0, 0, $w, $h); |
921 | $tex->draw_quad_alpha_premultiplied (0, 0); |
924 | |
922 | |
925 | glDisable GL_TEXTURE_2D; |
923 | glDisable GL_TEXTURE_2D; |
926 | } |
924 | } |
927 | |
925 | |
928 | ############################################################################# |
926 | ############################################################################# |
… | |
… | |
1950 | utf8::encode $text; |
1948 | utf8::encode $text; |
1951 | |
1949 | |
1952 | @$self{qw(cur_x cur_y cur_h)} = $self->{layout}->cursor_pos (length $text) |
1950 | @$self{qw(cur_x cur_y cur_h)} = $self->{layout}->cursor_pos (length $text) |
1953 | } |
1951 | } |
1954 | |
1952 | |
1955 | glColor @{$self->{fg}}; |
|
|
1956 | glBegin GL_LINES; |
1953 | glBegin GL_LINES; |
1957 | glVertex $self->{cur_x} + $self->{ox}, $self->{cur_y} + $self->{oy}; |
1954 | glVertex 0.5 + $self->{cur_x} + $self->{ox}, $self->{cur_y} + $self->{oy}; |
1958 | glVertex $self->{cur_x} + $self->{ox}, $self->{cur_y} + $self->{oy} + $self->{cur_h}; |
1955 | glVertex 0.5 + $self->{cur_x} + $self->{ox}, $self->{cur_y} + $self->{oy} + $self->{cur_h}; |
1959 | glEnd; |
1956 | glEnd; |
1960 | } |
1957 | } |
1961 | } |
1958 | } |
1962 | |
1959 | |
1963 | package CFPlus::UI::Entry; |
1960 | package CFPlus::UI::Entry; |