forked from KolibriOS/kolibrios
Tinypad - fix r.4487 for replace mode.
git-svn-id: svn://kolibrios.org@4490 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
30559d9cdb
commit
498bfb6f7a
@ -97,6 +97,7 @@ bot_mode db ?
|
|||||||
bot_mode2 db ?
|
bot_mode2 db ?
|
||||||
|
|
||||||
popup_valid_text db ?
|
popup_valid_text db ?
|
||||||
|
replace_mode db ?
|
||||||
|
|
||||||
align 4
|
align 4
|
||||||
|
|
||||||
|
@ -675,7 +675,9 @@ botdlg.button:
|
|||||||
push [cur_editor.SelStart.X]
|
push [cur_editor.SelStart.X]
|
||||||
mov ebp,cur_editor
|
mov ebp,cur_editor
|
||||||
call init_sel_vars
|
call init_sel_vars
|
||||||
|
mov [replace_mode],1
|
||||||
call key.ctrl_v
|
call key.ctrl_v
|
||||||
|
mov [replace_mode],0
|
||||||
pop [cur_editor.SelStart.X]
|
pop [cur_editor.SelStart.X]
|
||||||
|
|
||||||
stdcall mem.Free,[copy_buf]
|
stdcall mem.Free,[copy_buf]
|
||||||
|
@ -584,8 +584,10 @@ endp
|
|||||||
|
|
||||||
;-----------------------------------------------------------------------------
|
;-----------------------------------------------------------------------------
|
||||||
proc key.ctrl_v
|
proc key.ctrl_v
|
||||||
|
cmp [replace_mode],0
|
||||||
|
jne @f
|
||||||
call get_from_clipboard
|
call get_from_clipboard
|
||||||
|
@@:
|
||||||
cmp [copy_size],0
|
cmp [copy_size],0
|
||||||
je .exit
|
je .exit
|
||||||
|
|
||||||
@ -691,6 +693,9 @@ proc key.ctrl_v
|
|||||||
mov [cur_editor.Modified],1
|
mov [cur_editor.Modified],1
|
||||||
|
|
||||||
.exit:
|
.exit:
|
||||||
|
cmp [replace_mode],0
|
||||||
|
jne .exit_1
|
||||||
|
|
||||||
cmp [copy_size],0
|
cmp [copy_size],0
|
||||||
je .exit_1
|
je .exit_1
|
||||||
; remove unnecessary memory area
|
; remove unnecessary memory area
|
||||||
|
Loading…
Reference in New Issue
Block a user