Subversion Repositories Kolibri OS

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