--- Merging r13747 into '.':

U    packages/fcl-base/src/custapp.pp

# revisions: 13747
------------------------------------------------------------------------
r13747 | joost | 2009-09-20 14:42:25 +0200 (Sun, 20 Sep 2009) | 4 lines
Changed paths:
   M /trunk/packages/fcl-base/src/custapp.pp

 * Added the global variable CustomApplication. If this variable is set
   when a Application-object is initialized, other units can access this
   Application-object without knowing its exact type or unit it is 
   defined in.
------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@14667 -

packages/fcl-base/src/custapp.pp

@@ -80,6 +80,8 @@ Type
     Property StopOnException : Boolean Read FStopOnException Write FStopOnException;
   end;
 
+var CustomApplication : TCustomApplication = nil;
+
 Implementation
 
 {$ifdef darwin}