Select Code to Download

sub msgBox {
    my($demo) = @_;
...
        -title            => 'messageBox Demo',
        -iconname         => 'messageBox',
    );

my %WIDGDEMO;            # class hash of active widget demonstrations

...
    -text             => 'Unknown Demo Text',
    -geometry_manager => 'pack',
    );