>> rebol/version
== 0.9.9.3.1
Code to duplicate symptom:
rebol[]
new-styles: stylize [
list-items text [size: 95x14 font: [style: 'bold size: 10 color: black
shadow: none]]
]
num: count: 0
items: [["1" "2" "3" "4" "5" "6"]["1a" "2b" "3c" "4d" "5e" "6f"]]
view-getabout: [
styles new-styles
l1: list blue 570x360 [
styles new-styles
; MUST specify: styles new-styles
; in order to have styles carried on to this list object
; Comment out above line in order to make view spit chips
across
fc: list-items [print fc/text]
text 95 left text 95 left text 95 left text 95 left text 95 left
] supply [
count: count + num
face/text: either count > length? items [""][
do pick [
[items/:count/1]
[items/:count/2]
[items/:count/3]
[items/:count/4]
[items/:count/5]
[items/:count/6]
] index
]
]
]
view layout [
size 640x480
backdrop 00.153.153
at 10x10 panel 620x460 view-getabout
]
Regards,
Deryk