From 64a852bb60304375b54d7554cf152a402e4aeefe Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 19 Jan 2015 06:26:14 +0100
Subject: [PATCH] Added doc focus on creation

---
 src/ce_main.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index 4ad320f4..e3e034b9 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -1083,6 +1083,7 @@ end;
 procedure TCEMainForm.actFileNewExecute(Sender: TObject);
 begin
   newFile;
+  fDoc.setFocus;
 end;
 
 procedure TCEMainForm.actFileNewRunExecute(Sender: TObject);
@@ -1099,6 +1100,7 @@ begin
   '    // phobos and libman imports are allowed' + LineEnding +
   '    writeln("hello runnable module");' + LineEnding +
   '}';
+  fDoc.setFocus;
 end;
 
 procedure TCEMainForm.actFileSaveAsExecute(Sender: TObject);