[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

[1] · 2 · 3 · 4 · 5 · See whole thread