Select Code to Download

Select or download this

sub Wait
{
...
 $cw->withdraw if Tk::Exists($cw);
 $cw->Callback(-command => $cw->{'selected_button'});
}

Select or download this

 $cw->waitVariable(\$cw->{'selected_button'});

Select or download this
```
$cw->{'selected_button'}
```

Select or download this

my $gui_mw_wrapper = new MainWindow;
my $gui_warn_text;
...

      $dbg_answer = $gui_warn_text -> Show();

Select or download this

my $gui_src_wrapper_frm_wr;
.
...
                $gui_src_wrapper_frm_wr = $gui_mw_wrapper -> Toplevel(
+      -title=>"Tree",
                                                                      
+                                                                  -bo
+rderwidth=>1);

Select or download this

        $gui_warn_frm = $gui_mw_wrapper -> Toplevel(    -title=>$title
+,
                                                                      
+                                  -relief=>"ridge",
...
        $gui_mw_wrapper -> update;
        $gui_warn_frm -> waitWindow;