view release on metacpan or  search on metacpan

lib/UI/Various/PoorTerm/Listbox.pm  view on Meta::CPAN

		    {
			$self->{_selected}[$i] =
			    $i != $self->{first} + $_ - 1 ? ' ' :
			    $self->{_selected}[$i] eq ' ' ? '*' : ' ';
			$changes++;
		    }
		}
	    }
	    else
	    {
		foreach (split m/,\s*/, $_)
		{
		    $_ > 0  or  next;
		    $i = $self->{first} + $_ - 1;
		    $self->{_selected}[$i] =
			$self->{_selected}[$i] eq ' ' ? '*' : ' ';
		    $changes++;
		}
	    }
	    defined $self->{on_select}  and  $changes > 0  and
		&{$self->{on_select}};

lib/UI/Various/RichTerm/Box.pm  view on Meta::CPAN

	{
	    $text .= $D{b2}  if  $column > 0;
	    $text .= $D{B2} x $self->{_widths}[$column];
	    $text .= $D{B2} x length($blank) if $self->{_active}[$column];
	}
	$text .= $D{B3} . "\n";
    }

    # 6. final reformatting of whole block:
    $outer_prefix = ' ' x length($outer_prefix);
    my @text = split m/\n/, $text;
    $text =
	$self->_format($outer_prefix, '', '', \@text, '', '', $width, $height);
    $text = $self->_color_simplify($text);
    return $text;
}

1;

#########################################################################
#########################################################################