forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

add an action to create a new DUB script, close #81

This commit is contained in:
Basile Burg 2016-07-01 05:15:07 +02:00
parent 7eac3f0305
commit cec04e6b2a
2 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ce_main.lfm
View File

@ -1551,6 +1551,9 @@ object CEMainForm: TCEMainForm
07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23 07FFB47A07FFB47A08FFB57C0AFFB67F0FFFB88114FFBA851B23
} }
end end
object MenuItem97: TMenuItem
Action = actFileNewDubScript
end
object MenuItem2: TMenuItem object MenuItem2: TMenuItem
Action = actFileOpen Action = actFileOpen
Bitmap.Data = { Bitmap.Data = {
@ -4921,6 +4924,12 @@ object CEMainForm: TCEMainForm
OnExecute = actFileRunDubOutExecute OnExecute = actFileRunDubOutExecute
OnUpdate = updateDocumentBasedAction OnUpdate = updateDocumentBasedAction
end end
object actFileNewDubScript: TAction
Category = 'File'
Caption = 'New DUB script'
ImageIndex = 36
OnExecute = actFileNewDubScriptExecute
end
end end
object imgList: TImageList object imgList: TImageList
left = 64 left = 64

18
src/ce_main.pas
View File

@ -50,6 +50,7 @@ type
actFileRunOut: TAction; actFileRunOut: TAction;
actFileRunDub: TAction; actFileRunDub: TAction;
actFileRunDubOut: TAction; actFileRunDubOut: TAction;
actFileNewDubScript: TAction;
actProjGroupCompile: TAction; actProjGroupCompile: TAction;
actProjSelUngrouped: TAction; actProjSelUngrouped: TAction;
actProjAddToGroup: TAction; actProjAddToGroup: TAction;
@ -177,6 +178,7 @@ type
MenuItem94: TMenuItem; MenuItem94: TMenuItem;
MenuItem95: TMenuItem; MenuItem95: TMenuItem;
MenuItem96: TMenuItem; MenuItem96: TMenuItem;
MenuItem97: TMenuItem;
mnuLayout: TMenuItem; mnuLayout: TMenuItem;
mnuItemMruFile: TMenuItem; mnuItemMruFile: TMenuItem;
mnuItemMruProj: TMenuItem; mnuItemMruProj: TMenuItem;
@ -189,6 +191,7 @@ type
MenuItem9: TMenuItem; MenuItem9: TMenuItem;
procedure actFileCompileExecute(Sender: TObject); procedure actFileCompileExecute(Sender: TObject);
procedure actFileDscannerExecute(Sender: TObject); procedure actFileDscannerExecute(Sender: TObject);
procedure actFileNewDubScriptExecute(Sender: TObject);
procedure actFileRunDubExecute(Sender: TObject); procedure actFileRunDubExecute(Sender: TObject);
procedure actFileRunDubOutExecute(Sender: TObject); procedure actFileRunDubOutExecute(Sender: TObject);
procedure actFileRunExecute(Sender: TObject); procedure actFileRunExecute(Sender: TObject);
@ -2462,6 +2465,21 @@ begin
end; end;
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); procedure TCEMainForm.actFileRunDubExecute(Sender: TObject);
begin begin
dubFile(false); dubFile(false);