Help for this page

Select Code to Download


  1. or download this
    if(! Exists($obj->{mw})) 
        {    
            $obj = bless {mw => $wind->Toplevel()};
            $obj->{mw}->title("Child Window");
    
  2. or download this
    my %toplevels;
    $toplevel{$count}{'toplevel'} = $wind->Toplevel();