diff options
| -rw-r--r-- | src/adapad.adb | 12 |
1 files changed, 9 insertions, 3 deletions
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; |