Subversion Repositories Kolibri OS

;; Copyright (C) KolibriOS team 2010-2015. All rights reserved. ;;

;; Copyright (C) KolibriOS team 2010-2015. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;                                                              ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision: 5363 $

$Revision: 5851 $

;==============================================================================

;================================

;///// public functions ///////////////////////////////////////////////////////

;/////// public functions ///////

;==============================================================================

;================================

mouse.WINDOW_RESIZE_SE_FLAG = \

mouse.WINDOW_RESIZE_SE_FLAG = \

  mouse.WINDOW_RESIZE_S_FLAG or \

  mouse.WINDOW_RESIZE_S_FLAG or \

  mouse.WINDOW_RESIZE_E_FLAG

  mouse.WINDOW_RESIZE_E_FLAG

;------------------------------------------------------------------------------

; Check if mouse buttons state or cursor position has changed

        push    eax ebx

        mov     al, [BTN_DOWN]

        mov     al, [BTN_DOWN]

        mov     bl, [mouse.state.buttons]

        mov     bl, [mouse.state.buttons]

        and     al, mouse.BUTTONS_MASK

        and     al, mouse.BUTTONS_MASK

        mov     cl, al

        mov     cl, al

        jnz     .check_buttons_released

        jnz     .check_buttons_released

        ; yes it is, activate window user is pointing at, if needed

        ; yes it is, activate window user is pointing at, if needed

        ; NOTE: this code wouldn't be necessary if we knew window did

; NOTE: this code wouldn't be necessary if we knew

        ;       already redraw itself after call above

; that window did already redraw itself after call above

        or      eax, eax

        or      eax, eax

        jnz     .exit

        jnz     .exit

  .call_middle_button_handler:

  .call_middle_button_handler:

        test    eax, mouse.MIDDLE_BUTTON_FLAG

        test    eax, mouse.MIDDLE_BUTTON_FLAG

        jnz     mouse._.middle_button_press_handler

        jnz     mouse._.middle_button_press_handler

        jmp     mouse._.middle_button_release_handler

        jmp     mouse._.middle_button_release_handler

;==============================================================================

;===============================

uglobal

uglobal

  mouse.state:

  mouse.state:

    .pos     POINT

    .pos     POINT

  ; NOTE: since there's no unique and lifetime-constant button identifiers,

; NOTE: since there's no unique and lifetime-constant button identifiers,

  ;       we're using two dwords to identify each of them:

; we are using two dwords to identify each of them:

  ;       * pbid - process slot (high 8 bits) and button id (low 24 bits) pack

;   * pbid - process slot (high 8 bits) and button id (low 24 bits) pack

  ;       * coord - left (high 16 bits) and top (low 16 bits) coordinates pack

;   * coord - left (high 16 bits) and top (low 16 bits) coordinates pack

    .last_ticks dd ?

    .last_ticks dd ?

    .action     db ?

    .action     db ?

endg

endg

;------------------------------------------------------------------------------

@@:

        test    [mouse.state.buttons], not mouse.LEFT_BUTTON_FLAG

        test    [mouse.state.buttons], not mouse.LEFT_BUTTON_FLAG

        jnz     .exit

        jnz     .exit

        xchg    eax, edx

        xchg    eax, edx

        test    dl, mouse.WINDOW_MOVE_FLAG

        test    dl, mouse.WINDOW_MOVE_FLAG

        cmp     eax, 50

        bt      dword [BTN_DOWN], 24

        jg      @f

        jnc     @f

        test    dl, mouse.WINDOW_RESIZE_E_FLAG

        test    dl, mouse.WINDOW_RESIZE_E_FLAG

        jz      .call_window_handler

        jz      .call_window_handler

        call    .calculate_e_delta

        call    .calculate_e_delta

  .call_window_handler:

  .exit:

  .exit:

        ret

        ret

        sub     eax, [mouse.state.pos.x]

        sub     eax, [mouse.state.pos.x]

        mov     [mouse.active_sys_window.delta.x], eax

        mov     [mouse.active_sys_window.delta.x], eax

        ret

        ret

