[REBOL] Bug in layout [ List ] ???
From: robert::lancaster::opennw::com at: 12-Apr-2001 17:38
Hello All,
Sorry I haven't tracked down the View mailing list yet. However,
it's now Easter (NZ) for us and technically I should not be at work now....
;->
While playing with an example from the Docs, I came across a possible bug
with LIST in the layout Dialect???. When the list size is 400x80 the buttons
in the list are able to be clicked on (i.e. Windows pop up). When the list
size is increased to 400x200, clicking on the buttons fails to produce any
results ( i.e. Windows fail to pop up ).
Can anyone see anything blatantly wrong with my code, or is it something
deeper.....
p.s : Yes I do know I have four things in the list and only three are
displayed ( Made into buttons )..... I don't think this is a problem in this
case.....
REBOL [
Name: "Object Playfield"
Author: "Robert Lancaster"
]
print "Starting Here"
x: make object! [
title-name: ""
name: ""
email: ""
phone: ""
viewdata: func [] [
layout [
title join "Person: " name
box 200x3 red
across
text "Name" tab field name [name: face/text ] return
text "Email" tab field email [email: face/text] return
text "Phone" tab field phone [phone: face/text] return
button "Enter" [
print [ "Person " newline name email phone newline ]
show mast
]
]
]
]
biglist: copy []
insert biglist make x []
insert biglist make x []
insert biglist make x []
insert biglist make x []
mast: layout [
list 400x80 [ ; Make 80 200 and it stops working
i: button
] supply [
if greater? add count 1 length? biglist [
i/show?: false
exit
]
print count
obj: pick biglist add count 1
i/text: obj/name
i/data: add count 1
i/action: func [face value][
print "Hello" face/text
obj: pick biglist face/data
view/new obj/viewdata
]
]
]
view mast