summaryrefslogtreecommitdiff
path: root/examples/apps
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-26 09:49:42 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2011-08-26 09:49:42 +0200
commit4da63915237b835e42669a0fa4657175e4d7ac1b (patch)
treee8ab55e84fbb23d2015c568bc95f97ef0e0fb39a /examples/apps
parent30db0d33e00284d06aff0945c01bfbda4a61a830 (diff)
downloadfpGUI-4da63915237b835e42669a0fa4657175e4d7ac1b.tar.xz
ide: added user feedback when a unit is saved.
Diffstat (limited to 'examples/apps')
-rw-r--r--examples/apps/ide/src/frm_main.pas1
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/apps/ide/src/frm_main.pas b/examples/apps/ide/src/frm_main.pas
index a445b76c..d017b203 100644
--- a/examples/apps/ide/src/frm_main.pas
+++ b/examples/apps/ide/src/frm_main.pas
@@ -185,6 +185,7 @@ begin
s := pcEditor.ActivePage.Hint;
if s <> '' then
TfpgTextEdit(pcEditor.ActivePage.Components[0]).SaveToFile(s);
+ AddMessage('File saved');
end;
procedure TMainForm.miFileSaveAs(Sender: TObject);