From 284d2ee07085b0e874f44fdeed7860d1830aa51a Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sun, 21 Aug 2016 06:11:33 +0200 Subject: [PATCH] nothing --- src/ce_editor.pas | 2 -- src/ce_libmaneditor.lfm | 12 ++++++------ src/ce_synmemo.pas | 6 +++--- 3 files changed, 9 insertions(+), 11 deletions(-) diff --git a/src/ce_editor.pas b/src/ce_editor.pas index 6de9a001..003d256c 100644 --- a/src/ce_editor.pas +++ b/src/ce_editor.pas @@ -367,8 +367,6 @@ begin end; {$ENDREGION} -// todo-cpagecontrol: display the two mole names when split mode is activated - {$REGION ICEDocumentObserver ---------------------------------------------------} procedure TCEEditorWidget.docNew(document: TCESynMemo); var diff --git a/src/ce_libmaneditor.lfm b/src/ce_libmaneditor.lfm index d630cf4d..6ffe44d3 100644 --- a/src/ce_libmaneditor.lfm +++ b/src/ce_libmaneditor.lfm @@ -63,7 +63,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget inherited toolbar: TCEToolBar Width = 633 object btnSelProj: TCEToolButton[0] - Left = 356 + Left = 353 Hint = 'set the project that compiles the selected entry' Top = 0 Caption = 'button3' @@ -72,7 +72,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget scaledSeparator = False end object btnSelRoot: TCEToolButton[1] - Left = 328 + Left = 325 Hint = 'set the root of the library sources' Top = 0 Caption = 'button4' @@ -81,7 +81,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget scaledSeparator = False end object btnSelfoldOfFiles: TCEToolButton[2] - Left = 300 + Left = 297 Hint = 'select a folder containing several d sources (optional trick)' Top = 0 Caption = 'button5' @@ -90,7 +90,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget scaledSeparator = False end object btnSelFile: TCEToolButton[3] - Left = 272 + Left = 269 Hint = 'selected the static library file' Top = 0 Caption = 'button6' @@ -99,7 +99,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget scaledSeparator = False end object btnEditAlias: TCEToolButton[4] - Left = 244 + Left = 241 Hint = 'set the entry alias' Top = 0 Caption = 'button7' @@ -111,7 +111,7 @@ inherited CELibManEditorWidget: TCELibManEditorWidget Left = 225 Height = 28 Top = 0 - Width = 19 + Width = 16 Caption = 'button8' Style = tbsDivider scaledSeparator = False diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas index dcf968e1..b1ecba4c 100644 --- a/src/ce_synmemo.pas +++ b/src/ce_synmemo.pas @@ -1915,10 +1915,10 @@ begin if token^.data = 'module' then fModuleTokFound := true else + // "module" is always the first KW stop := true; - exit; - end; - if fModuleTokFound and (token^.kind = ltkSymbol) and (token^.data = ';') then + end + else if fModuleTokFound and (token^.kind = ltkSymbol) and (token^.data = ';') then begin stop := true; fModuleTokFound := false;