1 files changed, 24 insertions, 0 deletions
diff --git a/src/editor_windows.adb b/src/editor_windows.adb
index 20ccbbd..0f013bc 100644
--- a/src/editor_windows.adb
+++ b/src/editor_windows.adb
@@ -8,11 +8,18 @@ with FLTK.Widgets.Groups;
 use FLTK.Widgets.Groups;
 with FLTK.Widgets.Groups.Windows;
 use FLTK.Widgets.Groups.Windows;
+with FLTK.Images.RGB.PNG;
+use FLTK.Images.RGB.PNG;
 
 
 package body Editor_Windows is
 
 
+    Logo : PNG_Image := Create ("logo.png");
+
+
+
+
     --  Editor_Window functions and procedures
 
     function Create
@@ -47,6 +54,7 @@ package body Editor_Windows is
             This.Editor.Set_Text_Font (Courier);
             This.Set_Resizable (This.Editor);
             This.Set_Size_Range (Min_Editor_Width, Min_Editor_Height);
+            This.Set_Icon (Logo);
         end return;
     end Create;
 
@@ -203,6 +211,10 @@ package body Editor_Windows is
         My_Width  : Integer := 350;
         My_Height : Integer := 250;
 
+        Logo_Line   : Integer := 30;
+        Logo_Width  : Integer := 50;
+        Logo_Height : Integer := 50;
+
         Button_Width  : Integer := 140;
         Button_Height : Integer := 40;
 
@@ -221,6 +233,9 @@ package body Editor_Windows is
         return This : About_Window :=
                    (Double_Window'(Create (0, 0, My_Width, My_Height, "About Adapad")) with
 
+                    Picture => Box'(Create
+                        ((My_Width - Logo_Width) / 2,
+                         Logo_Line, Logo_Width, Logo_Height, "")),
                     Heading => Box'(Create
                         (0, Heading_Line, My_Width, Heading_Size, Heading_Text)),
                     Blurb => Box'(Create
@@ -231,13 +246,18 @@ package body Editor_Windows is
                         ((My_Width - Button_Width) / 2,
                          Button_Line, Button_Width, Button_Height, "Close"))) do
 
+            This.Add (This.Picture);
+            This.Picture.Set_Image (Logo);
             This.Add (This.Heading);
             This.Heading.Set_Label_Size (Font_Size (Heading_Size));
             This.Add (This.Blurb);
             This.Add (This.Author);
             This.Add (This.Dismiss);
             This.Dismiss.Set_Callback (Hide_CB'Access);
+
             This.Set_Callback (Hide_CB'Access);
+            This.Set_Icon (Logo);
+            This.Set_Modal;
         end return;
     end Create;
 
@@ -333,6 +353,8 @@ package body Editor_Windows is
             This.Start.Set_Callback (Find_M'Access);
 
             This.Set_Callback (Hide_CB'Access);
+            This.Set_Icon (Logo);
+            This.Set_Modal;
         end return;
     end Create;
 
@@ -451,6 +473,8 @@ package body Editor_Windows is
             This.Start.Set_Callback (Replace_M'Access);
 
             This.Set_Callback (Hide_CB'Access);
+            This.Set_Icon (Logo);
+            This.Set_Modal;
         end return;
     end Create;