Subversion Repositories Kolibri OS

func check_mouse_in_edit_area

	mcall	37,1

	mov	ebx,eax

	and	ebx,0x0000FFFF

	shr	eax,16

	mov	ecx,[cur_editor.Bounds.Top] ; ecx,[top_ofs]

	inc	ecx

	pushd	[cur_editor.Bounds.Left] ecx [cur_editor.Bounds.Right] ecx ; [left_ofs] ATOPH [p_info.client_box.width] ATOPH

	popd	[__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]

	sub	[__rc+0x8],SCRLW+6

	mov	ecx,[cur_editor.Gutter.Width]

	add	[__rc+0x0],ecx

	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	[mm.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],mm.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,[cur_editor.Bounds.Left] ; eax,[left_ofs]

	sub	ebx,[cur_editor.Bounds.Top] ; ebx,[top_ofs]

	sub	eax,[cur_editor.Gutter.Width]

	sub	eax,LCHGW

	sub	ebx,2

;       sub     ebx,[__rc+0x4]

	push	eax

	mov	eax,ebx

	cdq;xor     edx,edx

	mov	ecx,LINEH

	idiv	ecx

    @@: add	eax,[cur_editor.TopLeft.Y] ;! eax,[top_line]

	mov	ebx,eax

	pop	eax

	cdq;xor     edx,edx

	mov	ecx,6

	idiv	ecx

    @@: add	eax,[cur_editor.TopLeft.X] ;! eax,[left_col]

	cmp	eax,[cur_editor.Columns.Count] ;! eax,[columns]

	jl	@f

	mov	eax,[cur_editor.Columns.Count] ;! eax,[columns]

    @@: cmp	ebx,[cur_editor.Lines.Count] ;! ebx,[lines]

	jl	@f

	mov	ebx,[cur_editor.Lines.Count] ;! ebx,[lines]

	dec	ebx

    @@:

	cmp	[cur_editor.Caret.X],eax ;! [pos.x],eax

	jne	.change_cur_pos

	cmp	[cur_editor.Caret.Y],ebx ;! [pos.y],ebx

	je	still.skip_write

  .change_cur_pos:

	mov	[cur_editor.Caret.X],eax ;! [pos.x],eax

	mov	eax,[cur_editor.Caret.Y] ;! eax,[pos.y]

	mov	[cur_editor.Caret.Y],ebx ;! [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]

	mov	ecx,[cur_editor.Bounds.Right]

	sub	ecx,SCRLW-1;2

	pushd	ecx [cur_editor.Bounds.Top] ecx [cur_editor.Bounds.Bottom] ;ecx [top_ofs] ecx [bot_ofs]

	popd	[__rc+0xC] [__rc+0x8] [__rc+0x4] [__rc+0x0]

	add	[__rc+0x8],SCRLW-2;!!!!!!!!!!!!!!-2

	add	[__rc+0x4],SCRLW-1;!!!!!!!!!!!!!!+1

	sub	[__rc+0xC],SCRLW*2+1;3

	mov	ecx,__rc

	call	pt_in_rect

	jnc	.check_hscroll

  .check_vscroll.2:

	sub	ebx,[cur_editor.Bounds.Top] ; ebx,[top_ofs]

	sub	ebx,SCRLW;!!!!!!!!!!!!!!+1

