Find/Replace window appearance added

1 files changed, 3 insertions, 5 deletions

diff --git a/src/adapad.adb b/src/adapad.adb
index 03ace13..7ba743e 100644
--- a/src/adapad.adb
+++ b/src/adapad.adb
@@ -37,9 +37,9 @@ function Adapad return Integer is
 
     Editor   : Editor_Window    := Create (800, 500);
     Buffer   : Text_Buffer      := Create;
-    About    : About_Window     := Create (350, 250);
-    Find     : Find_Window      := Create (200, 100);
-    Replace  : Replace_Window   := Create (200, 100);
+    About    : About_Window     := Create;
+    Find     : Find_Window      := Create;
+    Replace  : Replace_Window   := Create;
 
     Changed  : Boolean          := False;
     Filename : Unbounded_String := To_Unbounded_String (0);
@@ -216,7 +216,6 @@ function Adapad return Integer is
             Item : in out Widget'Class) is
     begin
         Centre (Find);
-        Find.Reset;
         Find.Show;
     end Call;
 
@@ -231,7 +230,6 @@ function Adapad return Integer is
             Item : in out Widget'Class) is
     begin
         Centre (Replace);
-        Replace.Reset;
         Replace.Show;
     end Call;