Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 5098 → Rev 7048

/programs/develop/libraries/proc_lib/trunk/opendial.mac
95,7 → 95,7
.init:
pusha
mov ebp,dword [esp+36]
mcall 9,od_procinfo,-1
mcall SF_THREAD_INFO,od_procinfo,-1
mov ebx,[ebx+30]
mov edi,od_com_area_name
add edi,7
116,7 → 116,7
jnz @r
cld
mcall 68,22,od_com_area_name,8192,0x09
mcall SF_SYS_MISC,SSF_MEM_OPEN,od_com_area_name,8192,0x09
mov od_com_area,eax
mov esi,od_openfile_pach
139,7 → 139,7
mov [eax],word 2 ; folder for open
 
pusha
mcall 9,od_procinfo,-1
mcall SF_THREAD_INFO,od_procinfo,-1
 
mov eax,[ebx+42] ;main window x size
shr eax,1
216,7 → 216,7
mov [ebx+8],eax
mov eax,od_start_path
mov [ebx+21],eax
mcall 70
mcall SF_FILE
 
shr eax,31
test eax,eax
229,9 → 229,9
; is not cleared without call of func 0.
; In this case is suitable only func 5 and 11,
; or 68.1 and 11 for better response.
mcall 68,1
mcall 5,10 ; because OS uses a new scheduler for kernel(SVN r.3534)
mcall 11
mcall SF_SYS_MISC,SSF_SWITCH_TASK
mcall SF_SLEEP,10 ; because OS uses a new scheduler for kernel(SVN r.3534)
mcall SF_CHECK_EVENT
cmp eax,1
je .draw
cmp eax,2
240,10 → 240,10
je .button
jmp .no_draw
.key:
mcall 2
mcall SF_GET_KEY
jmp .no_draw
.button:
mcall 17
mcall SF_GET_BUTTON
jmp .no_draw
;----------------------------------------------
.draw:
256,7 → 256,7
jz @f
 
mov ecx,eax ; WINDOW SLOT
mcall 18,7
mcall SF_SYSTEM,SSF_GET_ACTIVE_WINDOW
cmp eax,ecx ; compare ACTIVE and WINDOW SLOT
jne @f
 
264,7 → 264,7
mov ecx,[eax+12]
test ecx,ecx
jz @f
mcall 18,3
mcall SF_SYSTEM,SSF_FOCUS_WINDOW
@@:
popa
;----------------------------------------------
315,14 → 315,14
call .prepare_PID
jz @f
mov ecx,eax ; WINDOW SLOT
mcall 18,3
mcall SF_SYSTEM,SSF_FOCUS_WINDOW
@@:
OpenDialog_exit
;----------------------------------------------
.prepare_PID:
mcall 9,od_procinfo,-1
mcall SF_THREAD_INFO,od_procinfo,-1
mov ecx,[ebx+30] ; PID
mcall 18,21
mcall SF_SYSTEM,SSF_GET_THREAD_SLOT
test eax,eax
ret
;----------------------------------------------
341,6 → 341,13
mov [edi+4096],dword 0
ret
@@:
cmp ecx,4091 ;max filter len = 8192-4100-1
jle @f
;todo ... error message: corrypt filter
mov edi,od_com_area
mov [edi+4096],dword 0
ret
@@:
inc ecx
cld
rep movsb
/programs/develop/libraries/proc_lib/trunk/proc_lib.asm
12,6 → 12,7
section '.flat' code readable align 16
include '../../../../macros.inc'
;include '../../../../proc32.inc'
include '../../../../KOSfuncs.inc'
include 'opendial.mac'
include 'colrdial.mac'
;include 'debug.inc'