Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 3279 → Rev 3357

/programs/develop/tinypad/trunk/data/tp-udata.inc
69,12 → 69,7
chr dd ?
shi dd ?
 
win_key_flag db ?
 
align 4
active_process dd ?
 
align 4
cl_3d_normal dd ?
cl_3d_pushed dd ?
cl_3d_outset dd ?
/programs/develop/tinypad/trunk/tinypad.asm
64,12 → 64,6
;-----------------------------------------------------------------------------
section @CODE ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
;-----------------------------------------------------------------------------
 
mcall 9,p_info2,-1
mov ecx,[ebx+30] ; PID
mcall 18,21
mov [active_process],eax ; WINDOW SLOT
 
cld
mov edi,@UDATA
mov ecx,@PARAMS-@UDATA
220,8 → 214,6
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 ?
281,19 → 273,6
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
/programs/develop/tinypad/trunk/tp-key.asm
24,24 → 24,12
jne still.skip_write
shr eax,8
;--------------------------------------
cmp al,91 ; RWin DOWN
je .set_win_key_flag
cmp al,92 ; LWin DOWN
jne @f
.set_win_key_flag:
mov [win_key_flag],1
jmp still.skip_write
@@:
cmp al,219 ; RWin UP
je .cut_win_key_flag
cmp al,220 ; LWin UP
jne @f
.cut_win_key_flag:
mov [win_key_flag],0
jmp still.skip_write
@@:
cmp [win_key_flag],1
je still.skip_write
; this code for Win-keys, works with
; kernel SVN r.3356 or later
test [shi],0x200 ; LWin
jnz still.skip_write
test [shi],0x400 ; RWin
jnz still.skip_write
;--------------------------------------
cmp al,224
jne @f