mirror of https://gitlab.com/basile.b/dexed.git
parent
c34df24089
commit
af155404e0
|
@ -201,11 +201,11 @@ end;
|
||||||
|
|
||||||
procedure TCEEditorWidget.docFocused(aDoc: TCESynMemo);
|
procedure TCEEditorWidget.docFocused(aDoc: TCESynMemo);
|
||||||
begin
|
begin
|
||||||
if aDoc = fDoc then exit;
|
|
||||||
fDoc := aDoc;
|
|
||||||
if fDoc.isNotNil and pageControl.currentPage.isNotNil and
|
if fDoc.isNotNil and pageControl.currentPage.isNotNil and
|
||||||
(pageControl.currentPage.Caption = '<new document>') then
|
(pageControl.currentPage.Caption = '<new document>') then
|
||||||
updatePageCaption;
|
updatePageCaption;
|
||||||
|
if aDoc = fDoc then exit;
|
||||||
|
fDoc := aDoc;
|
||||||
focusedEditorChanged;
|
focusedEditorChanged;
|
||||||
updateImperative;
|
updateImperative;
|
||||||
end;
|
end;
|
||||||
|
|
Loading…
Reference in New Issue