Adding support for flags.
This commit is contained in:
parent
06011225de
commit
4fb8f404c6
|
@ -156,12 +156,19 @@ sub start_editing_file {
|
|||
);
|
||||
$box_flags->append($toggle);
|
||||
}
|
||||
# for my $flag_id ( sort { $a <=> $b } grep { $_ =~ /^\d+$/ } keys %flags ) {
|
||||
# my $toggle = Gtk4::ToggleButton->new_with_label( $flags{$flag_id} );
|
||||
# $toggle->set_active( check_flag_id( $save, $superdata, $flag_id ) );
|
||||
#
|
||||
# $box_flags->append($toggle);
|
||||
# }
|
||||
for my $flag_id ( sort { $a <=> $b } grep { $_ =~ /^\d+$/ } keys %flags ) {
|
||||
my $toggle = Gtk4::ToggleButton->new_with_label( $flags{$flag_id} );
|
||||
$toggle->set_active( check_flag_id( $save, $superdata, $flag_id ) );
|
||||
$toggle->signal_connect(
|
||||
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;
|
||||
$scroll->set_child($box_flags);
|
||||
$win->set_child($scroll);
|
||||
|
|
Loading…
Reference in New Issue