forked from KolibriOS/kolibrios
@rb 0.62: fix memory usage, RMB using
git-svn-id: svn://kolibrios.org@3281 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
51563dce61
commit
a487d52031
8
programs/cmm/rb/compile_en.bat
Normal file
8
programs/cmm/rb/compile_en.bat
Normal file
@ -0,0 +1,8 @@
|
||||
@del lang.h--
|
||||
@echo #define LANG_ENG 1 >lang.h--
|
||||
..\C--\C-- rb.c
|
||||
@del @rb
|
||||
@del warning.txt
|
||||
@del lang.h--
|
||||
@rename rb.com @rb
|
||||
@pause
|
@ -1,9 +0,0 @@
|
||||
del lang.h--
|
||||
echo #define LANG_ENG 1 >lang.h--
|
||||
..\C--\C-- rb.c
|
||||
del @rb
|
||||
del warning.txt
|
||||
del lang.h--
|
||||
rename rb.com @rb
|
||||
..\C--\kpack @rb
|
||||
pause
|
8
programs/cmm/rb/compile_ru.bat
Normal file
8
programs/cmm/rb/compile_ru.bat
Normal file
@ -0,0 +1,8 @@
|
||||
@del lang.h--
|
||||
@echo #define LANG_RUS 1 >lang.h--
|
||||
..\C--\C-- rb.c
|
||||
@del @rb
|
||||
@del warning.txt
|
||||
@del lang.h--
|
||||
@rename rb.com @rb
|
||||
@pause
|
@ -1,9 +0,0 @@
|
||||
del lang.h--
|
||||
echo #define LANG_RUS 1 >lang.h--
|
||||
..\C--\C-- rb.c
|
||||
del @rb
|
||||
del warning.txt
|
||||
del lang.h--
|
||||
rename rb.com @rb
|
||||
..\C--\kpack @rb
|
||||
pause
|
@ -1,5 +1,6 @@
|
||||
//@RB - v0.6
|
||||
//@RB - v0.62
|
||||
|
||||
#define MEMSIZE 0x3E80
|
||||
#include "..\lib\kolibri.h"
|
||||
#include "..\lib\strings.h"
|
||||
#include "..\lib\figures.h"
|
||||
@ -39,7 +40,7 @@ dword stak[100];
|
||||
void main()
|
||||
{
|
||||
mouse mm;
|
||||
byte thread_id;
|
||||
byte can_show;
|
||||
SetEventMask(100000b);
|
||||
|
||||
loop() switch(WaitEvent())
|
||||
@ -47,10 +48,13 @@ void main()
|
||||
case evMouse:
|
||||
mm.get();
|
||||
|
||||
if (GetPointOwner(mm.x, mm.y)==1) && (mm.pkm)
|
||||
if (GetPointOwner(mm.x, mm.y)<>1) can_show = 0;
|
||||
if (mm.pkm) can_show = 1;
|
||||
if (!mm.pkm) && (can_show)
|
||||
{
|
||||
SwitchToAnotherThread();
|
||||
CreateThread(#window,#stak);
|
||||
can_show = 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user