World: r3wp

make object! [
    code: 311
    type: 'script
    id: 'invalid-path
    arg1: 'caret
    arg2: none
    arg3: none

    near: [all [view*/caret none? face/caret face/caret: index? view*/caret] 
        insert either all
    ]
    where: 'show-text
]

Probably needs to read:


 all [caret view*/caret none? face/caret face/caret: index? view*/caret]

If this works the whole thing can be refactored a bit.

Error looks like the widget hasn't got a caret aatribute.

Nope, not working.

It's inserting at the head of the face and not at the caret after 
clicking on the text in the area

head of face/text

Let me try here ...

Update set-text with:

	unless string? face/text [exit]
	insert either caret [
		if all [
			none? face/caret
			face = view*/focal-face
			view*/caret
		] [face/caret: index? view*/caret]
		either face/caret [at face/text face/caret] [tail face/text]
	][
		clear face/text
	] form text

Then run the following:

	display "" [
		f: field
		field
		button [set-text/caret f "X"]
	]


Click in f, type some text, click or arrow to the middle of the text 
and press the button. Text is inserted at caret.

not for me

still requires a tab to set the caret position correctly

Hmm, maybe there are other changes at play here. Let me upload latest 
build ...

Build uploaded.

So, running the text above I click into f, type "ab", press the left 
arrow key once and then the button. What I see is an "X" inserted 
between letters "a" and "b" (i.e. "aXb") with the cursor positioned 
between the "a" and "X". Is this what you see? Is this "correct"?

Or do you expect the cursor to be positioned between the letters 
"X" and "b"?

doesn't matter

Huh?

but if you now move the cursor to the head of the text, and click 
button, it still inserts as before.

I guess the caret should be at the end of the inserted text

and this mirrors what happens when you type

the face/caret is not being updated when you click inside the text

OK, Mk III

	unless string? face/text [exit]
	either caret [
		if all [
			face = view*/focal-face
			view*/caret
		] [face/caret: index? view*/caret]
		either face/caret [
			insert at face/text face/caret form text
			view*/caret: at face/text face/caret + length? form text
			face/caret: index? view*/caret
		] [insert tail face/text form text]
	] [insert clear face/text form text]

sorry ...

no better

I type "ab" ArLeft and press button to get "aX|b"
the ArLeft, ArLeft and press button to get "X|aXb"

Is this what you get?

No

let me resync a new directory

I get aXXb

|aXXa

a|Xb

|aXXb

Ah, my fault. I didn't sync the above change.

I did

I put mark III in

>> checksum read %rebgui.r
== 14063079

Uploaded. I still get the same, working, result.

PeterD, you win tie breaks it seems ;)

Rebol isn't indeterminate

I get 16618006 for checksum ??

Same here.

not me .. and that was a fresh checkout :(

and create-distribution.r

I still get aXXb

ok, same checksum, let's try again

Do a search on "build: " on %rebgui.r ... it should come back with 
"build: 87"

REBOL[version: 87]

Hmm.  Now works as Ashley's does :)

We have a winner!

:)

Looks very good!!