moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 01:02:17 -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); 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; end;
procedure ext_OpenScript(Name, Data: string; Run: boolean); procedure ext_OpenScript(vName, Data: string; Run: boolean);
begin begin
if (Name = '') then if (vName = '') then
Name := 'Untitled'; vName := 'Untitled';
with SimbaForm do with SimbaForm do
begin begin
@ -140,7 +140,8 @@ begin
with CurrScript do with CurrScript do
begin begin
SynEdit.Lines.Text := Data; SynEdit.Lines.Text := Data;
ScriptName := Name; ScriptName := vName;
ScriptChanged := True;
end; end;
RefreshTab(); RefreshTab();
UpdateTitle(); UpdateTitle();