diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-10 12:51:52 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-01-10 13:00:34 +0200 |
| commit | 912541f487ef8356352a452c005097623df0cf00 (patch) | |
| tree | 7fe3cc823dff41fae870dcdc3320d3f061b3d09e | |
| parent | 20a8b28526e297e5190b842527b755432381241a (diff) | |
| download | fpGUI-912541f487ef8356352a452c005097623df0cf00.tar.xz | |
DoWaitWindowMessage() defined as virtual abstract in fpg_base
* All fpGUI backends must override it as supply an implementation.
* Moved DowaitWindowMessage() implementations to the protected
section in the GDI and X11 backends.
| -rw-r--r-- | src/corelib/fpg_base.pas | 1 | ||||
| -rw-r--r-- | src/corelib/gdi/fpg_gdi.pas | 2 | ||||
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 2 |
3 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/fpg_base.pas b/src/corelib/fpg_base.pas index 2c18cb87..214744e9 100644 --- a/src/corelib/fpg_base.pas +++ b/src/corelib/fpg_base.pas @@ -517,6 +517,7 @@ type FIsInitialized: Boolean; FModalFormStack: TList; function DoGetFontFaceList: TStringList; virtual; abstract; + procedure DoWaitWindowMessage(atimeoutms: integer); virtual; abstract; function MessagesPending: boolean; virtual; abstract; function GetHelpViewer: TfpgString; virtual; public diff --git a/src/corelib/gdi/fpg_gdi.pas b/src/corelib/gdi/fpg_gdi.pas index 9c89cd53..6d1ff0c7 100644 --- a/src/corelib/gdi/fpg_gdi.pas +++ b/src/corelib/gdi/fpg_gdi.pas @@ -231,11 +231,11 @@ type ActivationHook: HHOOK; function GetHiddenWindow: HWND; function DoGetFontFaceList: TStringList; override; + procedure DoWaitWindowMessage(atimeoutms: integer); override; function MessagesPending: boolean; override; public constructor Create(const AParams: string); override; destructor Destroy; override; - procedure DoWaitWindowMessage(atimeoutms: integer); procedure DoFlush; function GetScreenWidth: TfpgCoord; override; function GetScreenHeight: TfpgCoord; override; diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index afde5ed2..8ae27ec1 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -311,11 +311,11 @@ type InputContext: PXIC; FLastKeySym: TKeySym; // Used for KeyRelease event function DoGetFontFaceList: TStringList; override; + procedure DoWaitWindowMessage(atimeoutms: integer); override; function MessagesPending: boolean; override; public constructor Create(const AParams: string); override; destructor Destroy; override; - procedure DoWaitWindowMessage(atimeoutms: integer); procedure DoFlush; function GetScreenWidth: TfpgCoord; override; function GetScreenHeight: TfpgCoord; override; |