moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-16 14:25:02 -05:00
Code Issues Releases Wiki Activity

Fix #206

Browse Source
This commit is contained in:
Merlijn Wajer 2010-06-29 18:17:46 +02:00
parent 9517c35814
commit 02b7623e34
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Projects/Simba/framescript.pas
View File

@ -314,10 +314,12 @@ begin
ecUndo : begin ecUndo : begin
Command:= ecNone; Command:= ecNone;
Self.Undo; Self.Undo;
Self.ScriptChanged:=True;
end; end;
ecRedo : begin ecRedo : begin
Command := ecNone; Command := ecNone;
self.Redo; self.Redo;
Self.ScriptChanged:=True;
end; end;
end; end;
end; end;

5
Projects/Simba/simbaunit.pas
View File

@ -2954,6 +2954,11 @@ end;
function TSimbaForm.SaveCurrentScript: boolean; function TSimbaForm.SaveCurrentScript: boolean;
begin begin
if not CurrScript.ScriptChanged then
begin
writeln('SaveScript - no changes.');
exit(false);
end;
with CurrScript do with CurrScript do
begin begin
Result := (ScriptFile <> ''); Result := (ScriptFile <> '');