* added a custom user message constant.

* prevent AV when tooltip owner window is released.
* language update

7 files changed, 17 insertions, 20 deletions

diff --git a/languages/fpgui.af.po b/languages/fpgui.af.po
index dd0ef4ed..1a282f93 100644
--- a/languages/fpgui.af.po
+++ b/languages/fpgui.af.po
@@ -1,6 +1,4 @@
-# translation of FPGUI. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.    
-# 
-# 
+# translation of FPGUI. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.      
 msgid ""
 msgstr ""
 "Project-Id-Version: FPGUI\n"
diff --git a/languages/fpgui.es.po b/languages/fpgui.es.po
index ffe23fee..2cd44f4b 100644
--- a/languages/fpgui.es.po
+++ b/languages/fpgui.es.po
@@ -1,6 +1,4 @@
-# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.  
-# 
-# 
+# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.    
 msgid ""
 msgstr ""
 "Project-Id-Version: FPGUI\n"
diff --git a/languages/fpgui.fr.po b/languages/fpgui.fr.po
index 863e4eac..541606f7 100644
--- a/languages/fpgui.fr.po
+++ b/languages/fpgui.fr.po
@@ -1,6 +1,4 @@
-# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.  
-# 
-# 
+# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.    
 msgid ""
 msgstr ""
 "Project-Id-Version: FPGUI\n"
diff --git a/languages/fpgui.it.po b/languages/fpgui.it.po
index 1a3f679e..ad78bc60 100644
--- a/languages/fpgui.it.po
+++ b/languages/fpgui.it.po
@@ -1,6 +1,4 @@
-# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.  
-# 
-# 
+# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.    
 msgid ""
 msgstr ""
 "Project-Id-Version: FPGUI\n"
diff --git a/languages/fpgui.pt.po b/languages/fpgui.pt.po
index 2a2fbc56..6ceacb70 100644
--- a/languages/fpgui.pt.po
+++ b/languages/fpgui.pt.po
@@ -1,6 +1,4 @@
-# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.  
-# 
-# 
+# translation of PACKAGE. Copyright (C) 2008 Free Software Foundation, Inc. <>, 2008.    
 msgid ""
 msgstr ""
 "Project-Id-Version: FPGUI\n"
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas
index 979ac61a..15270468 100644
--- a/src/corelib/fpg_base.pas
+++ b/src/corelib/fpg_base.pas
@@ -81,6 +81,7 @@ const
   FPGM_MOVE        = 16;
   FPGM_POPUPCLOSE  = 17;
   FPGM_HINTTIMER   = 18;
+  FPGM_CUSTOM      = 50000;
   FPGM_KILLME      = High(Integer);
 
   // The special keys, based on the well-known keyboard scan codes
@@ -1145,8 +1146,7 @@ begin
   DoMoveWindow(x, y);
 end;
 
-function TfpgWindowBase.WindowToScreen(ASource: TfpgWindowBase;
-  const AScreenPos: TPoint): TPoint;
+function TfpgWindowBase.WindowToScreen(ASource: TfpgWindowBase; const AScreenPos: TPoint): TPoint;
 begin
   Result := DoWindowToScreen(ASource, AScreenPos);
 end;
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas
index 883c56c7..0bbb35f7 100644
--- a/src/corelib/fpg_main.pas
+++ b/src/corelib/fpg_main.pas
@@ -231,7 +231,7 @@ type
     procedure   InternalMsgHintTimer(var msg: TfpgMessageRec); message FPGM_HINTTIMER;
     procedure   CreateHintWindow;
     procedure   HintTimerFired(Sender: TObject);
-    procedure SetShowHint(const AValue: boolean);
+    procedure   SetShowHint(const AValue: boolean);
   protected
     FDisplayParams: string;
     FScreenWidth: integer;
@@ -1075,8 +1075,15 @@ begin
   w := nil;
 //  writeln('HintTimerFired...');
   w := TfpgWidget(FHintWidget);
-  if Assigned(w) then
-    ActivateHint(w.WindowToScreen(w, FHintPos), w.Hint);
+  try
+    if Assigned(w) then
+      ActivateHint(w.WindowToScreen(w, FHintPos), w.Hint);
+  except
+    // silence it!
+    { TODO : FHintWidget probably went out of scope just as timer fired. Try
+      and detect such cases better! }
+  end;
+
   FHintTimer.Enabled := False;
 end;