From 1a04bb601a88d3619f3aa67f0c3bc825753bdde2 Mon Sep 17 00:00:00 2001 From: thindil Date: Sun, 7 Jan 2024 04:35:08 +0000 Subject: [PATCH] style: code formatting FossilOrigin-Name: 54a64e30f4ae8e77d2ec6d9133bd05ebe683fd210b508e793646595e7ead5390 --- src/ui/gameoptions.adb | 3 ++- src/ui/maps-ui.adb | 8 +++++--- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/src/ui/gameoptions.adb b/src/ui/gameoptions.adb index c7fd79db2..a1b0aeaa0 100644 --- a/src/ui/gameoptions.adb +++ b/src/ui/gameoptions.adb @@ -778,7 +778,8 @@ package body GameOptions is Accels(I + 11).Shortcut := To_Unbounded_String(Source => Get_Map_Accelerator(Index => I)); end loop Load_Map_Accelerators_Loop; - Accels(11 + 37 + 1).Shortcut := To_Unbounded_String(Source => Get_Full_Screen_Accel); + Accels(11 + 37 + 1).Shortcut := + To_Unbounded_String(Source => Get_Full_Screen_Accel); Load_General_Accelerators_Loop : for I in 1 .. 4 loop Accels(I + 11 + 37 + 1).Shortcut := diff --git a/src/ui/maps-ui.adb b/src/ui/maps-ui.adb index 33c88c0a3..560837418 100644 --- a/src/ui/maps-ui.adb +++ b/src/ui/maps-ui.adb @@ -1245,11 +1245,13 @@ package body Maps.UI is To_String (Source => Insert - (Source => To_Unbounded_String(Source => Get_Full_Screen_Accel), + (Source => + To_Unbounded_String(Source => Get_Full_Screen_Accel), Before => Index - (Source => To_Unbounded_String(Source => Get_Full_Screen_Accel), Pattern => "-", - Going => Backward) + + (Source => + To_Unbounded_String(Source => Get_Full_Screen_Accel), + Pattern => "-", Going => Backward) + 1, New_Item => "KeyPress-")) & ">",