… | |
… | |
1256 | fontsize => ($arg{border} || 0.8) * 0.75; |
1256 | fontsize => ($arg{border} || 0.8) * 0.75; |
1257 | } |
1257 | } |
1258 | |
1258 | |
1259 | my $self = $class->SUPER::new ( |
1259 | my $self = $class->SUPER::new ( |
1260 | # label => "", |
1260 | # label => "", |
1261 | fg => [0.6, 0.3, 0.1], |
1261 | fg => undef, |
1262 | border => 0.8, |
1262 | border => 0.8, |
1263 | style => 'single', |
1263 | style => 'single', |
1264 | %arg, |
1264 | %arg, |
1265 | ); |
1265 | ); |
1266 | |
1266 | |
… | |
… | |
1319 | my $border = $self->border; |
1319 | my $border = $self->border; |
1320 | my ($w, $h) = ($self->{w}, $self->{h}); |
1320 | my ($w, $h) = ($self->{w}, $self->{h}); |
1321 | |
1321 | |
1322 | $child->draw; |
1322 | $child->draw; |
1323 | |
1323 | |
1324 | glColor @{$self->{fg}}; |
1324 | glColor @{$self->{fg} || $DC::THEME{fancyframe}}; |
1325 | glBegin GL_LINE_STRIP; |
1325 | glBegin GL_LINE_STRIP; |
1326 | glVertex $border * 1.5 , $border * 0.5 + 0.5; |
1326 | glVertex $border * 1.5 , $border * 0.5 + 0.5; |
1327 | glVertex $border * 0.5 + 0.5, $border * 0.5 + 0.5; |
1327 | glVertex $border * 0.5 + 0.5, $border * 0.5 + 0.5; |
1328 | glVertex $border * 0.5 + 0.5, $h - $border * 0.5 + 0.5; |
1328 | glVertex $border * 0.5 + 0.5, $h - $border * 0.5 + 0.5; |
1329 | glVertex $w - $border * 0.5 + 0.5, $h - $border * 0.5 + 0.5; |
1329 | glVertex $w - $border * 0.5 + 0.5, $h - $border * 0.5 + 0.5; |
… | |
… | |
1361 | my ($class, %arg) = @_; |
1361 | my ($class, %arg) = @_; |
1362 | |
1362 | |
1363 | my $self = $class->SUPER::new ( |
1363 | my $self = $class->SUPER::new ( |
1364 | bg => [1, 1, 1, 1], |
1364 | bg => [1, 1, 1, 1], |
1365 | border_bg => [1, 1, 1, 1], |
1365 | border_bg => [1, 1, 1, 1], |
1366 | border => 1, |
1366 | border => 0.8, |
1367 | can_events => 1, |
1367 | can_events => 1, |
1368 | min_w => 64, |
1368 | min_w => 64, |
1369 | min_h => 32, |
1369 | min_h => 32, |
1370 | %arg, |
1370 | %arg, |
1371 | ); |
1371 | ); |
… | |
… | |
2090 | my $class = shift; |
2090 | my $class = shift; |
2091 | |
2091 | |
2092 | $class->SUPER::new ( |
2092 | $class->SUPER::new ( |
2093 | fg => [1, 1, 1], |
2093 | fg => [1, 1, 1], |
2094 | bg => [0, 0, 0, 0.2], |
2094 | bg => [0, 0, 0, 0.2], |
2095 | outline => [0.6, 0.3, 0.1], |
2095 | outline => undef, |
2096 | active_bg => [0, 0, 1, .2], |
2096 | active_bg => [0, 0, 1, .2], |
2097 | active_fg => [1, 1, 1], |
2097 | active_fg => [1, 1, 1], |
2098 | active_outline => [1, 1, 0], |
2098 | active_outline => [1, 1, 0], |
2099 | can_hover => 1, |
2099 | can_hover => 1, |
2100 | can_focus => 1, |
2100 | can_focus => 1, |
… | |
… | |
2273 | glColor @{$self->{active_outline}}; |
2273 | glColor @{$self->{active_outline}}; |
2274 | glRect_lineloop 1.5, 1.5, $self->{w} - 1.5, $self->{h} - 1.5; |
2274 | glRect_lineloop 1.5, 1.5, $self->{w} - 1.5, $self->{h} - 1.5; |
2275 | glLineWidth 1; |
2275 | glLineWidth 1; |
2276 | |
2276 | |
2277 | } else { |
2277 | } else { |
2278 | glColor @{$self->{outline}}; |
2278 | glColor @{$self->{outline} || $DC::THEME{entry_outline}}; |
2279 | glBegin GL_LINE_STRIP; |
2279 | glBegin GL_LINE_STRIP; |
2280 | glVertex .5, $self->{h} * .5; |
2280 | glVertex .5, $self->{h} * .5; |
2281 | glVertex .5, $self->{h} - 2.5; |
2281 | glVertex .5, $self->{h} - 2.5; |
2282 | glVertex $self->{w} - .5, $self->{h} - 2.5; |
2282 | glVertex $self->{w} - .5, $self->{h} - 2.5; |
2283 | glVertex $self->{w} - .5, $self->{h} * .5; |
2283 | glVertex $self->{w} - .5, $self->{h} * .5; |
… | |
… | |
3620 | |
3620 | |
3621 | $tip =~ s/^\n+//; |
3621 | $tip =~ s/^\n+//; |
3622 | $tip =~ s/\n+$//; |
3622 | $tip =~ s/\n+$//; |
3623 | |
3623 | |
3624 | $self->add (new DC::UI::Label |
3624 | $self->add (new DC::UI::Label |
|
|
3625 | fg => $DC::THEME{tooltip_fg}, |
3625 | markup => $tip, |
3626 | markup => $tip, |
3626 | max_w => ($widget->{tooltip_width} || 0.25) * $::WIDTH, |
3627 | max_w => ($widget->{tooltip_width} || 0.25) * $::WIDTH, |
3627 | align => 0, |
3628 | align => 0, |
3628 | fontsize => 0.8, |
3629 | fontsize => 0.8, |
3629 | style => 1, # FLAG_INVERSE |
3630 | style => $DC::THEME{tooltip_style}, # FLAG_INVERSE |
3630 | ellipsise => 0, |
3631 | ellipsise => 0, |
3631 | font => ($widget->{tooltip_font} || $::FONT_PROP), |
3632 | font => ($widget->{tooltip_font} || $::FONT_PROP), |
3632 | ); |
3633 | ); |
3633 | } |
3634 | } |
3634 | |
3635 | |
… | |
… | |
3671 | sub _draw { |
3672 | sub _draw { |
3672 | my ($self) = @_; |
3673 | my ($self) = @_; |
3673 | |
3674 | |
3674 | my ($w, $h) = @$self{qw(w h)}; |
3675 | my ($w, $h) = @$self{qw(w h)}; |
3675 | |
3676 | |
3676 | glColor 1, 0.8, 0.4; |
3677 | glColor @{ $DC::THEME{tooltip_bg} }; |
3677 | glRect 0, 0, $w, $h; |
3678 | glRect 0, 0, $w, $h; |
3678 | |
3679 | |
3679 | glColor 0, 0, 0; |
3680 | glColor @{ $DC::THEME{tooltip_border} }; |
3680 | glRect_lineloop .5, .5, $w + .5, $h + .5; |
3681 | glRect_lineloop .5, .5, $w + .5, $h + .5; |
3681 | |
3682 | |
3682 | glTranslate 2, 2; |
3683 | glTranslate 2, 2; |
3683 | |
3684 | |
3684 | $self->SUPER::_draw; |
3685 | $self->SUPER::_draw; |