From 3d887a366983c4e37d268725b8b0a32bfe553c92 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Mon, 18 Aug 2014 02:36:00 +0200
Subject: [PATCH] moved MRU menu 'clear' item at the bottom to avoid accidental
 clearing

---
 src/ce_main.pas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/src/ce_main.pas b/src/ce_main.pas
index dbd9cb0d..7d16073c 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -828,13 +828,6 @@ begin
 
     trgMnu.Clear;
 
-    itm := TMenuItem.Create(trgMnu);
-    itm.Caption := 'Clear';
-    itm.OnClick := @mruClearClick;
-    itm.Tag := PtrInt(srcLst);
-    trgMnu.Add(itm);
-    trgMnu.AddSeparator;
-
     for i:= 0 to srcLst.Count-1 do
     begin
       fname := srcLst.Strings[i];
@@ -845,6 +838,13 @@ begin
       trgMnu.Add(itm);
     end;
 
+    trgMnu.AddSeparator;
+    itm := TMenuItem.Create(trgMnu);
+    itm.Caption := 'Clear';
+    itm.OnClick := @mruClearClick;
+    itm.Tag := PtrInt(srcLst);
+    trgMnu.Add(itm);
+
   finally
     Dec(fUpdateCount);
   end;