Fix for r.2637

git-svn-id: svn://kolibrios.org@3265 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79) 2013-02-24 01:24:48 +00:00
parent 6b57089391
commit 5973aeaf8b
4 changed files with 43 additions and 0 deletions

View File

@ -0,0 +1,5 @@
@echo lang fix en >lang.inc
@fasm -m 16384 tinypad.asm tinypad
@erase lang.inc
@kpack tinypad
@pause

View File

@ -0,0 +1,14 @@
#!/bin/bash
# This script does for linux the same as build.bat for DOS,
# it compiles the KoOS kernel, hopefully ;-)
echo "lang fix en"
echo "lang fix en" > lang.inc
fasm -m 16384 kfm.asm kfm
kpack kfm
rm -f lang.inc
exit 0

View File

@ -71,6 +71,9 @@ shi dd ?
win_key_flag db ?
align 4
active_process dd ?
align 4
cl_3d_normal dd ?
cl_3d_pushed dd ?

View File

@ -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