diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-15 17:23:52 +1200 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-15 17:23:52 +1200 |
| commit | ce287c99ae15137138e2c5674f8f84a9c8bc1609 (patch) | |
| tree | 0567cbd3dddc78f64a95d60eae1ce54d46da70a1 /src/images.adb | |
| parent | 63c26c318a60efd20485978624352befd5f6c5ee (diff) | |
Constants marked constant, code style improvements, redundant with clauses removed
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 |