Commit 8b530ebd authored by Stefan Tauner's avatar Stefan Tauner
Browse files

FIJISettingsViewer: add the CONSTS key names in the .ini to the tooltips

Thus facilitating manual editing and understanding of the .ini files.
parent 6fde683c
......@@ -427,6 +427,7 @@ sub _populate_widget {
# create Tk::Balloon instance for tooltips
my $balloon = $fr->Balloon();
$self->{'balloon'} = $balloon;
# Add resources field to bottom frame
my $rl = $bf->Label(-textvariable => \$self->{'resources'});
......@@ -715,15 +716,16 @@ sub _populate_widget {
# add tooltip for widget
if (defined DESIGNMAP->{$k}->{'help'}) {
my $tooltip = DESIGNMAP->{$k}->{'help'} . " [" . DESIGNMAP->{$k}->{'ini_name'} . "]";
$balloon->attach(
$entry,
-balloonposition => 'mouse',
-msg => DESIGNMAP->{$k}->{'help'}
-msg => $tooltip,
);
$balloon->attach(
$label,
-balloonposition => 'mouse',
-msg => DESIGNMAP->{$k}->{'help'}
-msg => $tooltip,
);
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment