[REBOL] Re: [view][focus] Weird black line..

From: cyphre::seznam::cz at: 8-Apr-2005 10:32

Hi Izkata,

 That 'weird black vertical line' is text cursor ;) Use SOURCE focus to see
 what is going on. Especially have a look at system/view/carret.

 If you want really own custom key handling routine without the carret a
 possible quick solution is(watch out line breaks):

 view/new Disp: center-face layout [
    Fiel: box 200x24 green with [
       edge: [color: red effect: 'ibevel size: 3x3]
       font: [name: {Papyrus} size: 12 color: black shadow: none align:
'left]
    ] feel [
       engage: func [a b c][
          if b = 'key [
             either char? c/key [
                append Fiel/text trim/head/tail to-string c/key
                system/view/caret: none
                show Fiel
                system/view/caret: tail a/text
             ][
             ]
          ]
       ]
    ]
 ]
 focus/no-show Fiel
 do-events

 If you wan to have the cursor displayed properly you have to write
 appropriate system/view/carret handling code to your custom keyboard
 handler.

 regards,

 Cyphre

1 · 2 · [3] · 4 · See whole thread