diff --git a/lib/GEmeTool/Log.pm b/lib/GEmeTool/Log.pm index d0e04e8..a5ff08a 100644 --- a/lib/GEmeTool/Log.pm +++ b/lib/GEmeTool/Log.pm @@ -29,6 +29,7 @@ sub msg { my $msg = shift; my $input_file = shift; my $output_file = shift; + my $backup_pk3_file = shift; my ( $input_file_backup, $output_file_backup ) = $self->backup_files( $input_file, $output_file ); my $db = GEmeTool::DB->connect; diff --git a/lib/GEmeTool/Save/Pokemon.pm b/lib/GEmeTool/Save/Pokemon.pm index 073db9a..a405adc 100644 --- a/lib/GEmeTool/Save/Pokemon.pm +++ b/lib/GEmeTool/Save/Pokemon.pm @@ -5,6 +5,8 @@ use v5.16.3; use strict; use warnings; +use Data::Dumper; + use Moo; use Rsaves; use Rsaves::Constants::Emerald::Species; @@ -13,6 +15,7 @@ use Path::Tiny; use GEmeTool::DB; use GEmeTool::Config; use Digest::SHA qw/sha256_hex/; +use Digest::SHA qw/sha256_hex/; use UUID::URandom qw/create_uuid_string/; has _pokemon => ( is => 'rw', required => 1 ); @@ -43,8 +46,8 @@ sub export_file { } sub export_raw { - my $self = shift; - return Rsaves::get_pk3_raw( $self->_pokemon ); + my $self = shift; + return Rsaves::get_pk3_raw($self->_pokemon); } sub empty { @@ -62,6 +65,7 @@ sub copy { sub ivs { my $self = shift; my $arg = shift; + print Data::Dumper::Dumper $self->_pokemon; my $current_value = $self->_pokemon->{substructures}[3]{ivs_egg_status_and_ability}; my @stats = ( diff --git a/lib/GEmeTool/View/PokemonEditorWindow.pm b/lib/GEmeTool/View/PokemonEditorWindow.pm index f967440..0498694 100644 --- a/lib/GEmeTool/View/PokemonEditorWindow.pm +++ b/lib/GEmeTool/View/PokemonEditorWindow.pm @@ -120,6 +120,7 @@ sub draw { $self->create_change_nickname_entry($box_right_image); $save_button->signal_connect( clicked => sub { + $self->activate_save; } ); $delete_button->signal_connect( @@ -210,6 +211,7 @@ sub activate_save { for my $func ( @{ $self->_save_callbacks } ) { $func->(); } + $pokemon->backup; $self->draw; } @@ -273,7 +275,6 @@ sub activate_import_pk3 { $file = path( $file->get_path ); $options->set_last_dir_open( $file->parent . '' ); $self->activate_save; - $self->pokemon->backup; $self->pokemon->copy( GEmeTool::Save::Pokemon->load_from_file($file) ); $self->draw; diff --git a/save.sav b/save.sav index ab04843..4f44572 100644 Binary files a/save.sav and b/save.sav differ