forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

messages rewrite using internal observer system 1

This commit is contained in:
Basile Burg 2014-11-08 01:18:18 +01:00
parent dc2db7676b
commit 7bda6d3e46
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ce_interfaces.pas
View File

@ -138,13 +138,15 @@ type
end;
/// describes the message kind, when Auto implies that a ICELogMessageObserver guess the kind.
TCEAppMessageKind = (amkAuto, amkBub, amkInf, amkWarn, amkErr);
/// describes the message context. Used by a ICELogMessageObserver to filter the messages.
TCEAppMessageCtxt = (amcApp, amcTool, amcProj, amcEdit);
(**
* An implementer get some log messages.
* An implementer gets some log messages.
* AData: either an editor or a project, according to aCtxt.
*)
ICELogMessageObserver = interface
['ICEMessage']
@ -177,7 +179,6 @@ type
procedure subjDocFocused(aSubject: TCEMultiDocSubject; aDoc: TCESynMemo); {$IFDEF RELEASE}inline;{$ENDIF}
procedure subjDocChanged(aSubject: TCEMultiDocSubject; aDoc: TCESynMemo); {$IFDEF RELEASE}inline;{$ENDIF}
(**
* TCEProjectSubject primitives.
*)
@ -197,13 +198,13 @@ type
* TCELogMessageSubject primitives.
*)
procedure subjLmStandard(aSubject: TCELogMessageSubject; const aValue: string;
aData: Pointer; aCtxt: TCEAppMessageCtxt; aKind: TCEAppMessageKind);
aData: Pointer; aCtxt: TCEAppMessageCtxt; aKind: TCEAppMessageKind); {$IFDEF RELEASE}inline;{$ENDIF}
procedure subjLmProcess(aSubject: TCELogMessageSubject; const aValue: TProcess;
aData: Pointer; aCtxt: TCEAppMessageCtxt; aKind: TCEAppMessageKind);
aData: Pointer; aCtxt: TCEAppMessageCtxt; aKind: TCEAppMessageKind); {$IFDEF RELEASE}inline;{$ENDIF}
implementation
{$REGION TCEMultiDocSubject-----------------------------------------------------}
{$REGION TCEMultiDocSubject ----------------------------------------------------}
function TCEMultiDocSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICEMultiDocObserver);
@ -242,7 +243,7 @@ begin
end;
{$ENDREGION}
{$REGION TCEProjectSubject------------------------------------------------------}
{$REGION TCEProjectSubject -----------------------------------------------------}
function TCEProjectSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICEProjectObserver);
@ -281,7 +282,7 @@ begin
end;
{$ENDREGION}
{$REGION TCESessionOptionsSubject-----------------------------------------------}
{$REGION TCESessionOptionsSubject ----------------------------------------------}
function TCESessionOptionsSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICESessionOptionsObserver);
@ -312,21 +313,21 @@ begin
end;
{$ENDREGION}
{$REGION TCEMainMenuSubject}
{$REGION TCEMainMenuSubject ----------------------------------------------------}
function TCEMainMenuSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICEMainMenuProvider);
end;
{$ENDREGION}
{$REGION TCEEditableShortCutSubject}
{$REGION TCEEditableShortCutSubject --------------------------------------------}
function TCEEditableShortCutSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICEEditableShortCut);
end;
{$ENDREGION}
{$REGION TCELogMessageSubject}
{$REGION TCELogMessageSubject --------------------------------------------------}
function TCELogMessageSubject.acceptObserver(aObject: TObject): boolean;
begin
exit(aObject is ICELogMessageObserver);

2
src/ce_messages.pas
View File

@ -329,6 +329,7 @@ begin
amkWarn:addCeWarn(aValue);
amkErr: addCeErr(aValue);
end;
Application.ProcessMessages;
end;
procedure TCEMessagesWidget.lmProcess(const aValue: TProcess; aData: Pointer;
@ -342,6 +343,7 @@ begin
TAsyncProcess(aValue).OnTerminate := @processTerminate;
end else
logProcessOutput(aValue);
Application.ProcessMessages;
end;
procedure TCEMessagesWidget.processOutput(Sender: TObject);