[REBOL] Re: Changing face text on button push?

From: greggirwin:mindspring at: 18-Nov-2001 19:33

Hi Bob,

Is this roughly what you're after?

view layout [
      backdrop 30.40.100 effect [grid 10x10]
	origin 40x20

	help-lbl: h2 white "Select Patent Server:"
	help-lbl-2: h3 white "" 200
    PatentServer: choice "Select" "EP" "US" "WO"
    [
        switch PatentServer/text [
            "Select" [ help-lbl/text: "Select patent server:"
                       help-lbl-2/text: ""
                        ]
            "US"	[ help-lbl/text: "Download US Patent:"
                	  help-lbl-2/text: "e.g. 4215330 or 6163242"
                        ]
            "WO"    [ help-lbl/text: "Download PCT Application [WO]:"
                      help-lbl-2/text: "e.g. 0177456 or 9912345"
                        ]
            "EP"    [ help-lbl/text: "Download EP Application:"
                      help-lbl-2/text: "e.g. 0234567 (7 digit)"
                        ]
        ]
        show help-lbl
        show help-lbl-2
    ]
	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]
]

--Gregg

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