From eb3d0c93005a8efbe6d36aedc56eac9d6da3daba Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Wed, 4 Nov 2015 11:49:44 +0100
Subject: [PATCH] fix, mini explorer, open file using shell broken

---
 src/ce_miniexplorer.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/ce_miniexplorer.pas b/src/ce_miniexplorer.pas
index f9504cfa..883b71fd 100644
--- a/src/ce_miniexplorer.pas
+++ b/src/ce_miniexplorer.pas
@@ -376,12 +376,7 @@ end;
 
 procedure TCEMiniExplorerWidget.lstFilesEnter(Sender: TObject);
 begin
-  fLastListOrTree := Tree;
-end;
-
-procedure TCEMiniExplorerWidget.TreeEnter(Sender: TObject);
-begin
-  fLastListOrTree := Tree;
+  fLastListOrTree := lstFiles;
 end;
 
 procedure TCEMiniExplorerWidget.shellOpenSelected;
@@ -417,6 +412,11 @@ end;
 {$ENDREGION}
 
 {$REGION Tree ------------------------------------------------------------------}
+procedure TCEMiniExplorerWidget.TreeEnter(Sender: TObject);
+begin
+  fLastListOrTree := Tree;
+end;
+
 procedure TCEMiniExplorerWidget.treeDeletion(Sender: TObject; Item: TTreeNode);
 begin
   if Item.Data <> nil then