… | |
… | |
245 | |
245 | |
246 | (my $data = $command) =~ s/\\//g; |
246 | (my $data = $command) =~ s/\\//g; |
247 | |
247 | |
248 | $tooltip =~ s/^\s+//; |
248 | $tooltip =~ s/^\s+//; |
249 | |
249 | |
250 | $tooltip = "<big>" . (CFClient::UI::Label::escape $data) . "</big>\n\n" |
250 | $tooltip = "<big>$data</big>\n\n$tooltip"; |
251 | . CFClient::UI::Label::escape $tooltip; |
|
|
252 | |
251 | |
253 | $tooltip =~ s/\s+$//; |
252 | $tooltip =~ s/\s+$//; |
254 | |
253 | |
255 | $self->{command}{$command} = [$data, $tooltip, $widget, $cb]; |
254 | $self->{command}{$command} = [$data, $tooltip, $widget, $cb]; |
256 | } |
255 | } |
… | |
… | |
359 | $self->add ($self->{vbox} = new CFClient::UI::VBox); |
358 | $self->add ($self->{vbox} = new CFClient::UI::VBox); |
360 | |
359 | |
361 | $self->{label} = [ |
360 | $self->{label} = [ |
362 | map |
361 | map |
363 | CFClient::UI::Label->new ( |
362 | CFClient::UI::Label->new ( |
364 | can_hover => 1, |
363 | can_hover => 1, |
365 | can_events => 1, |
364 | can_events => 1, |
|
|
365 | tooltip_width => 0.33, |
366 | fontsize => $_, |
366 | fontsize => $_, |
367 | ), (0.8) x 6 |
367 | ), (0.8) x 6 |
368 | ]; |
368 | ]; |
369 | |
369 | |
370 | $self->{entry} = new CFClient::UI::Entry |
370 | $self->{entry} = new CFClient::UI::Entry |
371 | connect_changed => sub { |
371 | connect_changed => sub { |
… | |
… | |
477 | $self->{select} = "$matches[0][0]$arg"; |
477 | $self->{select} = "$matches[0][0]$arg"; |
478 | |
478 | |
479 | $labels[0]->{fg} = [0, 0, 0, 1]; |
479 | $labels[0]->{fg} = [0, 0, 0, 1]; |
480 | $labels[0]->{bg} = [1, 1, 1, 0.8]; |
480 | $labels[0]->{bg} = [1, 1, 1, 0.8]; |
481 | } else { |
481 | } else { |
482 | delete $self->{select}; |
482 | $self->{select} = "$cmd$arg"; |
483 | } |
483 | } |
484 | |
484 | |
485 | for my $match (@matches) { |
485 | for my $match (@matches) { |
486 | my $label = shift @labels; |
486 | my $label = shift @labels; |
487 | |
487 | |