forked from KolibriOS/kolibrios
422 lines
7.9 KiB
NASM
422 lines
7.9 KiB
NASM
|
func check_mouse_in_edit_area
|
||
|
|
mcall 37,1
|
||
|
|
mov ebx,eax
|
||
|
|
and ebx,0x0000FFFF
|
||
|
|
shr eax,16
|
||
|
|
mov ecx,[top_ofs]
|
||
|
|
inc ecx
|
||
|
|
pushd [left_ofs] ATOPH [p_info.client_box.width] ATOPH
|
||
|
|
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
|
|
sub [__rc+0x8],SCRLW+6
|
||
|
|
imul ecx,[lines.scr],LINEH
|
||
|
|
dec ecx
|
||
|
|
add [__rc+0xC],ecx
|
||
|
|
mov ecx,__rc
|
||
|
|
call pt_in_rect
|
||
|
|
ret
|
||
|
|
endf
|
||
|
|
|
||
|
|
func get_mouse_event
|
||
|
|
mcall 37,2
|
||
|
|
and al,3
|
||
|
|
mov bl,[ecx]
|
||
|
|
cmp [ecx],al
|
||
|
|
mov [ecx],al
|
||
|
|
jne @f
|
||
|
|
mov eax,MEV_MOVE
|
||
|
|
ret
|
||
|
|
@@: mov bh,al
|
||
|
|
and ebx,0x0101
|
||
|
|
cmp bl,bh
|
||
|
|
je .rb
|
||
|
|
test al,1
|
||
|
|
jz @f
|
||
|
|
mov eax,MEV_LDOWN
|
||
|
|
ret
|
||
|
|
@@: mov eax,MEV_LUP
|
||
|
|
ret
|
||
|
|
.rb: test al,2
|
||
|
|
jz @f
|
||
|
|
mov eax,MEV_RDOWN
|
||
|
|
ret
|
||
|
|
@@: mov eax,MEV_RUP
|
||
|
|
ret
|
||
|
|
endf
|
||
|
|
|
||
|
|
mouse_ev dd mouse.l_down,mouse.l_up,mouse.r_down,mouse.r_up,mouse.move
|
||
|
|
|
||
|
|
mouse:
|
||
|
|
mov ecx,mst
|
||
|
|
call get_mouse_event
|
||
|
|
cmp [bot_mode],0
|
||
|
|
je @f
|
||
|
|
mov ah,al
|
||
|
|
mov al,4
|
||
|
|
call [bot_dlg_handler]
|
||
|
|
jmp still
|
||
|
|
@@: cmp al,MEV_MOVE
|
||
|
|
jne .no_move
|
||
|
|
cmp [popup_active],1
|
||
|
|
je @f
|
||
|
|
.no_move:
|
||
|
|
mov [s_status],0
|
||
|
|
|
||
|
|
push eax
|
||
|
|
mcall 9,p_info,-1
|
||
|
|
cmp ax,[p_info.window_stack_position]
|
||
|
|
pop eax
|
||
|
|
jne still.skip_write
|
||
|
|
@@:
|
||
|
|
cmp [just_from_popup],0
|
||
|
|
je @f
|
||
|
|
cmp al,MEV_LUP
|
||
|
|
jne still.skip_write
|
||
|
|
@@: mov [mev],al
|
||
|
|
jmp [mouse_ev+eax*4-4]
|
||
|
|
|
||
|
|
.move:
|
||
|
|
mcall 37,1
|
||
|
|
movsx ebx,ax
|
||
|
|
sar eax,16
|
||
|
|
cmp [body_capt],0
|
||
|
|
jge .check_body.2
|
||
|
|
cmp [vscrl_capt],0
|
||
|
|
jge .check_vscroll.2
|
||
|
|
cmp [hscrl_capt],0
|
||
|
|
jge .check_hscroll.2
|
||
|
|
|
||
|
|
cmp [do_not_draw],0
|
||
|
|
jne still.skip_write
|
||
|
|
mov eax,[mi_cur]
|
||
|
|
call get_active_menu_item
|
||
|
|
cmp eax,[mi_cur]
|
||
|
|
je still.skip_write
|
||
|
|
push [mi_cur]
|
||
|
|
cmp [popup_active],0
|
||
|
|
je @f
|
||
|
|
mov [mi_cur],eax
|
||
|
|
@@: call draw_main_menu
|
||
|
|
pop [mi_cur]
|
||
|
|
cmp [popup_active],0
|
||
|
|
je still.skip_write
|
||
|
|
; mcall 18,2,[h_popup]
|
||
|
|
mov ecx,[mi_cur]
|
||
|
|
or ecx,ecx
|
||
|
|
js still.skip_write
|
||
|
|
mov eax,[main_menu.popups+ecx*4-4]
|
||
|
|
mov edx,main_menu
|
||
|
|
call dword[main_menu.onshow+ecx*4-4]
|
||
|
|
call setup_main_menu_popup
|
||
|
|
mcall 60,2,[h_popup],POPUP_STACK,4
|
||
|
|
; mcall 51,1,popup_thread_start,POPUP_STACK
|
||
|
|
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
|
||
|
|
.r_down:
|
||
|
|
@@: cmp [popup_active],0
|
||
|
|
je @f
|
||
|
|
mcall 5,1
|
||
|
|
jmp @b
|
||
|
|
@@: cmp [mouse_captured],0
|
||
|
|
jne still.skip_write
|
||
|
|
call check_mouse_in_edit_area
|
||
|
|
jnc still.skip_write
|
||
|
|
mcall 37,0
|
||
|
|
mov [popup_edit+POPUP.pos],eax
|
||
|
|
@@: mcall 37,2
|
||
|
|
cmp eax,ebx
|
||
|
|
jnz @f
|
||
|
|
mcall 5,1
|
||
|
|
jmp @b
|
||
|
|
@@: and [mst],0xFD
|
||
|
|
call onshow.edit
|
||
|
|
mov dword[POPUP_STACK],popup_edit
|
||
|
|
mcall 51,1,popup_thread_start,POPUP_STACK
|
||
|
|
mov [h_popup],eax
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
.r_up:
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
.l_down:
|
||
|
|
call check_mouse_in_edit_area
|
||
|
|
jnc .check_vscroll
|
||
|
|
mov [mouse_captured],1
|
||
|
|
mov [body_capt],1
|
||
|
|
|
||
|
|
call clear_selection
|
||
|
|
|
||
|
|
.check_body.2:
|
||
|
|
sub eax,[left_ofs]
|
||
|
|
sub ebx,[top_ofs]
|
||
|
|
dec ebx
|
||
|
|
; sub ebx,[__rc+0x4]
|
||
|
|
push eax
|
||
|
|
mov eax,ebx
|
||
|
|
cdq;xor edx,edx
|
||
|
|
mov ecx,LINEH
|
||
|
|
idiv ecx
|
||
|
|
@@: add eax,[top_line]
|
||
|
|
mov ebx,eax
|
||
|
|
pop eax
|
||
|
|
cdq;xor edx,edx
|
||
|
|
mov ecx,6
|
||
|
|
idiv ecx
|
||
|
|
@@: add eax,[left_col]
|
||
|
|
|
||
|
|
cmp eax,[columns]
|
||
|
|
jl @f
|
||
|
|
mov eax,[columns]
|
||
|
|
@@: cmp ebx,[lines]
|
||
|
|
jl @f
|
||
|
|
mov ebx,[lines]
|
||
|
|
dec ebx
|
||
|
|
@@:
|
||
|
|
cmp [pos.x],eax
|
||
|
|
jne .change_cur_pos
|
||
|
|
cmp [pos.y],ebx
|
||
|
|
je still.skip_write
|
||
|
|
|
||
|
|
.change_cur_pos:
|
||
|
|
mov [pos.x],eax
|
||
|
|
mov eax,[pos.y]
|
||
|
|
mov [pos.y],ebx
|
||
|
|
call check_cur_vis_inv
|
||
|
|
jc .check_ldown
|
||
|
|
; cmp eax,ebx
|
||
|
|
; je @f
|
||
|
|
; push ebx
|
||
|
|
; mov ebx,eax
|
||
|
|
; call drawfile.ex
|
||
|
|
; pop eax
|
||
|
|
; @@: mov ebx,eax
|
||
|
|
call draw_file.ex
|
||
|
|
.check_ldown:
|
||
|
|
jmp still
|
||
|
|
|
||
|
|
.check_vscroll:
|
||
|
|
mov ecx,[p_info.client_box.width]
|
||
|
|
sub ecx,SCRLW-2
|
||
|
|
pushd ecx [top_ofs] ecx [bot_ofs]
|
||
|
|
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
|
|
add [__rc+0x8],SCRLW-1;!!!!!!!!!!!!!!-2
|
||
|
|
add [__rc+0x4],SCRLW;!!!!!!!!!!!!!!+1
|
||
|
|
sub [__rc+0xC],SCRLW*2+3
|
||
|
|
mov ecx,__rc
|
||
|
|
call pt_in_rect
|
||
|
|
jnc .check_hscroll
|
||
|
|
|
||
|
|
.check_vscroll.2:
|
||
|
|
sub ebx,[top_ofs]
|
||
|
|
sub ebx,SCRLW;!!!!!!!!!!!!!!+1
|
||
|
|
; sub ebx,[__rc+0x4]
|
||
|
|
cmp [vscrl_capt],0
|
||
|
|
jge .vcaptured
|
||
|
|
mov eax,[vscrl_top]
|
||
|
|
cmp ebx,eax
|
||
|
|
jb .center_vcapture
|
||
|
|
add eax,[vscrl_size]
|
||
|
|
cmp ebx,eax
|
||
|
|
jae .center_vcapture
|
||
|
|
mov eax,ebx
|
||
|
|
sub eax,[vscrl_top]
|
||
|
|
dec eax
|
||
|
|
mov [vscrl_capt],eax
|
||
|
|
dec ebx
|
||
|
|
jmp .vcaptured
|
||
|
|
.center_vcapture:
|
||
|
|
mov eax,[vscrl_size]
|
||
|
|
shr eax,1
|
||
|
|
mov [vscrl_capt],eax
|
||
|
|
.vcaptured:
|
||
|
|
sub ebx,[vscrl_capt]
|
||
|
|
jns @f
|
||
|
|
xor ebx,ebx
|
||
|
|
@@: mov [mouse_captured],1
|
||
|
|
mov eax,[bot_ofs]
|
||
|
|
sub eax,[top_ofs]
|
||
|
|
sub eax,[vscrl_size]
|
||
|
|
sub eax,SCRLW*3-2
|
||
|
|
cmp eax,ebx
|
||
|
|
jge @f
|
||
|
|
mov ebx,eax
|
||
|
|
@@:
|
||
|
|
mov [vscrl_top],ebx
|
||
|
|
mov eax,[lines]
|
||
|
|
sub eax,[lines.scr]
|
||
|
|
imul ebx
|
||
|
|
mov ebx,[bot_ofs]
|
||
|
|
sub ebx,[top_ofs]
|
||
|
|
sub ebx,SCRLW*3-2 ;**
|
||
|
|
sub ebx,[vscrl_size]
|
||
|
|
idiv ebx
|
||
|
|
cmp eax,[top_line]
|
||
|
|
je still.skip_write
|
||
|
|
mov [top_line],eax
|
||
|
|
call check_bottom_right
|
||
|
|
call draw_file
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
.check_hscroll:
|
||
|
|
pushd (5+SCRLW+1) [bot_ofs] [p_info.box.width] [bot_ofs]
|
||
|
|
popd [__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]
|
||
|
|
add [__rc+0x8],-SCRLW*2-10-1
|
||
|
|
add [__rc+0x4],-SCRLW
|
||
|
|
add [__rc+0xC],-2
|
||
|
|
mov ecx,__rc
|
||
|
|
call pt_in_rect
|
||
|
|
jnc .check_main_menu
|
||
|
|
|
||
|
|
.check_hscroll.2:
|
||
|
|
mov ebx,eax
|
||
|
|
sub ebx,(5+SCRLW+1)
|
||
|
|
; sub ebx,[__rc+0x0]
|
||
|
|
cmp [hscrl_capt],0
|
||
|
|
jge .hcaptured
|
||
|
|
mov eax,[hscrl_top]
|
||
|
|
cmp ebx,eax
|
||
|
|
jl .center_hcapture
|
||
|
|
add eax,[hscrl_size]
|
||
|
|
cmp ebx,eax
|
||
|
|
jge .center_hcapture
|
||
|
|
mov eax,ebx
|
||
|
|
sub eax,[hscrl_top]
|
||
|
|
dec eax
|
||
|
|
mov [hscrl_capt],eax
|
||
|
|
dec ebx
|
||
|
|
jmp .hcaptured
|
||
|
|
.center_hcapture:
|
||
|
|
mov eax,[hscrl_size]
|
||
|
|
shr eax,1
|
||
|
|
mov [hscrl_capt],eax
|
||
|
|
.hcaptured:
|
||
|
|
sub ebx,[hscrl_capt]
|
||
|
|
jns @f
|
||
|
|
xor ebx,ebx
|
||
|
|
@@: mov [mouse_captured],1
|
||
|
|
mov eax,[p_info.box.width]
|
||
|
|
sub eax,[hscrl_size]
|
||
|
|
sub eax,SCRLW*3+10+1
|
||
|
|
cmp eax,ebx
|
||
|
|
jge @f
|
||
|
|
mov ebx,eax
|
||
|
|
@@:
|
||
|
|
mov [hscrl_top],ebx
|
||
|
|
mov eax,[columns]
|
||
|
|
sub eax,[columns.scr]
|
||
|
|
imul ebx
|
||
|
|
mov ebx,[p_info.box.width]
|
||
|
|
sub ebx,SCRLW*3+10+1 ;**
|
||
|
|
sub ebx,[hscrl_size]
|
||
|
|
idiv ebx
|
||
|
|
cmp eax,[left_col]
|
||
|
|
je still.skip_write
|
||
|
|
mov [left_col],eax
|
||
|
|
call check_bottom_right
|
||
|
|
call draw_file
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
.check_main_menu:
|
||
|
|
cmp [do_not_draw],0
|
||
|
|
jne .capture_off
|
||
|
|
|
||
|
|
@@: mcall 37,2
|
||
|
|
test eax,0x01
|
||
|
|
jz @f
|
||
|
|
mcall 5,1
|
||
|
|
jmp @b
|
||
|
|
@@: and [mst],0xFE
|
||
|
|
|
||
|
|
cmp [mi_cur],0
|
||
|
|
jle .capture_off
|
||
|
|
mov ecx,[mi_cur]
|
||
|
|
mov eax,[main_menu.popups+ecx*4-4]
|
||
|
|
mov edx,main_menu
|
||
|
|
call dword[main_menu.onshow+ecx*4-4]
|
||
|
|
call setup_main_menu_popup
|
||
|
|
mcall 51,1,popup_thread_start,POPUP_STACK
|
||
|
|
mov [h_popup],eax
|
||
|
|
|
||
|
|
.l_up:
|
||
|
|
.capture_off:
|
||
|
|
or eax,-1
|
||
|
|
mov [vscrl_capt],eax
|
||
|
|
mov [hscrl_capt],eax
|
||
|
|
mov [body_capt],eax
|
||
|
|
mov [mouse_captured],0
|
||
|
|
mov [just_from_popup],0
|
||
|
|
jmp still.skip_write
|
||
|
|
|
||
|
|
|
||
|
|
func setup_main_menu_popup
|
||
|
|
mov ebx,[p_info.box.left]
|
||
|
|
add ebx,[p_info.client_box.left]
|
||
|
|
@@: dec ecx
|
||
|
|
jz @f
|
||
|
|
add edx,8+1
|
||
|
|
movzx esi,byte[edx-1]
|
||
|
|
add edx,esi
|
||
|
|
jmp @b
|
||
|
|
@@: movzx ecx,word[edx+2]
|
||
|
|
add ebx,ecx
|
||
|
|
|
||
|
|
mov [eax+POPUP.x],bx
|
||
|
|
mov ebx,[p_info.box.top]
|
||
|
|
add ebx,[p_info.client_box.top]
|
||
|
|
add ebx,ATOPH-1
|
||
|
|
mov [eax+POPUP.y],bx
|
||
|
|
mov [POPUP_STACK],eax
|
||
|
|
ret
|
||
|
|
endf
|
||
|
|
|
||
|
|
onshow:
|
||
|
|
|
||
|
|
.file:
|
||
|
|
or byte[popup_file+3],0x01
|
||
|
|
cmp [f_info.length],0
|
||
|
|
jne @f
|
||
|
|
and byte[popup_file+3],0xFE
|
||
|
|
@@: ret
|
||
|
|
|
||
|
|
.edit:
|
||
|
|
or byte[popup_edit+2],0x01
|
||
|
|
cmp [copy_size],0
|
||
|
|
jne @f
|
||
|
|
and byte[popup_edit+2],0xFE
|
||
|
|
@@: or dword[popup_edit+0],0x01000101
|
||
|
|
cmp [sel.selected],0
|
||
|
|
jne @f
|
||
|
|
and dword[popup_edit+0],0xFEFFFEFE
|
||
|
|
@@: ret
|
||
|
|
|
||
|
|
.search:
|
||
|
|
mov byte[popup_search+0],0
|
||
|
|
;mov byte[popup_search+4],0
|
||
|
|
ret
|
||
|
|
.run:
|
||
|
|
ret
|
||
|
|
.options:
|
||
|
|
mov word[popup_options+0],0
|
||
|
|
mov byte[popup_options+5],0
|
||
|
|
or byte[popup_options+2],0x02
|
||
|
|
test [options],OPTS_SECURESEL
|
||
|
|
jnz @f
|
||
|
|
and byte[popup_options+2],0xFD
|
||
|
|
@@: or byte[popup_options+3],0x02
|
||
|
|
test [options],OPTS_AUTOBRACES
|
||
|
|
jnz @f
|
||
|
|
and byte[popup_options+3],0xFD
|
||
|
|
@@: or byte[popup_options+4],0x02
|
||
|
|
test [options],OPTS_AUTOINDENT
|
||
|
|
jnz @f
|
||
|
|
and byte[popup_options+4],0xFD
|
||
|
|
@@: or byte[popup_options+6],0x02
|
||
|
|
test [options],OPTS_OPTIMSAVE
|
||
|
|
jnz @f
|
||
|
|
and byte[popup_options+6],0xFD
|
||
|
|
@@: or byte[popup_options+8],0x02
|
||
|
|
test [options],OPTS_LINENUMS
|
||
|
|
jnz @f
|
||
|
|
and byte[popup_options+8],0xFD
|
||
|
|
@@: ret
|