better proj name

ARM/STM32/driver_demos/demo_leds_tasking/src/button.adb

@@ -37,8 +37,6 @@ with STM32.EXTI;    use STM32.EXTI;
 
 package body Button is
 
-   procedure Initialize;
-
    -----------------
    -- User_Button --
    -----------------
@@ -105,17 +103,8 @@ package body Button is
       return User_Button.Current_Direction;
    end Current_Direction;
 
-   ----------------
-   -- Initialize --
-   ----------------
-
-   procedure Initialize is
-   begin
-      Configure_User_Button_GPIO;
-      Connect_External_Interrupt (User_Button_Point);
-      Configure_Trigger (User_Button_Point, Interrupt_Rising_Edge);
-   end Initialize;
-
 begin
-   Initialize;
+   Configure_User_Button_GPIO;
+   Connect_External_Interrupt (User_Button_Point);
+   Configure_Trigger (User_Button_Point, Interrupt_Rising_Edge);
 end Button;

ARM/STM32/driver_demos/demo_leds_tasking/src/driver.adb

@@ -52,6 +52,7 @@ package body Driver is
       All_LEDs_Off;
 
       loop
+         --  blink in a circle, individually
          Period := Milliseconds (75);  -- arbitrary
          for K in 1 .. 40 loop   -- arbitrary
             Turn_Off (Pattern (Next_LED));
@@ -68,6 +69,7 @@ package body Driver is
             delay until Next_Release;
          end loop;
 
+         --  flash all, together
          Period := Milliseconds (50);  -- arbitrary
          for K in 1 .. 5 loop   -- arbitrary
             All_LEDs_On;