Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
with Ada.Text_IO; use Ada.Text_IO;
procedure Theme_Toggle_Only is
Is_Dark : Boolean := False;
begin
Put_Line("Theme: " & (if Is_Dark then "Dark" else "Light"));
Is_Dark := not Is_Dark;
Put_Line("Theme: " & (if Is_Dark then "Dark" else "Light"));
Is_Dark := not Is_Dark;
Put_Line("Theme: " & (if Is_Dark then "Dark" else "Light"));
end Theme_Toggle_Only;Coding works best on desktop or with an external keyboard.