Extension: Crov.sex, Updated for OpenScript Update.

This commit is contained in:
John P (Dgby714) 2010-12-25 04:19:39 -05:00
parent cb92a880d6
commit cc56f02cee
1 changed files with 2 additions and 2 deletions

View File

@ -244,7 +244,7 @@ var
s: TStringList;
begin
a := TMenuItem(Sender).Hint;
Delete(a, Length(a) - Length('.'+Extension) + 1, Length('.'+Extension));
Delete(a, Length(a) - Length('.' + Extension) + 1, Length('.' + Extension));
SplitRecoverInfo(a, a, b, c);
if (not ForceSave) then
@ -252,7 +252,7 @@ begin
s := TStringList.Create;
try
s.LoadFromFile(TMenuItem(Sender).Hint);
OpenScript(a, s.Text);
OpenScript(a, s.Text, False);
finally
s.Free;
end;