Improving version history.
This commit is contained in:
parent
65fde508f1
commit
017b21d041
|
@ -29,6 +29,7 @@ sub msg {
|
||||||
my $msg = shift;
|
my $msg = shift;
|
||||||
my $input_file = shift;
|
my $input_file = shift;
|
||||||
my $output_file = shift;
|
my $output_file = shift;
|
||||||
|
my $backup_pk3_file = shift;
|
||||||
my ( $input_file_backup, $output_file_backup ) =
|
my ( $input_file_backup, $output_file_backup ) =
|
||||||
$self->backup_files( $input_file, $output_file );
|
$self->backup_files( $input_file, $output_file );
|
||||||
my $db = GEmeTool::DB->connect;
|
my $db = GEmeTool::DB->connect;
|
||||||
|
|
|
@ -5,6 +5,8 @@ use v5.16.3;
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
use Moo;
|
use Moo;
|
||||||
use Rsaves;
|
use Rsaves;
|
||||||
use Rsaves::Constants::Emerald::Species;
|
use Rsaves::Constants::Emerald::Species;
|
||||||
|
@ -13,6 +15,7 @@ use Path::Tiny;
|
||||||
use GEmeTool::DB;
|
use GEmeTool::DB;
|
||||||
use GEmeTool::Config;
|
use GEmeTool::Config;
|
||||||
use Digest::SHA qw/sha256_hex/;
|
use Digest::SHA qw/sha256_hex/;
|
||||||
|
use Digest::SHA qw/sha256_hex/;
|
||||||
use UUID::URandom qw/create_uuid_string/;
|
use UUID::URandom qw/create_uuid_string/;
|
||||||
|
|
||||||
has _pokemon => ( is => 'rw', required => 1 );
|
has _pokemon => ( is => 'rw', required => 1 );
|
||||||
|
@ -43,8 +46,8 @@ sub export_file {
|
||||||
}
|
}
|
||||||
|
|
||||||
sub export_raw {
|
sub export_raw {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
return Rsaves::get_pk3_raw( $self->_pokemon );
|
return Rsaves::get_pk3_raw($self->_pokemon);
|
||||||
}
|
}
|
||||||
|
|
||||||
sub empty {
|
sub empty {
|
||||||
|
@ -62,6 +65,7 @@ sub copy {
|
||||||
sub ivs {
|
sub ivs {
|
||||||
my $self = shift;
|
my $self = shift;
|
||||||
my $arg = shift;
|
my $arg = shift;
|
||||||
|
print Data::Dumper::Dumper $self->_pokemon;
|
||||||
my $current_value =
|
my $current_value =
|
||||||
$self->_pokemon->{substructures}[3]{ivs_egg_status_and_ability};
|
$self->_pokemon->{substructures}[3]{ivs_egg_status_and_ability};
|
||||||
my @stats = (
|
my @stats = (
|
||||||
|
|
|
@ -120,6 +120,7 @@ sub draw {
|
||||||
$self->create_change_nickname_entry($box_right_image);
|
$self->create_change_nickname_entry($box_right_image);
|
||||||
$save_button->signal_connect(
|
$save_button->signal_connect(
|
||||||
clicked => sub {
|
clicked => sub {
|
||||||
|
$self->activate_save;
|
||||||
}
|
}
|
||||||
);
|
);
|
||||||
$delete_button->signal_connect(
|
$delete_button->signal_connect(
|
||||||
|
@ -210,6 +211,7 @@ sub activate_save {
|
||||||
for my $func ( @{ $self->_save_callbacks } ) {
|
for my $func ( @{ $self->_save_callbacks } ) {
|
||||||
$func->();
|
$func->();
|
||||||
}
|
}
|
||||||
|
$pokemon->backup;
|
||||||
$self->draw;
|
$self->draw;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -273,7 +275,6 @@ sub activate_import_pk3 {
|
||||||
$file = path( $file->get_path );
|
$file = path( $file->get_path );
|
||||||
$options->set_last_dir_open( $file->parent . '' );
|
$options->set_last_dir_open( $file->parent . '' );
|
||||||
$self->activate_save;
|
$self->activate_save;
|
||||||
$self->pokemon->backup;
|
|
||||||
$self->pokemon->copy(
|
$self->pokemon->copy(
|
||||||
GEmeTool::Save::Pokemon->load_from_file($file) );
|
GEmeTool::Save::Pokemon->load_from_file($file) );
|
||||||
$self->draw;
|
$self->draw;
|
||||||
|
|
Loading…
Reference in New Issue