Subversion Repositories Kolibri OS

Rev

Rev 1643 | Rev 6357 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1643 Rev 2045
Line 1... Line 1...
1 
;---------------------------------------------
 1 
;---------------------------------------------
2 
;-------------interraction MOUSE--------------
 2 
;-------------interraction MOUSE--------------
3 
;---------------------------------------------
 3 
;---------------------------------------------
4 
mouse:
 4 
mouse:
- 
 
 5 
	or	ecx,-1
- 
 
 6 
	mcall	9,procinfo
- 
 
 7
- 
 
 8 
	mov	eax,[procinfo+70] ;staus of window
- 
 
 9 
	test	eax,100b
- 
 
 10 
	jne	still
- 
 
 11
5 
	call	GetMouseCoordinats
 12 
	call	GetMouseCoordinats
6 
;panel
 13 
;panel
7 
	mov	edx,[Window_SizeX]
 14 
	mov	edx,[Window_SizeX]
8 
	sub	edx,5
 15 
	sub	edx,5