From 7451c0e052b1aa4bc0ee056871caa627833daa99 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Mon, 29 Feb 2016 08:28:43 +0100
Subject: [PATCH] fix #23, page caption for dd files

---
 src/ce_editor.pas | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/src/ce_editor.pas b/src/ce_editor.pas
index 0ea552be..948989eb 100644
--- a/src/ce_editor.pas
+++ b/src/ce_editor.pas
@@ -540,15 +540,18 @@ begin
   if fDoc.Lines.Count = 0 then exit;
   //
   md := pageControl.currentPage.Caption;
-  if (fDoc.isDSource and (fDoc.CaretY < 50)) or (md = fDoc.fileName.extractFileName) then
+  if ((fDoc.CaretY < 50) or (md.isEmpty) or (md = '<new document>'))
+    or ((md = fDoc.fileName.extractFileName) and (fDoc.isDSource)) then
   begin
-    lex(fDoc.Lines.Text, fTokList, @lexFindToken);
-    md := getModuleName(fTokList);
-    fTokList.Clear;
+    if fDoc.isDSource then
+    begin
+      lex(fDoc.Lines.Text, fTokList, @lexFindToken);
+      md := getModuleName(fTokList);
+      fTokList.Clear;
+    end else
+      md := fDoc.fileName.extractFileName;
+    pageControl.currentPage.Caption := md;
   end;
-  if md.isEmpty or (md = '<new document>') then
-    md := fDoc.fileName.extractFileName;
-  pageControl.currentPage.Caption := md;
 end;
 {$ENDREGION}