Fix for r.2637

git-svn-id: svn://kolibrios.org@3265 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/develop/tinypad/trunk/tinypad.asm

@@ -65,6 +65,11 @@ INI_SEC_PREFIX equ ''
 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 @@ still:
 	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 @@ draw_window_for_OD:
 	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