The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

Textbox

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

Parameter

     $height => Anzahl der Reihen

     $width  => Anzahl der Spalten

     \$text  => Referenz auf den Text. 

     $edit   => editierbarer Text ? 
                (0=nein, 1=ja). Standard ist 0
                

Beispiel

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

set_border([``shade''])

aktiviert den Rahmen der Box. Optional auch mit Schatten.

Beispiel

     $box->set_border("shade"); or $win->set_border();