From 8b622c33bcd6a9ba62c04bc19718a267008ebb8b Mon Sep 17 00:00:00 2001
From: lazarus <lazarus@lazarus-ide.org>
Date: Sat, 9 Feb 2002 01:47:08 +0000
Subject: [PATCH] MG: propedits text improvements from Andrew, uncapturing,
 improved comobobox

git-svn-id: trunk@861 -
---
 lcl/interfaces/gtk/gtkproc.inc | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index dd0a5197a8..e57455c71e 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -559,6 +559,20 @@ begin
 end;
 
 
+{------------------------------------------------------------------------------
+  procedure Uncapturehandle;
+
+  Frees the CaptureHandle
+ ------------------------------------------------------------------------------}
+procedure Uncapturehandle;
+begin
+  if MCaptureHandle <> 0 then begin
+    //gdk_pointer_ungrab(0);
+    gtk_grab_remove(pgtkwidget(MCaptureHandle));
+    MCaptureHandle:=0;
+  end;
+end;
+
 {------------------------------------------------------------------------------
   Procedure: StoreCommonDialogSetup
   Params:    ADialog: TCommonDialog
@@ -978,6 +992,7 @@ begin
   CurMouseCaptureHandle:=gtk_grab_get_current;
   if OldMouseCaptureHandle<>CurMouseCaptureHandle then begin
     // mouse capture widget has changed
+    Uncapturehandle;
     MCaptureHandle:=integer(CurMouseCaptureHandle); // ToDo: 64bit faulty
     NotifyCurCaptureControl;
   end;
@@ -2615,6 +2630,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.77  2002/08/27 18:45:14  lazarus
+  MG: propedits text improvements from Andrew, uncapturing, improved comobobox
+
   Revision 1.76  2002/08/27 06:40:51  lazarus
   MG: ShortCut support for buttons from Andrew