# How can I change cursor style in InputField?

I want to make an InputField with a horizontal cursor, like this:

Note that the blinking cursor should be horizontal and not the mouse pointer! Nevertheless, text input should still be horizontal and not vertical. The code below shows an InputField with the standard vertical cursor but I want a horizontal one.

x = Null;
Style[InputField[Dynamic[x], ImageSize -> {180, 60}, Alignment -> Center], Bold, 20]


Is this possible?

-
Rotate[Style[InputField[Dynamic[x], ImageSize -> {180, 60}, Alignment -> Center],Bold, 20], Pi/2]. –  cormullion Feb 12 '13 at 11:24
@cormullion Thanks for the answer,that was great ! however I am trying to get a horizontal inputfield as well as a horizontal cursor. –  subbu Feb 12 '13 at 11:32
I think this works. x = Null; l = Graphics[{Thick, Line[{{0, 0}, {.07, 0}}]}]; MouseAppearance[ Style[InputField[Dynamic[x], ImageSize -> {180, 60}, Alignment -> Center], Bold, 20], l] –  Ajasja Feb 12 '13 at 11:38
Or perhaps I'm still misunderstanding and the blinking cursor for text should be horizontal? –  Ajasja Feb 12 '13 at 11:42
@Ajasja I want horizontal cursor with in InputField not mousePointer. –  subbu Feb 12 '13 at 11:46