my $RWWidget = $mw->Label(-textvariable => \$rightwrong,
           -foreground => $colour)->pack(-side=> 'bottom');