The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Paw-0.54
River stage zero No dependents
++
/ Paw::Textbox

Textbox

$popup=Paw::Textbox-new($height, $width, \$text, [$color], [$cursor_color], [$name], [$edit]);>

Parameter

     $height       => number of rows

     $width        => number of columns

     \$text        => reference to a scalar that contains the text.

     $edit         => text edit able (0/1) default is 0

     $color        => the colorpair must be generated with
                      Curses::init_pair(pair_nr, COLOR_fg, COLOR_bg)
                      [optionally]

     $cursor_color => same like color but only for the cursor

     $name         => Name of the widget [optionally]

Example

  $data=("This is free software with ABSOLUTELY NO WARRANTY.\n");
  $pu=Paw::Textbox->new(height=>20, width=>20, text=>\$text);

set_border(["shade"])

activates the border of the widget (optionally also with shadows).

Example

     $widget->set_border("shade"); or $widget->set_border();