summaryrefslogtreecommitdiff
path: root/src/adapad.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/adapad.adb')
-rw-r--r--src/adapad.adb12
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;