From 9c042a34988be5038df8ffc09bd2c360b6fdfb70 Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:48:13 +0000
Subject: [PATCH] MG: implemented TMethodList and Application Idle handlers

git-svn-id: trunk@1292 -
---
 lcl/include/application.inc | 110 +++++++++++++++++++++++++++++++++++-
 1 file changed, 107 insertions(+), 3 deletions(-)

diff --git a/lcl/include/application.inc b/lcl/include/application.inc
index f2982fee2b..0e460bd031 100644
--- a/lcl/include/application.inc
+++ b/lcl/include/application.inc
@@ -51,9 +51,11 @@ end;
 destructor TApplication.Destroy;
 begin
   ApplicationActionComponent:=nil;
-  FIcon.Free;
-  FIcon:=nil;
+  FreeThenNil(FIcon);
   FList.Free;
+  FreeThenNil(FOnIdleHandler);
+  FreeThenNil(FOnIdleEndHandler);
+  FreeThenNil(FOnUserInputHandler);
   inherited Destroy;
   LCLProc.SendApplicationMessageFunction:=nil;
 end;
@@ -224,9 +226,15 @@ begin
   
   Done := True;
   if Assigned(FOnIdle) then FOnIdle(Self, Done);
-  if Done then
+  NotifyIdleHandler;
+  if Done then begin
     // wait till something happens
+    Include(FState,AppWaiting);
+    Exclude(FState,AppIdleEndSent);
     InterfaceObject.WaitMessage;
+    DoOnIdleEnd;
+    Exclude(FState,AppWaiting);
+  end;
 end;
 
 {------------------------------------------------------------------------------
@@ -242,6 +250,32 @@ begin
   FIcon.Assign(AValue);
 end;
 
+{------------------------------------------------------------------------------
+  procedure TApplication.NotifyIdleHandler;
+
+ ------------------------------------------------------------------------------}
+procedure TApplication.NotifyIdleHandler;
+var
+  i: integer;
+begin
+  if FOnIdleHandler=nil then exit;
+  for i:=0 to FOnIdleHandler.Count-1 do
+    TNotifyEvent(FOnIdleHandler[i])(Self);
+end;
+
+{------------------------------------------------------------------------------
+  procedure TApplication.NotifyIdleEndHandler;
+
+ ------------------------------------------------------------------------------}
+procedure TApplication.NotifyIdleEndHandler;
+var
+  i: integer;
+begin
+  if FOnIdleEndHandler=nil then exit;
+  for i:=0 to FOnIdleEndHandler.Count-1 do
+    TNotifyEvent(FOnIdleEndHandler[i])(Self);
+end;
+
 {------------------------------------------------------------------------------
   Method: TApplication.IconChanged
  ------------------------------------------------------------------------------}
@@ -314,6 +348,11 @@ begin
   Idle;
 end;
 
+function TApplication.IsWaiting: boolean;
+begin
+  Result:=AppWaiting in FState;
+end;
+
 {------------------------------------------------------------------------------}
 {       TApplication Run                                                       }
 {       MainForm is loaded and control is passed to event processor.           }
@@ -338,6 +377,14 @@ procedure TApplication.wndproc(var Message : TLMessage);
 begin
 end;
 
+procedure TApplication.DoOnIdleEnd;
+begin
+  if (AppIdleEndSent in FState) then exit;
+  if Assigned(OnIdleEnd) then OnIdleEnd(Self);
+  NotifyIdleEndHandler;
+  Include(FState,AppIdleEndSent);
+end;
+
 {------------------------------------------------------------------------------}
 {       TApplication ShowException                                             }
 {------------------------------------------------------------------------------}
@@ -360,6 +407,60 @@ begin
   InterfaceObject.AppTerminate;
 end;
 
+{------------------------------------------------------------------------------
+  procedure TApplication.NotifyUserInputHandler;
+
+ ------------------------------------------------------------------------------}
+procedure TApplication.NotifyUserInputHandler;
+var
+  i: integer;
+begin
+  if FOnUserInputHandler=nil then exit;
+  for i:=0 to FOnUserInputHandler.Count-1 do
+    TNotifyEvent(FOnUserInputHandler[i])(Self);
+end;
+
+procedure TApplication.AddOnIdleHandler(AnOnIdleHandler: TNotifyEvent);
+begin
+  if FOnIdleHandler=nil then
+    FOnIdleHandler:=TMethodList.Create;
+  FOnIdleHandler.Add(TMethod(AnOnIdleHandler));
+end;
+
+procedure TApplication.RemoveOnIdleHandler(AnOnIdleHandler: TNotifyEvent);
+begin
+  if FOnIdleHandler<>nil then
+    FOnIdleHandler.Remove(TMethod(AnOnIdleHandler));
+end;
+
+procedure TApplication.AddOnIdleEndHandler(AnOnIdleEndHandler: TNotifyEvent);
+begin
+  if FOnIdleEndHandler=nil then
+    FOnIdleEndHandler:=TMethodList.Create;
+  FOnIdleEndHandler.Add(TMethod(AnOnIdleEndHandler));
+end;
+
+procedure TApplication.RemoveOnIdleEndHandler(AnOnIdleEndHandler: TNotifyEvent);
+begin
+  if FOnIdleEndHandler<>nil then
+    FOnIdleEndHandler.Remove(TMethod(AnOnIdleEndHandler));
+end;
+
+procedure TApplication.AddOnUserInputHandler(
+  AnOnUserInputHandler: TNotifyEvent);
+begin
+  if FOnUserInputHandler=nil then
+    FOnUserInputHandler:=TMethodList.Create;
+  FOnUserInputHandler.Add(TMethod(AnOnUserInputHandler));
+end;
+
+procedure TApplication.RemoveOnUserInputHandler(
+  AnOnUserInputHandler: TNotifyEvent);
+begin
+  if FOnUserInputHandler<>nil then
+    FOnUserInputHandler.Remove(TMethod(AnOnUserInputHandler));
+end;
+
 {------------------------------------------------------------------------------}
 {       TApplication CreateForm                                                }
 {       Create a Form instance and sets the pointer to the internal form       }
@@ -398,6 +499,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.31  2002/11/02 22:25:36  lazarus
+  MG: implemented TMethodList and Application Idle handlers
+
   Revision 1.30  2002/10/26 15:15:48  lazarus
   MG: broke LCL<->interface circles