From 166941caab1f4ff98b130759f1d25ce746bdff82 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 14 Sep 2010 13:21:12 +0200 Subject: X11: No need to reference xapplication because this method is inside TfpgX11Application already --- src/corelib/x11/fpg_x11.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/corelib/x11') diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index 1065a45e..7a600753 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -1511,7 +1511,7 @@ begin begin // This is ugly!!!!!!!!!!!!!!! ew := TfpgX11Window(WidgetParentForm(TfpgWidget(w))); - if (ew <> nil) and (xapplication.TopModalForm <> ew) and (waUnblockableMessages in ew.WindowAttributes = False) then + if (ew <> nil) and (TopModalForm <> ew) and (waUnblockableMessages in ew.WindowAttributes = False) then blockmsg := true; end; -- cgit v1.2.3-70-g09d2