diff options
Diffstat (limited to 'src/images.adb')
| -rw-r--r-- | src/images.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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 |