From a9a0c4fd49789dcb818eb67152956a99721cf230 Mon Sep 17 00:00:00 2001
From: "John P (Dgby714)" <Dgby714@aol.com>
Date: Sat, 25 Dec 2010 04:27:51 -0500
Subject: [PATCH] Extensions: Fixed OpenScript Name problem.

---
 Units/MMLAddon/PSInc/Wrappers/extensions.inc | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Units/MMLAddon/PSInc/Wrappers/extensions.inc b/Units/MMLAddon/PSInc/Wrappers/extensions.inc
index 3e236d4..3e0d1ce 100644
--- a/Units/MMLAddon/PSInc/Wrappers/extensions.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/extensions.inc
@@ -129,10 +129,10 @@ begin
   Result := ReplaceRegExpr('([N|n][A|a][M|m][E|e]|[P|p][A|a][S|s]{2}|[P|p][I|i][N|n])\s*\:\=\s*\''.*?\'';', Result, '$1 := ''*********'';', True);
 end;
 
-procedure ext_OpenScript(Name, Data: string; Run: boolean);
+procedure ext_OpenScript(vName, Data: string; Run: boolean);
 begin
-  if (Name = '') then
-    Name := 'Untitled';
+  if (vName = '') then
+    vName := 'Untitled';
     
   with SimbaForm do
   begin
@@ -140,7 +140,8 @@ begin
     with CurrScript do
     begin
       SynEdit.Lines.Text := Data;
-      ScriptName := Name;
+      ScriptName := vName;
+      ScriptChanged := True;
     end;
     RefreshTab();
     UpdateTitle();