sub func
{
my $wr = $textbox->Subwidget('scrolled')->cget(-wrap);

if ($wr =~ /\bnone\b/)
{
	# do something
}
else
{
        # do something else
}