;------------------------------------------------------------------------------

        bts     dword [BTN_DOWN], 16

        xor     esi, esi

        xor     esi, esi

        xchg    esi, [mouse.active_sys_window.pslot]

        xchg    esi, [mouse.active_sys_window.pslot]

        or      esi, esi

        or      esi, esi

  .exit:

  .exit:

        and     [mouse.active_sys_window.action], 0

        and     [mouse.active_sys_window.action], 0

;? Called when right mouse button has been pressed down

mouse._.right_button_press_handler:

        jnz     .exit

        test    [mouse.state.buttons], not mouse.RIGHT_BUTTON_FLAG

        jnz     @f

        call    mouse._.find_sys_window_under_cursor

        call    mouse._.find_sys_window_under_cursor

;------------------------------------------------------------------------------

mouse._.right_button_release_handler:

mouse._.middle_button_press_handler: ;/////////////////////////////////////////

        ret

;------------------------------------------------------------------------------

        bts     word [BTN_DOWN], 10

mouse._.middle_button_release_handler: ;///////////////////////////////////////

        ret

align 4

        ret

;------------------------------------------------------------------------------

;------------------------------------------------------------------------------

align 4

;? Called when cursor has been moved

;-----------------------------------------------------------------

;------------------------------------------------------------------------------

mouse._.move_handler:

;> eax = old x coord

; Called when cursor has been moved

  .exit:

  .exit:

        ret

        ret

;? mouse cursor within its bounds

; Find system window object which is currently visible on screen

;------------------------------------------------------------------------------

; and has mouse cursor within its bounds

;< edi = pointer to WDATA struct

;< esi = process slot

;------------------------------------------------------------------------------

;< edi = pointer to WDATA struct

        mov     esi, [mouse.state.pos.y]

        mov     esi, [mouse.state.pos.y]

        mov     esi, [d_width_calc_area + esi*4]

        mov     esi, [d_width_calc_area + esi*4]

        shl     edi, 5

        shl     edi, 5

        add     edi, window_data

        add     edi, window_data

        ret

        ret

;------------------------------------------------------------------------------

mouse._.activate_sys_window_under_cursor:

        ; activate and redraw window under cursor (if necessary)

; activate and redraw window under cursor (if necessary)

        call    mouse._.find_sys_window_under_cursor

        call    mouse._.find_sys_window_under_cursor

        movzx   esi, word[WIN_STACK + esi * 2]

        movzx   esi, word[WIN_STACK + esi * 2]

        lea     esi, [WIN_POS + esi * 2]

        lea     esi, [WIN_POS + esi * 2]

        jmp     waredraw

        jmp     waredraw

;? mouse cursor within its bounds

; Find system button object which is currently visible on screen

;------------------------------------------------------------------------------

; and has mouse cursor within its bounds

;< ebx = pack[16(button x coord), 16(button y coord)]

;< eax = pack[8(process slot), 24(button id)] or 0

;------------------------------------------------------------------------------

;< ebx = pack[16(button x coord), 16(button y coord)]

        push    ecx edx esi edi

        push    ecx edx esi edi

  .exit:

  .exit:

        pop     edi esi edx ecx

        pop     edi esi edx ecx

        ret

        ret

;------------------------------------------------------------------------------

mouse._.check_sys_window_actions:

;------------------------------------------------------------------------------

;< eax = action flags or 0

        ; is window movable?

        ; is window movable?

        test    byte[edi + WDATA.cl_titlebar + 3], 0x01

        test    byte[edi + WDATA.cl_titlebar + 3], 0x01

        jnz     .no_action

        jnz     .no_action

        jl      .move_action

        jl      .move_action

        ; no there isn't, can it be resized then?

        ; no there isn't, can it be resized then?

        mov     dl, [edi + WDATA.fl_wstyle]

        mov     dl, [edi + WDATA.fl_wstyle]

        ; NOTE: dangerous optimization, revise if window types changed;

; NOTE: dangerous optimization, revise if window types changed

        ;       this currently implies only types 2 and 3 could be resized

; this currently implies only types 2 and 3 could be resized

        test    dl, 2

        test    dl, 2

        jz      .no_action

        jz      .no_action