Subversion Repositories Kolibri OS

Rev

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

Rev 7742 Rev 7771
Line 126... Line 126...
126 
		$pop edx
 126 
		$pop edx
127 
	key_editbox = EAX;
 127 
	key_editbox = EAX;
128 
	key_ascii = AH;
 128 
	key_ascii = AH;
129 
	$shr  eax,16
 129 
	$shr  eax,16
130 
	key_scancode = AL;
 130 
	key_scancode = AL;
- 
 
 131 
	key_modifier = GetKeyModifier();
- 
 
 132 
	EAX = key_editbox;
- 
 
 133 
}
- 
 
 134 
 
- 
 
 135 
// ECX is a mode: 1 - scancodes, 0 - ascii
- 
 
 136 
inline fastcall SetKeyboardMode(ECX)
- 
 
 137 
{
- 
 
 138 
	$mov  eax,66
- 
 
 139 
	$mov  ebx,1
- 
 
 140 
	//$mov  ecx,?
- 
 
 141 
	$int 0x40
- 
 
 142 
}
- 
 
 143 
 
131 
	//get alt/shift/ctrl key status
 144 
//get alt/shift/ctrl key status
- 
 
 145 
inline fastcall dword GetKeyModifier()
- 
 
 146 
{
132 
	$mov eax,66
 147 
	$mov eax,66
133 
	$mov ebx,3
 148 
	$mov ebx,3
134 
	$int 0x40
 149 
	$int 0x40
135 
	key_modifier = EAX;
 150 
	key_modifier = EAX;
136 
	EAX = key_editbox;
 - 
 
137 
}
 151 
}
Line 138... Line 152...
138 
 
 152 
 
139 
#endif
 153 
#endif