From edd2c13b6f9ae61f9e14ea2ee41a1952a5c7dac5 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Mon, 19 Sep 2016 20:12:07 +1000 Subject: Fixed bug where data lost upon save file failure when quit/new/open selected --- src/adapad.adb | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/adapad.adb b/src/adapad.adb index 20d5ba4..f7561dc 100644 --- a/src/adapad.adb +++ b/src/adapad.adb @@ -94,7 +94,9 @@ function AdaPad return Integer is begin case Cancel_Save_Discard is when First => return; - when Second => Save_CB.Call (Item); + when Second => + Save_CB.Call (Item); + if Changed then return; end if; when Third => null; end case; Filename := To_Unbounded_String (0); @@ -116,7 +118,9 @@ function AdaPad return Integer is begin case Cancel_Save_Discard is when First => return; - when Second => Save_CB.Call (Item); + when Second => + Save_CB.Call (Item); + if Changed then return; end if; when Third => null; end case; declare @@ -140,7 +144,9 @@ function AdaPad return Integer is begin case Cancel_Save_Discard is when First => return; - when Second => Save_CB.Call (Item); + when Second => + Save_CB.Call (Item); + if Changed then return; end if; when Third => null; end case; This.Editor.Hide; -- cgit