[perl-win32-gui-users] terminating popup window

[markd]

hi. i've got a weird problem with my popup window. if i close it by
clicking on the x the window closes fine but if i click on the button to
open it again, it won't open. however if i click on save and exit in the
popup window, when i click on the button the open the window again it works
fine. any ideas?

this is for the popup window:

sub Settings_Click {
    open SETTINGS, "settings.dat";
    while (<SETTINGS>) {
     ($list_dun,$store_entry) = split /,/;
    }
    $Window2->DunBox->Change(-text => $list_dun);
    $Window2->StoreField->Change(-text => $store_entry);
    close SETTINGS;

    $Window2->Show();
}

this is for the button in the window:

sub SaveAndExit_Click {
    open SETTINGS, ">settings.dat";
    $dun_list = $Window2->DunBox->Text();
    $store_entry = $Window2->StoreField->Text();
    print SETTINGS "$dun_list,$store_entry";
    close SETTINGS;
    $Window2->Hide();
}

and then.....

sub Window2_Terminate {
    $Window2->Hide();
}