Subversion Repositories Kolibri OS

Rev

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

Rev 5363 Rev 5851
Line 3... Line 3...
3 
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
 3 
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
4 
;; Distributed under terms of the GNU General Public License    ;;
 4 
;; Distributed under terms of the GNU General Public License    ;;
5 
;;                                                              ;;
 5 
;;                                                              ;;
6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 6 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Line 7... Line 7...
7 
 
 7 
 
Line 8... Line 8...
8 
$Revision: 5363 $
 8 
$Revision: 5851 $
9 
 
 9 
 
10 
 
 10 
 
Line 37... Line 37...
37 
align 4
 37 
align 4
38 
mouse_delay             dd 10
 38 
mouse_delay             dd 10
39 
mouse_speed_factor:
 39 
mouse_speed_factor:
40 
                        dd 3
 40 
                        dd 3
41 
mouse_timer_ticks       dd 0
 41 
mouse_timer_ticks       dd 0
- 
 
 42 
mouse_doubleclick_delay db 64
42 
endg
 43 
endg
Line 43... Line 44...
43 
 
 44 
 
Line 44... Line 45...
44 
;-----------------------------------------------------------------------------
 45 
;-----------------------------------------------------------------------------
Line 529... Line 530...
529 
        dec     ax
 530 
        dec     ax
530 
 .set_y:
 531 
 .set_y:
531 
        mov     [MOUSE_Y], ax
 532 
        mov     [MOUSE_Y], ax
532 
;--------------------------------------
 533 
;--------------------------------------
533 
        mov     eax, [VScroll]
 534 
        mov     eax, [VScroll]
- 
 
 535 
        test    eax, eax
- 
 
 536 
        jz      @f
534 
        add     [MOUSE_SCROLL_V], ax
 537 
        add     [MOUSE_SCROLL_V], ax
- 
 
 538 
        bts     word [BTN_DOWN], 15
535 
 
 539 
@@:
536 
        mov     eax, [HScroll]
 540 
        mov     eax, [HScroll]
- 
 
 541 
        test    eax, eax
- 
 
 542 
        jz      @f
537 
        add     [MOUSE_SCROLL_H], ax
 543 
        add     [MOUSE_SCROLL_H], ax
- 
 
 544 
        bts     dword [BTN_DOWN], 23
538 
 
 545 
@@:
539 
        mov     [mouse_active], 1
 546 
        mov     [mouse_active], 1
540 
        mov     eax, [timer_ticks]
 547 
        mov     eax, [timer_ticks]
541 
        mov     [mouse_timer_ticks], eax
 548 
        mov     [mouse_timer_ticks], eax
542 
        call    wakeup_osloop
 549 
        call    wakeup_osloop
543 
        ret
 550 
        ret