diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 00:29:45 +1000 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2017-07-28 00:29:45 +1000 |
| commit | 79e6d87c5ed050802d9d5159f2c71f7425597dd2 (patch) | |
| tree | a787e87830f0422e454c3e5ee66aa8af1c9c346c /src/main.adb | |
| parent | ede7482f170d498d0a2129da6e81ff4764e366e2 (diff) | |
Code style change for with/use clauses
Diffstat (limited to 'src/main.adb')
| -rw-r--r-- | src/main.adb | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/src/main.adb b/src/main.adb index f917081..266beb7 100644 --- a/src/main.adb +++ b/src/main.adb @@ -1,18 +1,21 @@ -with FLTK.Images.RGB.PNG; -with Adapad; -with Ada.Command_Line; -with Ada.Directories; +with + FLTK.Images.RGB.PNG, + Adapad, + Ada.Command_Line, + Ada.Directories; -function Main return Integer + +function Main + return Integer is - Containing_Dir : String := - Ada.Directories.Containing_Directory - (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name)); + Origin : String := Ada.Directories.Containing_Directory + (Ada.Directories.Full_Name (Ada.Command_Line.Command_Name)); + Logo : FLTK.Images.RGB.PNG.PNG_Image := - FLTK.Images.RGB.PNG.Create (Containing_Dir & "/../share/adapad/logo.png"); + FLTK.Images.RGB.PNG.Create (Origin & "/../share/adapad/logo.png"); begin Adapad.Set_Logo (Logo); Adapad.Show; |