Subversion Repositories Kolibri OS

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

align 4

draw_running_applications:

        pusha

        cmp     [run_appl],dword 0

        je      .exit

        call    calculate_applications

        cmp     edi,[running_applications]

        jne     .noret

        popa

        ret

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

align 4

.noret:

        call    draw_window

        mov     [running_applications],edi

        call    redraw_window_tabs

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

align 4

.exit:

        popa

        ret

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

align 4

need_window_tab:

; in: ebx->process info

; out: ZF set <=> do not draw

        cmp     byte [ebx + process_information.process_name], '@'

        jz      .nodraw

; do not draw undefined (zero-sized) windows

        cmp     dword [ebx + process_information.box.width], 0

        jnz     @f

        cmp     dword [ebx + process_information.box.height], 0

        jz      .nodraw

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

align 4

@@:

; do not draw OpenDialog windows

        push    edi

        mov     edi, dword [ebx + process_information.process_name]

        or      edi, 0x20202020

        cmp     edi, 'open'

        jne     @f

        mov     edi, dword [ebx + process_information.process_name + 4]

        or      edi, 0x20202020

        cmp     edi, 'dial'

        jne     @f

        pop     edi

        jmp     .nodraw

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

align 4

@@:

        pop     edi

        cmp     dword [ebx + process_information.process_name], 'ICON'

        jnz     @f

        cmp     [ebx + process_information.box.width], dword 51

        jnz     @f

        cmp     [ebx + process_information.box.height], dword 51

        jz      .nodraw

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

align 4

@@:

        cmp     dword[ebx + process_information.process_name], '    '

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

align 4

.nodraw:

        ret

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

align 4

calculate_applications:

        mov     eax,[max_applications]

        mul     [page_list]

        test    eax,eax

        je      @f

        inc     eax

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

align 4

@@:

        mov     [draw_start_position],eax

        mov     edi,app_list

        mov     ecx,20 ; show max 20 application ???!!!

        mov     eax,-1

        cld

        rep     stosd

        mov     edi,0

        mov     ecx,2

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

align 4

cnewpr:

        mcall   9,procinfo_window_tabs

        call    need_window_tab

        jz      cnorpl

        sub     [draw_start_position], 1

        jg      cnorpl

        mov     [app_list+edi*4],ecx

        inc     edi

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

align 4

cnorpl:

        inc     ecx

        cmp     eax,ecx

        jge     cnewpr

        mov     [app_tab_count], edi

        ret

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

align 4

redraw_window_tabs:

        xor     edi, edi

        mov     [contrast], 0

        push    ebp

        mcall   18,7

        mov     ebp,eax

        call    calculate_offset_X

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

align 4

.loop:

        mov     ecx,[app_list+edi*4]

        cmp     ecx,-1

        jz      .done

        mov     [active_slot_number],ecx

        mcall   9,procinfo_window_tabs

        imul    ebx, edi, TAB_SIZE

        add     ebx,[offset_X]

        add     ebx,2

        shl     ebx,16

        add     ebx,TAB_SIZE-2  ;54

        push    edi

        mov     edx,[system_colours.work_button]

        xor     edi,edi

        cmp     ebp,[active_slot_number]        ;ecx    ; ecx=active slot number

        jnz     @f

        mov     edx,[wcolor]

        inc     edi

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

align 4

@@:

        mov     esi,[current_alt_tab_app]

        cmp     esi,-1

        jz      @f

        cmp     ecx,[alt_tab_list+esi*8]

        jnz     @f

        mov     edx,[AltTab_color]      ;0xFF8000       ; current select for ALT+Tab

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

align 4

@@:

        call    calculate_button_y_coordinate_and_size

        mov     esi,[wcolor]

        call    draw_appl_button

        pop     edi

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

        add     ebx,4 shl 16

        mov     bx,cx   ;[height]

        shr     bx,1

        sub     bx,4

        shr     ecx,16

        add     bx,cx

        mov     edx, procinfo_window_tabs.process_name

        mcall   4,,[system_colours.work_button_text],, sizeof.process_information.process_name

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

align 4

.nodraw:

        inc     edi

        cmp     edi, [max_applications]

        jb      .loop

        mov     ecx,[app_list+edi*4]

        cmp     ecx,-1

        jz      .done

        xor     eax,eax

        cmp     [page_list],eax

        jne     @f

        inc     eax

        cmp     [page_list_enable],eax

        je      @f

        mov     [page_list_enable],eax

        mov     [redraw_window_flag],eax

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

align 4

@@:

        pop     ebp

        ret

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

align 4

.done:

        xor     eax,eax

        cmp     [page_list],eax

        jne     @f

        cmp     [page_list_enable],eax

        je      @f

        mov     [page_list_enable],eax

        inc     eax

        mov     [redraw_window_flag],eax

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

align 4

@@:

        pop     ebp

        ret

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