| … | |
… | |
| 2157 | glScale $self->{w}, $self->{h}; |
2157 | glScale $self->{w}, $self->{h}; |
| 2158 | |
2158 | |
| 2159 | if ($self->{vertical}) { |
2159 | if ($self->{vertical}) { |
| 2160 | # draw a vertical slider like a rotated horizontal slider |
2160 | # draw a vertical slider like a rotated horizontal slider |
| 2161 | |
2161 | |
|
|
2162 | glTranslate 1, 0, 0; |
| 2162 | glRotate 90, 0, 0, 1; |
2163 | glRotate 90, 0, 0, 1; |
| 2163 | glTranslate 0, 1, 0; |
|
|
| 2164 | } |
2164 | } |
| 2165 | |
2165 | |
| 2166 | my $fg = $FOCUS == $self ? $self->{active_fg} : $self->{fg}; |
2166 | my $fg = $FOCUS == $self ? $self->{active_fg} : $self->{fg}; |
| 2167 | my $bg = $FOCUS == $self ? $self->{active_bg} : $self->{bg}; |
2167 | my $bg = $FOCUS == $self ? $self->{active_bg} : $self->{bg}; |
| 2168 | |
2168 | |
