diff options
| author | Camil Staps | 2015-07-08 11:28:30 +0200 |
|---|---|---|
| committer | Camil Staps | 2015-07-08 12:24:04 +0200 |
| commit | b417a6431e89ea4f57d48c1ca169c5cc3cc7a4cd (patch) | |
| tree | 0cff25c1d87721ed43fe1ebcb3de599fde75a914 /windowevent.icl | |
| parent | gitignore swp files (diff) | |
Debugging; word sizes (Int -> pointer); fix CleanStrings
Diffstat (limited to 'windowevent.icl')
| -rw-r--r-- | windowevent.icl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/windowevent.icl b/windowevent.icl index 72f0a30..da02c10 100644 --- a/windowevent.icl +++ b/windowevent.icl @@ -25,8 +25,10 @@ windoweventFatalError function error For the time being no timer controls are added, so these events are ignored.
windowEvent assumes that it is not applied to an empty IOSt.
*/
+import StdMisc
windowEvent :: !SchedulerEvent !(PSt .l) -> (!Bool,!Maybe DeviceEvent,!SchedulerEvent,!PSt .l)
windowEvent schedulerEvent pState
+ //| True = abort "windowevent\n"
# (hasDevice,pState) = accPIO (ioStHasDevice WindowDevice) pState
| not hasDevice // This condition should never occur: WindowDevice must have been 'installed'
= windoweventFatalError "windowFunctions.dEvent" "could not retrieve WindowSystemState from IOSt"
|