sergiotarxz
/
GEmeTool
1
0
Fork 0
Code Issues 6 Pull Requests Releases 1 Wiki Activity

Adding support for flags.

This commit is contained in:
sergiotarxz 2024-03-02 07:50:26 +01:00
parent 06011225de
commit 4fb8f404c6
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
scripts/start.pl
View File

@ -156,12 +156,19 @@ sub start_editing_file {
); );
$box_flags->append($toggle); $box_flags->append($toggle);
} }
# for my $flag_id ( sort { $a <=> $b } grep { $_ =~ /^\d+$/ } keys %flags ) { for my $flag_id ( sort { $a <=> $b } grep { $_ =~ /^\d+$/ } keys %flags ) {
# my $toggle = Gtk4::ToggleButton->new_with_label( $flags{$flag_id} ); my $toggle = Gtk4::ToggleButton->new_with_label( $flags{$flag_id} );
# $toggle->set_active( check_flag_id( $save, $superdata, $flag_id ) ); $toggle->set_active( check_flag_id( $save, $superdata, $flag_id ) );
# $toggle->signal_connect(
# $box_flags->append($toggle); toggled => sub {
# } my $active = $toggle->get_active;
Rsaves::set_flag_id( $save, $superdata, $flag_id, $active );
Rsaves::set_first_super_data( $save, $superdata );
}
);
$box_flags->append($toggle);
}
my $scroll = Gtk4::ScrolledWindow->new; my $scroll = Gtk4::ScrolledWindow->new;
$scroll->set_child($box_flags); $scroll->set_child($box_flags);
$win->set_child($scroll); $win->set_child($scroll);