Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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