enterPoint - hiCreatePointField

[Arnold]

Hi

I have a form in which I have two fields called AeStartPointField and
AeGetCursorPointField.

AeStartPointField= hiCreatePointField(
?name 'AeStartPointField
?promt "startPoint"
?value list(0.0 0.0)
?callback "println(\"scale changed\")
?editable t
)

AimGetcursorpointField = hiCreateButton(
?name "AimGetCursorPointField"
?buttonText "getPoint"
?callback "AeGetPoint()"
)

procedure(AeGetPoint()
let((helpVar)
helpVar=enterPoint(?prompts list("Enter Point") ?doneProc "")
AeStartPointField->value=helpVar
)
)

I want now to change the value of the "startPoint" with the procedure "AeGetPoint"

I works, but the new value is not displayed in the form.

What can I do to display it ? I did not find a refresh function or something else.

CU

Arny

 

[Pete nospam Zakel]

Arny,

Changing AeStartPointField->value only changes the value in the prototype
field created by hiCreatePointField, it does not change the value of the
field instantiated in the form.

You need to modify that value by referencing the field in the form:

FormName->AeStartPointField->value

You also need to do this when accessing the value, since
AeStartPointField->value will not change when the value of the field within
the form changes.

In article <7fd44e32.0405052331.68f4b797@posting.google.com> arnold_erni@yahoo.de (Arnold) writes:

I have a form in which I have two fields called AeStartPointField and
AeGetCursorPointField.

AeStartPointField= hiCreatePointField(
?name 'AeStartPointField
?promt "startPoint"
?value list(0.0 0.0)
?callback "println(\"scale changed\")
?editable t
)

AimGetcursorpointField = hiCreateButton(
?name "AimGetCursorPointField"
?buttonText "getPoint"
?callback "AeGetPoint()"
)

procedure(AeGetPoint()
let((helpVar)
helpVar=enterPoint(?prompts list("Enter Point") ?doneProc "")
AeStartPointField->value=helpVar
)
)

I want now to change the value of the "startPoint" with the procedure "AeGetPoint"

I works, but the new value is not displayed in the form.

-Pete Zakel
(phz@seeheader.nospam)

"Do not abuse the crocodile's offspring until you are out of the river."

-cunning Nigerian proverb