[REBOL] Re: Weird black line..
From: volker::nitsch::gmail::com at: 8-Apr-2005 9:59
On Thu, 7 Apr 2005 21:19:41 -0500, Izkata <[Izkata--comcast--net]> wrote:
> When I run this code, there's a weird black vertical line at the beginning
> of the box -
> is there a way to remove it or do I have to live with it? (I've seen it
> before... ugh.)
>
> The thing is, if I don't use 'focus, the line is gone. But then the feel
> doesn't work.
>
> REBOL []
> 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: tail fiel/text ;)
> show Fiel
> ][
> ]
> ]
> ]
> ]
> ]
> focus Fiel
> do-events
>
> -Izzy Boy
>
> --
> To unsubscribe from the list, just send an email to
> lists at rebol.com with unsubscribe as the subject.
>
--
-Volker
Any problem in computer science can be solved with another layer of
indirection. But that usually will create another problem.
David
Wheeler