Toggle fullscreen with F11 or Alt+Enter

Author: jiffygist

eepers.adb

@@ -1502,7 +1502,11 @@ begin
                     TURN_DURATION_SECS := BASE_TURN_DURATION_SECS;
                 end if;
             end if;
-            
+
+            if Is_Key_Pressed(KEY_F11) or (Is_Key_Down(KEY_LEFT_ALT) and Is_Key_Pressed(KEY_ENTER)) then
+                Toggle_Fullscreen;
+            end if;
+
             Any_Key_Pressed := False;
             while not Any_Key_Pressed and then Get_Key_Pressed /= KEY_NULL loop
                 Any_Key_Pressed := True;
@@ -1656,7 +1660,6 @@ end;
 --  TODO: Mother should require several attacks before being "split"
 --  TODO: Enemies should attack on zero just like a bomb.
 --  TODO: Properly disablable DEV features
---  TODO: Fullscreen mode
 --  TODO: Try MSAA (if too slow, don't)
 --  TODO: Show Eeper Cooldown timer outside of the screen somehow
 --  TODO: Visual Clue that the Eeper is about to kill the Player when Completely outside of the Screen

raylib.ads

@@ -13,6 +13,12 @@ package Raylib is
             Import => True,
             Convention => C,
             External_Name => "CloseWindow";
+    procedure Toggle_Fullscreen
+        with
+            Import => True,
+            Convention => C,
+            External_Name => "ToggleFullscreen";
+
     function Window_Should_Close return C_Bool
         with
             Import => True,
@@ -77,8 +83,10 @@ package Raylib is
     KEY_UP:     constant int := 265;
     KEY_SPACE:  constant int := 32;
     KEY_ESCAPE: constant int := 256;
-    KEY_ENTER: constant Int := 257;
+    KEY_F11:    constant Int := 300;
+    KEY_ENTER:  constant Int := 257;
     KEY_LEFT_SHIFT: constant Int := 340;
+    KEY_LEFT_ALT:   constant Int := 342;
 
     function Is_Key_Pressed(key: int) return C_bool
         with