[REBOL] [view][focus] Weird black line..
From: Izkata::Comcast::net at: 7-Apr-2005 21:19
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
show Fiel
][
]
]
]
]
]
focus Fiel
do-events
-Izzy Boy
