From c86c39f5d4dff42d54c752027e7003d8145f0109 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Mon, 10 Dec 2007 11:02:33 +0000
Subject: [PATCH] IDE: added <ctrl>+<shift>+T for insert TODO item from Graeme
 (#10393)

git-svn-id: trunk@13257 -
---
 ide/keymapping.pp | 3 +++
 ide/main.pp       | 5 ++++-
 ide/mainbar.pas   | 1 +
 ide/mainbase.pas  | 2 ++
 4 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/ide/keymapping.pp b/ide/keymapping.pp
index d2827312a4..29e927b0cf 100644
--- a/ide/keymapping.pp
+++ b/ide/keymapping.pp
@@ -347,6 +347,7 @@ begin
   ecInsertCVSRevision: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
   ecInsertCVSSource: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
   ecInsertGUID: SetResult(VK_G, [ssCtrl,ssShift],VK_UNKNOWN,[]);
+  ecInsertToDo: SetResult(VK_T, [ssCtrl,ssShift],VK_UNKNOWN,[]);
 
   // command commands
   ecUndo: SetResult(VK_Z,[ssCtrl],VK_UNKNOWN,[]);
@@ -1380,6 +1381,7 @@ begin
     ecInsertCVSRevision       : Result:= srkmecInsertCVSRevision;
     ecInsertCVSSource         : Result:= srkmecInsertCVSSource;
     ecInsertGUID              : Result:= srkmecInsertGUID;
+    ecInsertToDo              : Result:= uemInsertTodo;
 
     // search menu
     ecFind                    : Result:= srkmecFind;
@@ -2269,6 +2271,7 @@ begin
   AddDefault(C, 'Insert CVS keyword Source', srkmecInsertCVSSource,
     ecInsertCVSSource);
   AddDefault(C, 'Insert a GUID',srkmecInsertGUID, ecInsertGUID);
+  AddDefault(C, 'Insert Todo',uemInsertTodo, ecInsertTodo);
 
   // command commands
   C:=Categories[AddCategory('CommandCommands',srkmCatCmdCmd,nil)];
diff --git a/ide/main.pp b/ide/main.pp
index 2fa887c04a..39668e4802 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -2663,7 +2663,10 @@ begin
 
   ecInsertGUID:
     mnuEditInsertGUID(self);
-
+    
+  ecInsertTodo:
+    mnuInsertTodo(self);
+    
   else
     Handled:=false;
     // let the bosses handle it
diff --git a/ide/mainbar.pas b/ide/mainbar.pas
index ff8f95cab0..10f22b4537 100644
--- a/ide/mainbar.pas
+++ b/ide/mainbar.pas
@@ -138,6 +138,7 @@ type
             itmEditInsertDateTime: TIDEMenuCommand;
             itmEditInsertChangeLogEntry: TIDEMenuCommand;
             itmEditInsertGUID: TIDEMenuCommand;
+            itmEditInsertTodo: TIDEMenuCommand;
       //itmEditMenuCodeTools: TIDEMenuSection;
         itmEditCompleteCode: TIDEMenuCommand;
         itmEditExtractProc: TIDEMenuCommand;
diff --git a/ide/mainbase.pas b/ide/mainbase.pas
index b0f1ff793d..093a624e2a 100644
--- a/ide/mainbase.pas
+++ b/ide/mainbase.pas
@@ -438,6 +438,7 @@ begin
         CreateMenuItem(SubSubParentMI,itmEditInsertDateTime,'itmEditInsertDateTime',lisMenuInsertDateTime);
         CreateMenuItem(SubSubParentMI,itmEditInsertChangeLogEntry,'itmEditInsertChangeLogEntry',lisMenuInsertChangeLogEntry);
         CreateMenuItem(SubSubParentMI,itmEditInsertGUID,'itmEditInsertGUID',srkmecInsertGUID);
+        CreateMenuItem(SubSubParentMI,itmEditInsertTodo,'itmEditInsertTodo',uemInsertTodo);
       end;
     end;
 
@@ -843,6 +844,7 @@ begin
     itmEditInsertDateTime.Command:=GetCommand(ecInsertDateTime);
     itmEditInsertChangeLogEntry.Command:=GetCommand(ecInsertChangeLogEntry);
     itmEditInsertGUID.Command:=GetCommand(ecInsertGUID);
+    itmEditInsertTodo.Command:=GetCommand(ecInsertTodo);
 
     // search menu
     itmSearchFind.Command:=GetCommand(ecFind);