From ff006c440b90f1fdcfc47f8d809e07fbe54951ac Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 3 Oct 2016 20:22:29 +1100 Subject: Find/Replace window appearance added --- src/adapad.adb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'src/adapad.adb') 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; -- cgit