;       sub     ebx,[__rc+0x4]

	cmp	[vscrl_capt],0

	jge	.vcaptured

	mov	eax,[cur_editor.VScroll.Top] ;! eax,[vscrl_top]

	cmp	ebx,eax

	jb	.center_vcapture

	add	eax,[cur_editor.VScroll.Size] ;! eax,[vscrl_size]

	cmp	ebx,eax

	jae	.center_vcapture

	mov	eax,ebx

	sub	eax,[cur_editor.VScroll.Top] ;! eax,[vscrl_top]

	dec	eax

	mov	[vscrl_capt],eax

	dec	ebx

	jmp	.vcaptured

  .center_vcapture:

	mov	eax,[cur_editor.VScroll.Size] ;! 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,[cur_editor.Bounds.Bottom] ; eax,[bot_ofs]

	sub	eax,[cur_editor.Bounds.Top] ; eax,[top_ofs]

	sub	eax,[cur_editor.VScroll.Size] ;! eax,[vscrl_size]

	sub	eax,SCRLW*3;-2

	cmp	eax,ebx

	jge	@f

	mov	ebx,eax

    @@:

	mov	[cur_editor.VScroll.Top],ebx ;! [vscrl_top],ebx

	mov	eax,[cur_editor.Lines.Count] ;! eax,[lines]

	sub	eax,[lines.scr]

	imul	ebx

	mov	ebx,[cur_editor.Bounds.Bottom] ; ebx,[bot_ofs]

	sub	ebx,[cur_editor.Bounds.Top] ; ebx,[top_ofs]

	sub	ebx,SCRLW*3;-2         ;**

	sub	ebx,[cur_editor.VScroll.Size] ;! ebx,[vscrl_size]

	idiv	ebx

	cmp	eax,[cur_editor.TopLeft.Y] ;! eax,[top_line]

	je	still.skip_write

	mov	[cur_editor.TopLeft.Y],eax ;! [top_line],eax

	call	check_bottom_right

	call	draw_file

	jmp	still.skip_write

  .check_hscroll:

	pushd	[cur_editor.Bounds.Left] [cur_editor.Bounds.Bottom] [cur_editor.Bounds.Right] [cur_editor.Bounds.Bottom] ; (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-1

	add	[__rc+0x4],-SCRLW+1

	add	[__rc+0xC],-1

	add	[__rc+0x0],SCRLW+1

	mov	ecx,__rc

	call	pt_in_rect

	jnc	.check_main_menu

  .check_hscroll.2:

	mov	ebx,eax

	;sub     ebx,(5+SCRLW+1)

	sub	ebx,SCRLW+1

	sub	ebx,[cur_editor.Bounds.Left]

;       sub     ebx,[__rc+0x0]

	cmp	[hscrl_capt],0

	jge	.hcaptured

	mov	eax,[cur_editor.HScroll.Top] ;! eax,[hscrl_top]

	cmp	ebx,eax

	jl	.center_hcapture

	add	eax,[cur_editor.HScroll.Size] ;! eax,[hscrl_size]

	cmp	ebx,eax

	jge	.center_hcapture

	mov	eax,ebx

	sub	eax,[cur_editor.HScroll.Top] ;! eax,[hscrl_top]

	dec	eax

	mov	[hscrl_capt],eax

	dec	ebx

	jmp	.hcaptured

  .center_hcapture:

	mov	eax,[cur_editor.HScroll.Size] ;! 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,[cur_editor.Bounds.Right] ; eax,[p_info.box.width]

	sub	eax,[cur_editor.HScroll.Size] ;! eax,[hscrl_size]

	sub	eax,SCRLW*3+1 ; eax,SCRLW*3+10+1

	cmp	eax,ebx

	jge	@f

	mov	ebx,eax

    @@:

	mov	[cur_editor.HScroll.Top],ebx ;! [hscrl_top],ebx

	mov	eax,[cur_editor.Columns.Count] ;! eax,[columns]

	sub	eax,[columns.scr]

	imul	ebx

	mov	ebx,[cur_editor.Bounds.Right] ; ebx,[p_info.box.width]

	sub	ebx,SCRLW*3+1 ; ebx,SCRLW*3+10+1        ;**

	sub	ebx,[cur_editor.HScroll.Size] ;! ebx,[hscrl_size]

	idiv	ebx

	cmp	eax,[cur_editor.TopLeft.X] ;! eax,[left_col]

	je	still.skip_write

	mov	[cur_editor.TopLeft.X],eax ;! [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