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

[REBOL] Changing face text on button push?

From: bpaddock:csonline at: 18-Nov-2001 6:56

Below is some code that shows what I'm after, it obiously would not work the way it is written. I have a button that needs pressed to select a particular server, once the server has been selected I want to change or add some help text lines. How do I do this? view layout [ backdrop 30.40.100 effect [grid 10x10] origin 40x20 h2 white "Select Patent Server:" PatentServer: copy "Select" PatentServer: choice "EP" "US" "WO" switch PatentServer [ "Select" [ h2 white "Please Select patent server." ] "US" [ h2 white "Download US Patent:" h3 white "e.g. 4215330 or 6163242" ] "WO" [ h2 white "Download PCT Application [WO]:" h3 white "e.g. 0177456 or 9912345" ] "EP" [ h2 white "Download EP Application:" h3 white "e.g. 0234567 (7 digit)" ] ] msg: field "Enter number here..." 210 text white "Press button to retrieve patent:" across return button "Get Patent" [GetPatent PatentServer/text msg/text] return button "Quit" [quit] ] do-events