Subversion Repositories Kolibri OS

Rev

Rev 5230 | Rev 6196 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5230 Rev 6174
Line 65... Line 65...
65 
inline fastcall dword WaitEvent(){
 65 
inline fastcall dword WaitEvent(){
66 
 EAX = 10;
 66 
 EAX = 10;
67 
 $int 0x40
 67 
 $int 0x40
68 
}
 68 
}
Line 69... Line -...
69 
 
 - 
 
70 
 
 69 
 
71 
inline fastcall word GetKey()  //+Gluk fix
 70 
inline fastcall int GetKeyScancode()
72 
{
 - 
 
73 
		$push edx
 - 
 
74 
GETKEY:
 71 
{
75 
		$mov  eax,2
 72 
	$mov  eax,2
76 
		$int  0x40
 73 
	$int  0x40
77 
		$cmp eax,1
 - 
 
78 
		$jne GETKEYI
 - 
 
79 
		$mov ah,dh
 - 
 
80 
		$jmp GETKEYII //jz?
 - 
 
81 
GETKEYI:
 - 
 
82 
		$mov dh,ah
 - 
 
83 
		$jmp GETKEY
 - 
 
84 
GETKEYII:
 74 
	$shr  eax,16
85 
		$pop edx
 - 
 
86 
		$shr eax,8
 75 
	return AL;
Line 87... Line 76...
87 
}
 76 
}
88 
 
 77 
 
89 
inline fastcall word GetButtonID(){
 78 
word GetButtonID(){
90 
 EAX = 17;
 79 
 EAX = 17;
91 
 $int  0x40
 80 
 $int  0x40
Line 166... Line 155...
166 
	EAX = 51;
 155 
	EAX = 51;
167 
	EBX = 1;
 156 
	EBX = 1;
168 
	$int 0x40
 157 
	$int 0x40
169 
}
 158 
}
Line 170... Line 159...
170 
 
 159 
 
171 
inline fastcall dword GetSkinWidth()
 160 
dword GetSkinHeight()
172 
{
 161 
{
173 
	$push ebx
 162 
	$push ebx
174 
	$mov  eax, 48
 163 
	$mov  eax, 48
175 
	$mov  ebx, 4
 164 
	$mov  ebx, 4