* Finally I seem to have solved the mystery of the ComboBox that refuses to close. And what a silly bug it was.

* Applied a minor fix to CalenderCombo so it behaves like the normal ComboBox.

2 files changed, 0 insertions, 17 deletions

diff --git a/src/corelib/gfx_popupwindow.pas b/src/corelib/gfx_popupwindow.pas
index def8e47c..33921bc9 100644
--- a/src/corelib/gfx_popupwindow.pas
+++ b/src/corelib/gfx_popupwindow.pas
@@ -280,7 +280,6 @@ var
   pt: TPoint;
 begin
   PopupListAdd(self);
-  DontCloseWidget := nil;
   // translate coordinates
   pt    := WindowToScreen(AWidget, Point(x, y));
   // reposition
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas
index b693b3ce..adc1df8f 100644
--- a/src/corelib/x11/gfx_x11.pas
+++ b/src/corelib/x11/gfx_x11.pas
@@ -923,21 +923,6 @@ begin
           if not Assigned(w) then
             ReportLostWindow(ev);
 
-{          else
-          begin
-            if ev._type = X.ButtonPress then
-            begin
-              writeln('***** CaptureMouse for ', w.ClassName, ' - ', w.Name);
-              w.CaptureMouse;
-            end
-            else
-            begin
-              writeln('***** ReleaseMouse for ', w.ClassName, ' - ', w.Name);
-              w.ReleaseMouse;
-            end;
-          end;
-}
-
           { This closes popup windows when you click the mouse elsewhere }
           if ev._type = X.ButtonPress then
           begin
@@ -951,7 +936,6 @@ begin
                  (not PopupDontCloseWidget(TfpgWidget(ew))) then
               begin
                 ClosePopups;
-//                fpgPostMessage(nil, ew, FPGM_POPUPCLOSE);
               end;
             end;
           end;