Eolite: fix WaitEventTimeout()

git-svn-id: svn://kolibrios.org@7913 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Kirill Lipatov (Leency) 2020-05-11 14:11:23 +00:00
parent b1fc336bff
commit 7cdee9c3db
4 changed files with 22 additions and 4 deletions

View File

@ -214,7 +214,7 @@ void main()
strcpy(#inactive_path, #path);
llist_copy(#files_inactive, #files);
SetEventMask(EVM_REDRAW+EVM_KEY+EVM_BUTTON+EVM_MOUSE+EVM_MOUSE_FILTER);
loop() switch(WaitEventTimeout(50))
loop() switch(@WaitEventTimeout(80))
{
case evMouse:
if (del_active) || (Form.status_window>2) break;

View File

@ -42,6 +42,12 @@ inline fastcall void debugln( EDX)
debugch(10);
}
inline fastcall void debugcls()
{
char i;
for (i=0;i<70;i++) debugch(10);
}
:void debugval(dword text,number)
{
char tmpch[12];

View File

@ -73,6 +73,13 @@ char program_path[4096];
inline fastcall dword calc(EAX) { return EAX; }
inline fastcall swap(EAX, EBX)
{
$push ESDWORD[EAX]
ESDWORD[EAX] = ESDWORD[EBX];
$pop ESDWORD[EBX];
}
:struct raw_image {
dword w, h, data;
};

View File

@ -1,13 +1,18 @@
@echo off
del *.kex
echo #define LANG_ENG 1 >lang.h--
For /R %%i In (*.c) Do c-- "%%i"
rename *.com *.kex
mkdir bin
move *.kex bin\
del bin\*.* /Q
move *.com bin
cd bin
forfiles /S /M *.com /C "cmd /c rename @file @fname"
cd ..
del warning.txt
del lang.h--
pause