you can pick through this...
##############################
#=======================
sub SettingsSave_Click {
#=======================
$Menu->{SettingsSave}->Checked(!$Menu->{SettingsSave}->Checked());
$PmxSaveSettings = $Menu->{SettingsSave}->Checked();
my $key;
$main::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\dada", $key)
or $main::HKEY_LOCAL_MACHINE->Create("SOFTWARE\\dada", $key);
$key->Close() if $key;
undef $key;
$main::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\dada\\PMX", $key)
or $main::HKEY_LOCAL_MACHINE->Create("SOFTWARE\\dada\\PMX", $key);
if($key) {
$key->SetValueEx("SaveSettings", 0, 1, $PmxSaveSettings);
$key->Close();
}
return 1;
}
#========================
sub SettingsReset_Click {
#========================
my $key;
$main::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\dada", $key)
or $main::HKEY_LOCAL_MACHINE->Create("SOFTWARE\\dada", $key);
$key->Close();
undef $key;
$main::HKEY_LOCAL_MACHINE->Open("SOFTWARE\\dada\\PMX", $key)
or $main::HKEY_LOCAL_MACHINE->Create("SOFTWARE\\dada\\PMX", $key);
if($key) {
undef $PmxWindow_left;
undef $PmxWindow_top;
undef $PmxWindow_width;
undef $PmxWindow_height;
undef $PmxViewExDump;
undef $PmxViewScripts;
WriteConfig($key);
$key->Close();
}
$Window->Move($PmxWindow_left, $PmxWindow_top);
$Window->Resize($PmxWindow_width, $PmxWindow_height);
$Menu->{ViewPL}->Checked($PmxViewScripts);
$Menu->{ViewExtendedDump}->Checked($PmxViewExDump);
}
#===================
sub FileExit_Click {
#===================
Window_Terminate();
}