From ce287c99ae15137138e2c5674f8f84a9c8bc1609 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Tue, 15 Apr 2025 17:23:52 +1200 Subject: Constants marked constant, code style improvements, redundant with clauses removed --- src/images.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/images.adb') diff --git a/src/images.adb b/src/images.adb index 07897d1..6e35d80 100644 --- a/src/images.adb +++ b/src/images.adb @@ -24,8 +24,8 @@ package body Images is return FLTK.Images.RGB.RGB_Image'Class is begin declare - Base_Path : String := ADir.Containing_Directory (Here_I_Am.Executable); - Logo_Path : String := + Base_Path : constant String := ADir.Containing_Directory (Here_I_Am.Executable); + Logo_Path : constant String := ADir.Compose (ADir.Compose -- No matter how many times I write this, still looks weird... (ADir.Compose -- cgit