mirror of
https://github.com/moparisthebest/Simba
synced 2024-12-23 15:58:51 -05:00
Fix #206
This commit is contained in:
parent
9517c35814
commit
02b7623e34
@ -314,10 +314,12 @@ begin
|
||||
ecUndo : begin
|
||||
Command:= ecNone;
|
||||
Self.Undo;
|
||||
Self.ScriptChanged:=True;
|
||||
end;
|
||||
ecRedo : begin
|
||||
Command := ecNone;
|
||||
self.Redo;
|
||||
Self.ScriptChanged:=True;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
@ -2954,6 +2954,11 @@ end;
|
||||
|
||||
function TSimbaForm.SaveCurrentScript: boolean;
|
||||
begin
|
||||
if not CurrScript.ScriptChanged then
|
||||
begin
|
||||
writeln('SaveScript - no changes.');
|
||||
exit(false);
|
||||
end;
|
||||
with CurrScript do
|
||||
begin
|
||||
Result := (ScriptFile <> '');
|
||||
|
Loading…
Reference in New Issue
Block a user