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

Popup Window

$popup=Paw::Popup::new($height, $width, \@buttons, \$text, [$name]);

Parameter

     $height   => Anzahl der Reihen

     $width    => Anzahl der Spalten

     $name     => Name des Widgets [optional]

     \@buttons => Ein Array von Strings fuer die Label der Buttons in der Box.

     \$text    => Eine Refernez auf ein Scalar mit dem Text

Beispiel

     @butt=("Okay", "Cancel");
     $text=("Do you really not want to continue ?");
     $pu=Paw::Popup::new(height=>20, width=>20,
                         buttons=>\@butt, text=>\$text);

Wenn ein Button gedrueckt wird, schliesst sich die Box und es wird die Nummer des Buttons zurueck gegeben (beginnend bei 0).

draw();

Stellt das Popup Fenster am Schirm da, gibt den gedrueckten Button zurueck.

Beispiel

     $button=$pu->draw();

set_border([``shade''])

aktiviert den Rahmen der Box. Optional auch mit Schatten.

Beispiel

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