How to set F3 as a pop-up menu for particular function?

Kathy,

Are you talking about an Options form, as many of the commands implemented as enterFunctions provide (e.g. they are prompting you to enter a point or points, and you can hit F3 to bring up a form which provides options to alter the behaviour?)

Here's a partial example of doing this (I didn't post the entire code because it's old and doesn't work that well, but it illustrates the point). You create an options form with hiCreateAppForm, and then reference it from the ?form argument to an enter function (enterPath in this case):

procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
    abCreateGuardringOptionsForm()
    )
    enterPath(?prompts list("Enter points for guard ring")
    ?doneProc "abCreateGuardringDoneProc"
    ?points nil
    ?addPointProc "abCreateGuardringPointTracker"
    ?delPointProc "abCreateGuardringPointTracker"
    ?form abCreateGuardringForm
    ?alwaysMap t
    ?pathWidth abCreateGuardringForm->diffWidth->value
    )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
    diffWidth=hiCreateFloatField(
        ?name 'diffWidth
        ?value 10.0
        ?callback "abChangeGuardringWidth()"
        ?prompt "Diffusion Width"
    )
    hiCreateAppForm(
        ?name 'abCreateGuardringForm
        ?formType 'options
        ?buttonLayout 'HideCancelDef
        ?fields list(
        list(diffWidth 0:0 400:30 100)
        )
    )
    )
)

Kathy,

Are you talking about an Options form, as many of the commands implemented as enterFunctions provide (e.g. they are prompting you to enter a point or points, and you can hit F3 to bring up a form which provides options to alter the behaviour?)

Here's a partial example of doing this (I didn't post the entire code because it's old and doesn't work that well, but it illustrates the point). You create an options form with hiCreateAppForm, and then reference it from the ?form argument to an enter function (enterPath in this case):

procedure(abCreateGuardring()

    unless(boundp('abCreateGuardringForm)
    abCreateGuardringOptionsForm()
    )
    enterPath(?prompts list("Enter points for guard ring")
    ?doneProc "abCreateGuardringDoneProc"
    ?points nil
    ?addPointProc "abCreateGuardringPointTracker"
    ?delPointProc "abCreateGuardringPointTracker"
    ?form abCreateGuardringForm
    ?alwaysMap t
    ?pathWidth abCreateGuardringForm->diffWidth->value
    )
)

procedure(abCreateGuardringOptionsForm()
    let((diffWidth)
    diffWidth=hiCreateFloatField(
        ?name 'diffWidth
        ?value 10.0
        ?callback "abChangeGuardringWidth()"
        ?prompt "Diffusion Width"
    )
    hiCreateAppForm(
        ?name 'abCreateGuardringForm
        ?formType 'options
        ?buttonLayout 'HideCancelDef
        ?fields list(
        list(diffWidth 0:0 400:30 100)
        )
    )
    )
)