Subversion Repositories Kolibri OS

Rev

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

Rev 6263 Rev 6272
Line 69... Line 69...
69 
format binary as "mnt"
 69 
format binary as "mnt"
Line 70... Line 70...
70 
 
 70 
 
71 
include 'macros.inc'
 71 
include 'macros.inc'
Line 72... Line 72...
72 
include 'struct.inc'
 72 
include 'struct.inc'
Line 73... Line 73...
73 
 
 73 
 
74 
$Revision: 6263 $
 74 
$Revision: 6272 $
Line 1627... Line 1627...
1627 
        shl     eax, 16
 1627 
        shl     eax, 16
1628 
        add     eax, [ecx-twdw+WDATA.box.top]
 1628 
        add     eax, [ecx-twdw+WDATA.box.top]
1629 
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
 1629 
        add     eax, [edi+SLOT_BASE+APPDATA.wnd_clientbox.top]
1630 
        add     ebx, eax
 1630 
        add     ebx, eax
1631 
        mov     ecx, [esp+64+32-12+4]
 1631 
        mov     ecx, [esp+64+32-12+4]
1632 
        and     ecx, not 0x80000000     ; force counted string
 - 
 
1633 
        mov     eax, [esp+64+8]         ; background color (if given)
 1632 
        mov     eax, [esp+64+8]         ; background color (if given)
1634 
        mov     edi, [esp+64+4]
 1633 
        mov     edi, [esp+64+4]
- 
 
 1634 
        and     ecx, 5FFFFFFFh
- 
 
 1635 
        bt      ecx, 27
- 
 
 1636 
        jnc     @f
- 
 
 1637 
        mov     edi, eax
- 
 
 1638 
@@:
1635 
        jmp     dtext
 1639 
        jmp     dtext
1636 
;-----------------------------------------------------------------------------
 1640 
;-----------------------------------------------------------------------------
1637 
iglobal
 1641 
iglobal
1638 
midi_base dw 0
 1642 
midi_base dw 0
1639 
endg
 1643 
endg