XenOn/kolibrios-fun
1
1
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Wiki Activity

Eolite: fix WaitEventTimeout()

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
programs/cmm/eolite/Eolite.c
View File

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

6
programs/cmm/lib/debug.h
View File

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

7
programs/cmm/lib/kolibri.h
View File

@ -73,6 +73,13 @@ char program_path[4096];
inline fastcall dword calc(EAX) { return EAX; } 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 { :struct raw_image {
dword w, h, data; dword w, h, data;
}; };

11
programs/cmm/misc/build.bat
View File

@ -1,13 +1,18 @@
@echo off @echo off
del *.kex echo #define LANG_ENG 1 >lang.h--
For /R %%i In (*.c) Do c-- "%%i" For /R %%i In (*.c) Do c-- "%%i"
rename *.com *.kex
mkdir bin 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 warning.txt
del lang.h--
pause pause