From b9f3074cb800180472134c67c9b594a4e694b4ad Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wajer.org>
Date: Fri, 19 Mar 2010 00:51:11 +0100
Subject: [PATCH] Revert "Revert to Tray"

This reverts commit d3801f0a45a28b1e0382af799e21bb6fefc65909.
---
 Projects/SAMufasaGUI/testunit.pas | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index aa8da58..f03194d 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -2007,9 +2007,18 @@ begin
 end;
 
 procedure TForm1.ButtonTrayClick(Sender: TObject);
-
+var
+   Ext: TSimbaPSEventExtension;
+{ FIXME: Turning it into a test button again... }
 begin
-  Form1.Hide;
+  {Form1.Hide;  }
+  try
+    Ext := TSimbaPSEventExtension.Create(MainDir + DS + 'Extensions' + DS + 'test.pas');
+    Ext.Free;
+  except
+    Writeln('Something went wrong with the Extensions.');
+  end;
+
 end;
 
 procedure TForm1.PageControl1Changing(Sender: TObject; var AllowChange: Boolean