From 3dc259f833e36d4945de5b651eca971c6bd4f507 Mon Sep 17 00:00:00 2001
From: qullarwee <qullarwee@kolibrios.org>
Date: Mon, 1 May 2023 11:40:31 +0000
Subject: [PATCH] Upload "mousepos" utility

git-svn-id: svn://kolibrios.org@9914 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/other/mousepos/mousepos.asm | 99 ++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)
 create mode 100755 programs/other/mousepos/mousepos.asm

diff --git a/programs/other/mousepos/mousepos.asm b/programs/other/mousepos/mousepos.asm
new file mode 100755
index 0000000000..96df73fbfe
--- /dev/null
+++ b/programs/other/mousepos/mousepos.asm
@@ -0,0 +1,99 @@
+include "../../macros.inc"
+include "../../KOSfuncs.inc"
+
+KOS_APP_START
+
+CODE
+
+mcall SF_SYSTEM, SSF_WINDOW_BEHAVIOR, SSSF_SET_WB, -1, 1
+mcall SF_STYLE_SETTINGS, SSF_GET_COLORS, syscl, sizeof.system_colors
+mcall SF_SET_EVENTS_MASK, EVM_REDRAW + EVM_MOUSE + EVM_KEY
+mcall SF_KEYBOARD, SSF_SET_INPUT_MODE, 1
+
+wait_event:
+	mcall SF_WAIT_EVENT
+	
+	cmp eax, EV_REDRAW
+	jz redraw_event
+	
+	cmp eax, EV_MOUSE
+	jz draw_text
+	
+	cmp eax, EV_KEY
+	jz key_event
+
+	jmp wait_event
+
+key_event:
+	mcall SF_GET_KEY
+	cmp eax, 256 ;Escape
+	jnz wait_event
+	mcall SF_TERMINATE_PROCESS
+
+redraw_event:
+	mcall SF_REDRAW, SSF_BEGIN_DRAW
+	mcall SF_CREATE_WINDOW, <0, WIN_W>, <0, WIN_H>, 0x01000000, 0x1000000, 0
+	mcall SF_DRAW_RECT, <0, WIN_W + 1>, <0, WIN_H + 1>, [syscl.work]
+	mcall SF_REDRAW, SSF_END_DRAW
+
+draw_text:
+	; Draw labels
+	mov ecx, 0xF0000000
+	or ecx, [syscl.work_text]
+	mcall SF_DRAW_TEXT, <10, 10>, , gxlabel, , [syscl.work]
+	mcall , <10, 30>, , gylabel
+	mcall , <10, 50>, , pidlabel
+	mcall , <10, 70>, , lxlabel
+	mcall , <10, 90>, , lylabel
+	
+	; Get mouse porition
+	mcall SF_MOUSE_GET, SSF_SCREEN_POSITION
+	push eax
+	
+	; Draw coords
+	mov esi, 0x50000000
+	or esi, [syscl.work_text]
+	xor ecx, ecx
+	mov cx, [esp + 2]
+	mcall SF_DRAW_NUMBER, 0x00040000, , <102, 10>
+	mov cx, [esp]
+	mcall , , , <102, 30>
+	
+	; Get pixel owner
+	xor ebx, ebx
+	mov bx, [esp + 2]
+	mov cx, [esp]
+	mcall SF_GET_PIXEL_OWNER
+	
+	; Draw pixel owner
+	xchg ecx, eax
+	mcall SF_DRAW_NUMBER, 0x00040000, , <102, 50>
+	
+	mcall SF_THREAD_INFO, pinf
+	
+	xor ecx, ecx
+	mov cx, [esp + 2]
+	sub ecx, [pinf.box.left]
+	mcall SF_DRAW_NUMBER, 0x00040000, , <102, 70>
+	mov cx, [esp]
+	sub ecx, [pinf.box.top]
+	mcall , , , <102, 90>
+	
+	pop eax
+	jmp wait_event
+
+DATA
+
+WIN_W = 200
+WIN_H = 150
+gxlabel db 'Global X:', 0
+gylabel db 'Global Y:', 0
+lxlabel db 'Local X:', 0
+lylabel db 'Local Y:', 0
+pidlabel db 'PID:', 0
+
+syscl system_colors
+pinf process_information
+
+UDATA
+KOS_APP_END