Commit ded06673 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

FIJITestsViewer: minor usability improvements

 - add tooltips to error indicators
 - add initial log entry at startup to make use of window part obvious
 - also remove some unused get_logger calls
parent 38e136d9
......@@ -794,7 +794,7 @@ BEGIN {
#gui_modes => [qw (manual auto random)],
},
UART => {
description => "UART for Downloading",
description => "Control UART",
ini_name => "UART",
default => "/dev/ttyUSB0",
type => "autocomplete",
......
......@@ -484,6 +484,23 @@ sub _populate_widget {
$self->{'msg_type'} = $self->{'fr_buttons'}->Label(-width => 22, -text => "FIJI status", -borderwidth => "1", -relief => "sunken")->pack(-side => "left", -padx => 5);
$self->{'duration'} = $self->{'fr_buttons'}->Label(-width => 22, -text => "Test runtime", -borderwidth => "1", -relief => "sunken")->pack(-side => "left", -padx => 5);
my $balloon = $self->Balloon();
$balloon->attach(
$self->{'uart_status'},
-balloonposition => 'mouse',
-msg => "UART",
);
$balloon->attach(
$self->{'id_status'},
-balloonposition => 'mouse',
-msg => "Design ID",
);
$balloon->attach(
$self->{'crc_status'},
-balloonposition => 'mouse',
-msg => "CRC",
);
#---
my $text_scrolled = $self->Scrolled('ROText', -scrollbars => "oe", -width => 80, -height => 10);
......@@ -524,6 +541,7 @@ sub _populate_widget {
my $layout = $file_appender->{'layout'};
$custom_appender->layout(clone($layout));
$logger->add_appender($custom_appender);
$logger->info("Live capturing of log output has started");
#---
# Test settings Notebook
......@@ -756,7 +774,6 @@ sub _populate_widget {
}
sub update {
my $logger = get_logger("");
my $self = shift;
# loop through all widgets and set their values and states according
......@@ -908,7 +925,6 @@ sub edit_test {
}
sub _add_test ($$) {
my $logger = get_logger("");
my ($self, $test, $i) = @_;
if (!defined($i)) {
$i = $self->_test_cnt(); # default is to append
......@@ -1068,7 +1084,6 @@ sub _set_fields_by_button {
sub _set_fields {
my ($self, $bool, $fields) = @_;
my $logger = get_logger("");
foreach my $f (@{$fields}) {
if ($bool) {
$f->configure('-state' => 'normal');
......
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