diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 20:57:52 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-24 20:57:52 +0000 |
commit | 05e93fa995cd6b0543001e4d70be59538dfcdbc7 (patch) | |
tree | 0a5d2e74f99e04ad7d8c279f208bccd2b69192f4 /src/corelib/x11/gfx_x11.pas | |
parent | 38831e0bb35c193376aace81430507e07883c61c (diff) | |
download | fpGUI-05e93fa995cd6b0543001e4d70be59538dfcdbc7.tar.xz |
Replaced some code that got undone in the previous revision regarding modal forms.
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 53b8c12c..d5a09843 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -691,11 +691,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; @@ -758,11 +758,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; @@ -780,11 +780,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; |