Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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