>> 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


Reply via email to