How can you stop ordering of InputField entries?

Question

I have:

InputField[Dynamic[d]]

Dynamic[d]

If I enter e.g.

a b x^5 h m

the entry automatically gets sorted, as per screen grab:

What is the best way to keep symbols entered into InputField in the same order that you entered them so that they always display in that order?

What I am actually wanting to do is enter some text that contains things like subscripts and superscripts, integrals ... InputField[expr, String] is not the answer. On the other hand if I use

InputField[Dynamic[d], Hold[Expression]]

and then

d /. {Times -> List, Power -> Superscript} // ReleaseHold

I get a list that I can do things with:

For example I could wrap Row with a default spacer or TextCell and so on around it. But this seems quite an indirect way of doing things.

Edit

Adding HoldForm to the second argument to Dynamic doesn't appear to offer any advantage and as Andrew points out you can end up with nested HoldForm. So I think this is not a good solution -- maybe a backwards step actually.

For Andrew's solution, using Boxes in InputField doesn't, in itself, prevent ordering when you eventually release Hold (e.g. after using MakeExpression). i.e. I don't see how to avoid apply a hold of some type and removing Times to stop the ordering.

So using Boxes may in general provide more flexibility but I'm struggling to see how it adds anything for this specific problem.

Answer 1

You could do something like

InputField[Dynamic[d, (d = HoldForm @@ #) &], Hold[Expression]]

This will wrap the expression typed into the input field in HoldForm.

Answer 2

Since you said you wanted text input containing subscripts, superscripts, etc, it sounds like you just want Mathematica's box language:

InputField[Dynamic[d], Boxes]

Now d is boxes, such as

In[39]:= FullForm[d]

Out[39]//FullForm=SuperscriptBox["a","b"]

You can convert them to expressions with MakeExpression or ToExpression, or interpret them any other way you need to.