Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3264 → Rev 3265

/programs/develop/tinypad/trunk/tinypad.asm
65,6 → 65,11
section @CODE ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;-----------------------------------------------------------------------------
 
mcall 9,p_info,-1
mov ecx,[ebx+30] ; PID
mcall 18,21
mov [active_process],eax ; WINDOW SLOT
 
cld
mov edi,@UDATA
mov ecx,@PARAMS-@UDATA
214,6 → 219,9
cmp [open_dialog],1
je .open_dialog
mcall 10 ; wait here until event
call check_active_process_for_clear_all_flags
 
cmp [main_closed],0
jne key.alt_x
dec eax ; redraw ?
273,6 → 281,19
call draw_statusbar
ret
;-----------------------------------------------------------------------------
check_active_process_for_clear_all_flags:
push eax
mcall 18,7
cmp [active_process],eax
je .exit
xor eax,eax
mov [win_key_flag],al
;--------------------------------------
.exit:
pop eax
ret
;-----------------------------------------------------------------------------
copy_str_2:
cld
push esi ecx