Commit 44503ff5 authored by Stefan Tauner's avatar Stefan Tauner
Browse files

Fix some cross-platform problems

parent 1580835c
......@@ -37,7 +37,6 @@ use threads;
use threads::shared;
use FIJI qw(:all);
use FIJI::Netlist;
use Tk;
use Tk::widgets qw(LabFrame ROText Balloon Label Entry Pane Button Dialog DialogBox Checkbutton CompleteEntry StatusBar NoteBook);
......@@ -254,7 +253,7 @@ sub _update_logging_box {
my $msg;
while (defined($msg = $self->{'log_queue'}->dequeue_timed(0))) {
if (defined $msg->{'log4p_level'}) {
$self->{'logbox'}->insert('end', $msg->{'message'}, $msg->{'log4p_level'});
$self->{'logbox'}->insert('end', $msg->{'message'}, [ $msg->{'log4p_level'} ]);
} else {
$self->{'logbox'}->insert('end', $msg->{'message'});
}
......
......@@ -58,9 +58,9 @@ use constant SETTINGS_FILE_TYPES_CFG => [
use constant APPNAME => 'FIJI Download Tool';
my $qw = Thread::Queue->new(); # A new empty queue
my $qr = Thread::Queue->new(); # A new empty queue
my $ql = Thread::Queue->new(); # A new empty queue
my $qw = Thread::Queue->new(); # Queue from the GUI to the worker thread (transmitting workload)
my $qr = Thread::Queue->new(); # Queue from worker to GUI (transmitting state, status message from the HW, and test patterns to re-enact the test run)
my $ql = Thread::Queue->new(); # Queue for communicating log messages to the GUI thread
my $downloader;
#** @function download_worker ()
......
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