From a868189f8962bd7c67cab28ebea94a3d45f38aef Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 6 Dec 2005 11:31:15 +0000
Subject: [PATCH] improved smartlinking: unit interfacebase

git-svn-id: trunk@8255 -
---
 lcl/dialogs.pp       | 1 +
 lcl/interfacebase.pp | 8 ++------
 2 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/lcl/dialogs.pp b/lcl/dialogs.pp
index 200c586e4d..d865f94db3 100644
--- a/lcl/dialogs.pp
+++ b/lcl/dialogs.pp
@@ -469,6 +469,7 @@ initialization
   InterfaceBase.PromptDialogFunction:=@ShowPromptDialog;
 
 finalization
+  InterfaceBase.InputDialogFunction:=nil;
 
 end.
 
diff --git a/lcl/interfacebase.pp b/lcl/interfacebase.pp
index fbdfee7195..23da855b42 100644
--- a/lcl/interfacebase.pp
+++ b/lcl/interfacebase.pp
@@ -86,7 +86,7 @@ type
   TInputDialogFunction = Function (const InputCaption, InputPrompt : String;
                              MaskInput : Boolean; var Value : String) : Boolean;
 var
-  InputDialogFunction: TInputDialogFunction=nil;
+  InputDialogFunction: TInputDialogFunction = nil;
 
 type
   TPromptDialogFunction = Function(const DialogCaption, DialogMessage : String;
@@ -95,7 +95,7 @@ type
     UseDefaultPos: boolean;
     X, Y : Longint) : Longint;
 var
-  PromptDialogFunction: TPromptDialogFunction;
+  PromptDialogFunction: TPromptDialogFunction = nil;
 
 var
   WidgetSet: TWidgetSet=nil;
@@ -110,8 +110,4 @@ const
 {$I intfbasewinapi.inc}
 {$I intfbaselcl.inc}
 
-
-finalization
-  InputDialogFunction:=nil;
-
 end.