index a5de6da8d5ad15f3f407d13b8c4aca4570fdb319..4ea4320db52376e87b653f284d8d7975647c9ea3 100644 (file)
{$IFDEF GO32V2}
go32,
{$ENDIF}
+ {$IFDEF USE_WATT32}
+ Watt32,
+ {$ENDIF}
e_Log, g_options, SysUtils, Math, Classes, ctypes;
const
procedure AllegroTimerCallback; cdecl;
begin
- inc(ticks)
+ inc(ticks);
+ {$IFDEF USE_WATT32}
+ userTimerTick(1);
+ {$ENDIF}
end;
procedure AllegroTimerCallbackEND; begin end;
release_screen;
if useVsync then
vsync;
+
+ {$IFDEF USE_WATT32}
+ tcp_tick(nil);
+ {$ENDIF}
end;
(********** EVENTS **********)
event.key.keysym._mod := 0; (* df not use it? *)
result := 1;
Exit
- end
+ end;
+
+ {$IFDEF USE_WATT32}
+ tcp_tick(nil);
+ {$ENDIF}
end;
(********** MOUSE **********)