Subversion Repositories Kolibri OS

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

;;                                                              ;;

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

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

;;                                                              ;;

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

$Revision: -1 $

include 'mousepointer.inc'

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

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

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

mouse.LEFT_BUTTON_FLAG   = 0001b

mouse.RIGHT_BUTTON_FLAG  = 0010b

mouse.MIDDLE_BUTTON_FLAG = 0100b

mouse.BUTTONS_MASK = \

  mouse.LEFT_BUTTON_FLAG or \

  mouse.RIGHT_BUTTON_FLAG or \

  mouse.MIDDLE_BUTTON_FLAG

mouse.WINDOW_RESIZE_N_FLAG = 000001b

mouse.WINDOW_RESIZE_W_FLAG = 000010b

mouse.WINDOW_RESIZE_S_FLAG = 000100b

mouse.WINDOW_RESIZE_E_FLAG = 001000b

mouse.WINDOW_MOVE_FLAG     = 010000b

mouse.WINDOW_RESIZE_SW_FLAG = \

  mouse.WINDOW_RESIZE_S_FLAG or \

  mouse.WINDOW_RESIZE_W_FLAG

mouse.WINDOW_RESIZE_SE_FLAG = \

  mouse.WINDOW_RESIZE_S_FLAG or \

  mouse.WINDOW_RESIZE_E_FLAG

align 4

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

mouse_check_events: ;//////////////////////////////////////////////////////////

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

;? Check if mouse buttons state or cursor position has changed and call

;? appropriate handlers

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

        push    eax ebx

        mov     al, [BTN_DOWN]

        mov     bl, [mouse.state.buttons]

        and     al, mouse.BUTTONS_MASK

        mov     cl, al

        xchg    cl, [mouse.state.buttons]

        xor     bl, al

        push    eax ebx

        ; did any mouse button changed its state?

        or      bl, bl

        jz      .check_position

        ; yes it did, is that the first button of all pressed down?

        or      cl, cl

        jnz     .check_buttons_released

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

        call    mouse._.activate_sys_window_under_cursor

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

        ;       already redraw itself after call above

        or      eax, eax

        jz      @f

        and     [mouse.state.buttons], 0

        jmp     .exit

        ; is there any system button under cursor?

    @@: call    mouse._.find_sys_button_under_cursor

        or      eax, eax

        jz      .check_buttons_released

        ; yes there is, activate it and exit

        mov     [mouse.active_sys_button.pbid], eax

        mov     [mouse.active_sys_button.coord], ebx

        mov     cl, [mouse.state.buttons]

        mov     [mouse.active_sys_button.buttons], cl

        call    sys_button_activate_handler

        jmp     .exit

  .check_buttons_released:

        cmp     [mouse.state.buttons], 0

        jnz     .buttons_changed

        ; did we press some button earlier?

        cmp     [mouse.active_sys_button.pbid], 0

        je      .buttons_changed

        ; yes we did, deactivate it

        xor     eax, eax

        xchg    eax, [mouse.active_sys_button.pbid]

        mov     ebx, [mouse.active_sys_button.coord]

        mov     cl, [mouse.active_sys_button.buttons]

        push    eax ebx

        call    sys_button_deactivate_handler

        pop     edx ecx

        ; is the button under cursor the one we deactivated?

        call    mouse._.find_sys_button_under_cursor

        cmp     eax, ecx

        jne     .exit

        cmp     ebx, edx

        jne     .exit

        ; yes it is, perform associated action

        mov     cl, [mouse.active_sys_button.buttons]

        call    sys_button_perform_handler

        jmp     .exit

  .buttons_changed:

        test    byte[esp], mouse.LEFT_BUTTON_FLAG

        jz      @f

        mov     eax, [esp + 4]

        call    .call_left_button_handler

    @@: test    byte[esp], mouse.RIGHT_BUTTON_FLAG

        jz      @f

        mov     eax, [esp + 4]

        call    .call_right_button_handler

    @@: test    byte[esp], mouse.MIDDLE_BUTTON_FLAG

        jz      .check_position

        mov     eax, [esp + 4]

        call    .call_middle_button_handler

  .check_position:

        movzx   eax, word[MOUSE_X]

        movzx   ebx, word[MOUSE_Y]

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

        jne     .position_changed

        cmp     ebx, [mouse.state.pos.y]

        je      .exit

  .position_changed:

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

        xchg    ebx, [mouse.state.pos.y]

        call    mouse._.move_handler

  .exit:

        add     esp, 8

        pop     ebx eax

        ret

  .call_left_button_handler:

        test    eax, mouse.LEFT_BUTTON_FLAG

        jnz     mouse._.left_button_press_handler

        jmp     mouse._.left_button_release_handler

  .call_right_button_handler:

        test    eax, mouse.RIGHT_BUTTON_FLAG

        jnz     mouse._.right_button_press_handler

        jmp     mouse._.right_button_release_handler

  .call_middle_button_handler:

        test    eax, mouse.MIDDLE_BUTTON_FLAG

        jnz     mouse._.middle_button_press_handler

        jmp     mouse._.middle_button_release_handler

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

;///// private functions //////////////////////////////////////////////////////

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

uglobal

  mouse.state:

    .pos     POINT

    .buttons db ?

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

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

  ;       * 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

  align 4

  mouse.active_sys_button:

    .pbid    dd ?

    .coord   dd ?

    .buttons db ?

  align 4

  mouse.active_sys_window:

    .pslot      dd ?

    .old_box    BOX

    .new_box    BOX

    .delta      POINT

    .last_ticks dd ?

    .action     db ?

endg

align 4

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

mouse._.left_button_press_handler: ;///////////////////////////////////////////

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

;? Called when left mouse button has been pressed down

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

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

        jnz     .exit

        call    mouse._.find_sys_window_under_cursor

        call    mouse._.check_sys_window_actions

        mov     [mouse.active_sys_window.action], al

        or      eax, eax

        jz      .exit

        xchg    eax, edx

        test    dl, mouse.WINDOW_MOVE_FLAG

        jz      @f

        mov     eax, [timer_ticks]

        mov     ebx, eax

        xchg    ebx, [mouse.active_sys_window.last_ticks]

        sub     eax, ebx

        cmp     eax, 50

        jg      @f

        mov     [mouse.active_sys_window.last_ticks], 0

        call    sys_window_maximize_handler

        jmp     .exit

    @@: test    [edi + WDATA.fl_wstate], WSTATE_MAXIMIZED

        jnz     .exit

        mov     [mouse.active_sys_window.pslot], esi

        lea     eax, [edi + WDATA.box]

        mov     ebx, mouse.active_sys_window.old_box

        mov     ecx, BOX.sizeof

        call    memmove

        mov     ebx, mouse.active_sys_window.new_box

        call    memmove

        test    edx, mouse.WINDOW_MOVE_FLAG

        jz      @f

        call    .calculate_n_delta

        call    .calculate_w_delta

        jmp     .call_window_handler

    @@: test    dl, mouse.WINDOW_RESIZE_W_FLAG

        jz      @f

        call    .calculate_w_delta

    @@: test    dl, mouse.WINDOW_RESIZE_S_FLAG

        jz      @f

        call    .calculate_s_delta

    @@: test    dl, mouse.WINDOW_RESIZE_E_FLAG

        jz      .call_window_handler

        call    .calculate_e_delta

  .call_window_handler:

        mov     eax, mouse.active_sys_window.old_box

        call    sys_window_start_moving_handler

  .exit:

        ret

  .calculate_n_delta:

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

        sub     eax, [mouse.active_sys_window.old_box.top]

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

        ret

  .calculate_w_delta: