From f8101a4227056dfbc4b551e055289ea8e329754a Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Sun, 25 Apr 2010 23:11:48 +0200
Subject: [PATCH] Reverted stupid mistakes.

---
 Projects/SAMufasaGUI/testunit.pas | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

diff --git a/Projects/SAMufasaGUI/testunit.pas b/Projects/SAMufasaGUI/testunit.pas
index 5957bde..1ab9852 100644
--- a/Projects/SAMufasaGUI/testunit.pas
+++ b/Projects/SAMufasaGUI/testunit.pas
@@ -1846,18 +1846,6 @@ begin
   begin
     MethodInfo := PMethodInfo(node.Data)^;
     StatusBar.Panels[Panel_ScriptPath].Text := MethodInfo.MethodStr;
-    if frmFunctionList.DraggingNode = node then
-      if (MethodInfo.BeginPos > 0) then
-      begin;
-        if MethodInfo.Filename <> nil then
-          if MethodInfo.Filename <> '' then
-          begin;
-//            Writeln(MethodInfo.filename);
-            LoadScriptFile(MethodInfo.Filename,true,true);
-          end;
-        CurrScript.SynEdit.SelStart := MethodInfo.BeginPos + 1;
-        CurrScript.SynEdit.SelEnd := MethodInfo.EndPos + 1;
-      end;
   end;
 end;
 
@@ -1994,9 +1982,12 @@ begin
         a.OnCompile := OnCompile;
         a.OnCompImport := OnCompImport;
         a.OnExecImport := OnExecImport;
+        a.Defines.Assign(Defines);
       end;
       a.GetValueDefs(b);
 
+      CoreDefines.AddStrings(a.Defines);
+
       SetLength(CoreBuffer, 1);
       CoreBuffer[0] := TCodeInsight.Create;
       with CoreBuffer[0] do
@@ -2004,7 +1995,7 @@ begin
         OnMessage := @form1.OnCCMessage;
         b.SaveToStream(ms);
         Run(ms, nil, -1, True);
-        FileName := '!PSCORE!';
+        FileName := '"PSCORE"';
       end;
     finally
       b.Free;