From fcf1ed7ce1eafa53bf9bf12476abd1c6fde5fc62 Mon Sep 17 00:00:00 2001
From: Tomas Bzatek <tbzatek@redhat.com>
Date: Thu, 22 Jul 2010 15:21:51 +0200
Subject: Fix panel popup menu item clearing

---
 UMain.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/UMain.pas b/UMain.pas
index 065cc08..703f197 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -4165,11 +4165,13 @@ end;
 procedure TFMain.FilePopupMenuPopup(Sender: TObject);
 
   procedure ClearPopupMenu(Popup: TGTKMenuItem);
+  var x: TGTKMenuItem;
   begin
     while Popup.Count > 0 do begin
       if Popup.Items[0].Count > 0 then ClearPopupMenu(Popup.Items[0]);
-      Popup.Items[0].Free;
+      x := Popup.Items[0];
       Popup.Delete(0);
+      x.Free;
     end;
   end;
 
-- 
cgit v1.2.3