you can pass the reference to the main window to the dialoge as follows

my $mw = MainWindow->new( ... options ... );
$DialogRef = $widget->Dialog(
        -mw  => $mw
         ...
         ...
         ...
    );
[download]

Hope this helps :)

Cheers!

--VC

There are three sides to any argument.....
your side, my side and the right side.