moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-12-23 15:58:51 -05:00
Code Issues Releases Wiki Activity

Extensions: Fixed OpenScript Name problem.

Browse Source
This commit is contained in:
John P (Dgby714) 2010-12-25 04:27:51 -05:00
parent cc56f02cee
commit a9a0c4fd49
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Units/MMLAddon/PSInc/Wrappers/extensions.inc
View File

@ -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();