Text fed into ROText via Contents() has an extra newline added when
retrieved:
#!/usr/bin/env perl
#
## Inits
##
use strict;
use warnings;
use Tk;
use Tk::ROText;
my $mw = new MainWindow( -title => "Bad ROText" );
my $currentTabTitle = $mw->ROText( -height => 1 )->pack(-expand => 0, -
fill => 'x' );
$currentTabTitle->Contents("Should be no newline here:");
my $button = $mw->Button(-command => sub { print "[" . $currentTabTitle-
Show quoted text
>Contents() . "]"},
-text => "Press me"
)->pack();
MainLoop;