toconversion did that for us
unview/all view/no-wait [ n: text data 100 drop-down "Up" data ["Up" "Down"] on-change [ n/data: n/data + pick [1 -1] face/selected ; face/selected: to-pair reduce [face/selected 1] ] ]
The commented out line, when activated, confuses Red enough to make it work the way I want. A more supported method be welcome :) Thanks.
How hard is it to take your time and read the documentation, really?
selectedfacet: for lists types, index of currently selected element. For text inputs, selected text. For windows, focused face.
view window: layout [area "this" area "that" area "other" button [probe window/selected/text]]
TextSplitHelper_pers.red ... Compiling libRedRT... ...compilation time : 2403 ms Compiling to native code... ...compilation time : 73685 ms ...linking time : 851 ms ...output file size : 1026560 bytes ...output file : E:\Svi\prj-TextSplitHelper\libRedRT.dll *** Compilation Error: undefined word area1 *** in file: E:\Svi\prj-TextSplitHelper\TextSplitHelper_pers.red *** near: [area1]
face/selectedto other (maybe nonsensical) value. It just need to be different than currently selected.
view/no-wait [ ; NEW FUNCTION: do [ refresh-drop-down: function [face] [face/selected: 'nonsense] ] n: text data 100 dd: drop-down "Up" data ["Up" "Down"] on-change [ n/data: n/data + pick [1 -1] face/selected ; USED HERE: refresh-drop-down face ] ]
Workaround to get position in
area. Not complete, just principle:
view [ ar: area "Something" focus extra 1 on-key [switch/default event/picked [ 8 37 [face/extra: face/extra - 1] 20 27 46  ][face/extra: face/extra + 1]] on-focus [face/selected: as-pair face/extra face/extra - 1] below button "Probe position" [ probe ar/selected: as-pair ar/extra ar/extra - 1 ] field 93 hint "Do something" ]
Remembers and shows cursor position in area.