diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-25 14:00:35 +0000 |
commit | a8a43f41c2a12ff4bb13a33b730edacd59fd21d5 (patch) | |
tree | 854997db2b923a055db0368347ea88fe883b1f39 /src/corelib/x11/gfx_x11.pas | |
parent | fca7347de9404de1f2940d58dae9bdda6ed52caf (diff) | |
download | fpGUI-a8a43f41c2a12ff4bb13a33b730edacd59fd21d5.tar.xz |
* Implemented and added a new unit that will handle command line parameters.
* Implemented and added a new CheckBox widget. (needs testing under Windows).
* Made some timer changes for Windows (needs testing).
* Moved the global variable for the MainForm into the TfpgApplication class. I can almost remove the gui_form requirement from GFX.
Diffstat (limited to 'src/corelib/x11/gfx_x11.pas')
-rw-r--r-- | src/corelib/x11/gfx_x11.pas | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/corelib/x11/gfx_x11.pas b/src/corelib/x11/gfx_x11.pas index 1935ff57..35564db6 100644 --- a/src/corelib/x11/gfx_x11.pas +++ b/src/corelib/x11/gfx_x11.pas @@ -621,10 +621,9 @@ begin repeat if (atimeoutms >= 0) and (XPending(display) <= 0) then begin - // waiting some event for the given timeout - - // this Select handles only the first 256 file descriptors - // poll would be better but FPC has no official poll interface (if I'm right) + // Some event is waiting for the given timeout. + // This Select handles only the first 256 file descriptors. + // Poll would be better but FPC has no official poll interface (if I'm right) fpFD_ZERO(rfds); fpFD_SET(xfd, rfds); r := fpSelect(xfd + 1, @rfds, nil, nil, atimeoutms); |