### update messages in news ticker
sub update_msg {
  # anti-flicker; msg is a CList...
  $msg->freeze();
  $msg->clear();
  my @Loglines = read_log_file();

  # setting up the list
  foreach my $l (@Loglines) {
    my ($date,$level,$subs,$prg,$code,$text) = split /\s/,$l,6;
    $date = format_time($date);
    $text =~ s/\n.*/ [more\.\.\.]/s;
    $msg->append($text,$prg,$date,$level,$code);
  }
  # release
  $msg->thaw();
}