diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 12:43:00 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 12:43:00 +0000 |
commit | 8cede30bc7849a64720b7d34d7f3d3770489ca93 (patch) | |
tree | b00074bf2f43c5aeaa8ae72ab93253263daacfed /src/corelib/x11/gfx_x11.pas | |
parent | 12dd5b67b43e46618a72dcb7ccf3d3679e27d555 (diff) | |
download | fpGUI-8cede30bc7849a64720b7d34d7f3d3770489ca93.tar.xz |
* Updated gfx_x11 to reflect the changes about modal forms.
* Minor improvements to the TfpgComboBox.
Diffstat (limited to 'src/corelib/x11/gfx_x11.pas')
-rw-r--r-- | src/corelib/x11/gfx_x11.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index 66722790..0a763d63 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -689,11 +689,11 @@ begin msgp.mouse.shiftstate := ConvertShiftState(ev.xbutton.state); w := FindWindowByHandle(ev.xbutton.window); - if fpgTopModalForm <> nil then + if xapplication.TopModalForm <> nil then begin // This is ugly!!!!!!!!!!!!!!! ew := TfpgWindowImpl(WidgetParentForm(TfpgWidget(w))); - if (ew <> nil) and (fpgTopModalForm <> ew) then + if (ew <> nil) and (xapplication.TopModalForm <> ew) then blockmsg := true; end; @@ -756,11 +756,11 @@ begin until not XCheckTypedWindowEvent(display, ev.xbutton.window, X.MotionNotify, @ev); w := FindWindowByHandle(ev.xany.window); - if fpgTopModalForm <> nil then + if xapplication.TopModalForm <> nil then begin // This is ugly!!!!!!!!!!!!!!! ew := TfpgWindowImpl(WidgetParentForm(TfpgWidget(w))); - if (ew <> nil) and (fpgTopModalForm <> ew) then + if (ew <> nil) and (xapplication.TopModalForm <> ew) then blockmsg := true; end; @@ -778,11 +778,11 @@ begin X.ClientMessage: begin w := FindWindowByHandle(ev.xany.window); - if fpgTopModalForm <> nil then + if xapplication.TopModalForm <> nil then begin // This is ugly!!!!!!!!!!!!!!! ew := TfpgWindowImpl(WidgetParentForm(TfpgWidget(w))); - if (ew <> nil) and (fpgTopModalForm <> ew) then + if (ew <> nil) and (xapplication.TopModalForm <> ew) then blockmsg := true; end; |