From 4fb8f404c64dea3a403ebeb44568cc6613fdedcf Mon Sep 17 00:00:00 2001
From: sergiotarxz <sergiotarxz@posteo.net>
Date: Sat, 2 Mar 2024 07:50:26 +0100
Subject: [PATCH] Adding support for flags.

---
 scripts/start.pl | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/scripts/start.pl b/scripts/start.pl
index eebb671..ea1c77c 100644
--- a/scripts/start.pl
+++ b/scripts/start.pl
@@ -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);