From 4fed87994b32536e6ccd885d2ad177a906ce4638 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Fri, 13 Aug 2021 10:21:15 -0300
Subject: [PATCH] New prototype for manually entering UDT elements to watch.

Allows user to type element to watch; uses `udtreference()` to fetch the element offset to access.
Non-functional yet, just shows a messagebox with the result.
Looks promising.
---
 source/ide/ide_methods.bas | 24 +++++++-----------------
 1 file changed, 7 insertions(+), 17 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 65d71b1d3..1e3f00721 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -8000,24 +8000,14 @@ FUNCTION idevariablewatchbox$(currentScope$, filter$, selectVar, returnAction)
                     nativeDataTypes$ = "@_BYTE@_UNSIGNED _BYTE@BYTE@UNSIGNED BYTE@INTEGER@_UNSIGNED INTEGER@UNSIGNED INTEGER@LONG@_UNSIGNED LONG@UNSIGNED LONG@_INTEGER64@INTEGER64@_UNSIGNED _INTEGER64@UNSIGNED INTEGER64@SINGLE@DOUBLE@_FLOAT@FLOAT@STRING@"
                     IF INSTR(nativeDataTypes$, varType$) = 0 THEN
                         'It's a UDT
-                        elementIndexes$ = ""
-                        thisUDT = 0
-                        E = 0
-                        FOR i = 1 TO lasttype
-                            IF RTRIM$(udtxcname(i)) = varType$ THEN thisUDT = i: EXIT FOR
-                        NEXT
-
-                        i = 0
-                        DO
-                            IF E = 0 THEN E = udtxnext(thisUDT) ELSE E = udtenext(E)
-                            IF E = 0 THEN EXIT DO
-                            elementIndexes$ = elementIndexes$ + MKL$(E)
-                            i = i + 1
-                        LOOP
-                        PCOPY 0, 4
-                        v$ = ideelementwatchbox$(usedVariableList(varDlgList(y).index).name + ".", elementIndexes$, ok)
-                        PCOPY 4, 0
+                        temp$ = usedVariableList(varDlgList(y).index).name + "."
+                        v$ = ideinputbox$("Watch UDT", "#Element to watch", temp$, "", 45, 0, ok)
                         IF ok THEN
+                            IF LEFT$(v$, LEN(temp$)) = temp$ THEN v$ = MID$(v$, LEN(temp$))
+                            v$ = lineformat$(UCASE$(v$))
+                            getid usedVariableList(varDlgList(y).index).id
+                            result$ = udtreference$("", v$, typ)
+                            result = idemessagebox("Result", v$ + "\n" + result$ + "\n" + STR$(typ), "#OK")
                         ELSE
                         END IF
                     END IF