Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 83124
Status: resolved
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: persicom [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: 804.030
Fixed in: 804.031



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;
On 2013-02-04 11:23:38, PERSICOM wrote: Show quoted text
> Text fed into ROText via Contents() has an extra newline added when > retrieved:
[...] This is fixed in commit 2d053949aee7c9220df25d4ba579926dfcac1d49. Regards, Slaven