From cec04e6b2a43fe4d3fad120d9bf669a376d84192 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 1 Jul 2016 05:15:07 +0200
Subject: [PATCH] add an action to create a new DUB script, close #81

---
 src/ce_main.lfm |  9 +++++++++
 src/ce_main.pas | 18 ++++++++++++++++++
 2 files changed, 27 insertions(+)

diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index d00325ca..9204d9ef 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -1551,6 +1551,9 @@ object CEMainForm: TCEMainForm
           07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
         }
       end
+      object MenuItem97: TMenuItem
+        Action = actFileNewDubScript
+      end
       object MenuItem2: TMenuItem
         Action = actFileOpen
         Bitmap.Data = {
@@ -4921,6 +4924,12 @@ object CEMainForm: TCEMainForm
       OnExecute = actFileRunDubOutExecute
       OnUpdate = updateDocumentBasedAction
     end
+    object actFileNewDubScript: TAction
+      Category = 'File'
+      Caption = 'New DUB script'
+      ImageIndex = 36
+      OnExecute = actFileNewDubScriptExecute
+    end
   end
   object imgList: TImageList
     left = 64
diff --git a/src/ce_main.pas b/src/ce_main.pas
index b4d64d68..aa0534cc 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -50,6 +50,7 @@ type
     actFileRunOut: TAction;
     actFileRunDub: TAction;
     actFileRunDubOut: TAction;
+    actFileNewDubScript: TAction;
     actProjGroupCompile: TAction;
     actProjSelUngrouped: TAction;
     actProjAddToGroup: TAction;
@@ -177,6 +178,7 @@ type
     MenuItem94: TMenuItem;
     MenuItem95: TMenuItem;
     MenuItem96: TMenuItem;
+    MenuItem97: TMenuItem;
     mnuLayout: TMenuItem;
     mnuItemMruFile: TMenuItem;
     mnuItemMruProj: TMenuItem;
@@ -189,6 +191,7 @@ type
     MenuItem9: TMenuItem;
     procedure actFileCompileExecute(Sender: TObject);
     procedure actFileDscannerExecute(Sender: TObject);
+    procedure actFileNewDubScriptExecute(Sender: TObject);
     procedure actFileRunDubExecute(Sender: TObject);
     procedure actFileRunDubOutExecute(Sender: TObject);
     procedure actFileRunExecute(Sender: TObject);
@@ -2462,6 +2465,21 @@ begin
   end;
 end;
 
+procedure TCEMainForm.actFileNewDubScriptExecute(Sender: TObject);
+begin
+  newFile;
+  fDoc.Text :=
+  '/+ dub.sdl:' + LineEnding +
+  '   name "dub_script" +/' + LineEnding +
+  'module dub_script;' + LineEnding +
+  LineEnding +
+  'import std.stdio;' + LineEnding +
+  LineEnding +
+  'void main(string[] args)' + LineEnding +
+  '{' + LineEnding + '}';
+  fDoc.setFocus;
+end;
+
 procedure TCEMainForm.actFileRunDubExecute(Sender: TObject);
 begin
   dubFile(false);