diff options
Diffstat (limited to 'src/adapad.adb')
| -rw-r--r-- | src/adapad.adb | 8 |
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; |