Eolite: fix WaitEventTimeout()
git-svn-id: svn://kolibrios.org@7913 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
b1fc336bff
commit
7cdee9c3db
@ -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;
|
||||
|
@ -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];
|
||||
|
@ -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;
|
||||
};
|
||||
|
@ -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
|
Loading…
Reference in New Issue
Block a user