forked from KolibriOS/kolibrios
Console library: support for scroll mice.
git-svn-id: svn://kolibrios.org@5618 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
d8d75b5cf6
commit
c872d57dde
@ -1842,7 +1842,7 @@ con.thread_exit:
|
|||||||
con.key:
|
con.key:
|
||||||
mov al, 2
|
mov al, 2
|
||||||
int 0x40
|
int 0x40
|
||||||
and eax, 0xffff ; supress scancodes
|
and eax, 0xffff ; supress scancodes
|
||||||
; ah = scancode
|
; ah = scancode
|
||||||
cmp ah, 0xE0
|
cmp ah, 0xE0
|
||||||
jnz @f
|
jnz @f
|
||||||
@ -2038,6 +2038,27 @@ con.getch:
|
|||||||
mov [con.bGetchRequested], 1
|
mov [con.bGetchRequested], 1
|
||||||
jmp con.msg_loop
|
jmp con.msg_loop
|
||||||
con.mouse:
|
con.mouse:
|
||||||
|
push 37
|
||||||
|
pop eax
|
||||||
|
push 7
|
||||||
|
pop ebx
|
||||||
|
int 0x40
|
||||||
|
test eax, eax
|
||||||
|
jz .no_scrollmouse
|
||||||
|
cwde
|
||||||
|
add eax, [con.wnd_ypos]
|
||||||
|
jg @f
|
||||||
|
xor eax, eax
|
||||||
|
@@:
|
||||||
|
mov ebx, [con.scr_height]
|
||||||
|
sub ebx, [con.wnd_height]
|
||||||
|
cmp eax, ebx
|
||||||
|
jb @f
|
||||||
|
mov eax, ebx
|
||||||
|
@@:
|
||||||
|
mov [con.wnd_ypos], eax
|
||||||
|
jmp con.redraw_image
|
||||||
|
.no_scrollmouse:
|
||||||
xor eax, eax
|
xor eax, eax
|
||||||
xchg eax, dword [con.bUpPressed]
|
xchg eax, dword [con.bUpPressed]
|
||||||
mov dword [con.bUpPressed_saved], eax
|
mov dword [con.bUpPressed_saved], eax
|
||||||
|
Loading…
Reference in New Issue
Block a user