you could always add some code to the GetPatent button:
button "Get Patent" [
if not all [equal? PatentServer/Text "Select" equal? msg/text "Enter
number here..."] [
GetPatent PatentServer/text msg/text
]
]
HTH
Ammon
----- Original Message -----
From: "Bob Paddock" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>; "Gregg Irwin" <[EMAIL PROTECTED]>
Sent: Monday, November 19, 2001 3:36 PM
Subject: [REBOL] Re: Changing face text on button push?
>
> > Is this roughly what you're after?
>
> Yes that is exactly what I was after, alas it uncovered an other problem.
>
> How to I prevent the GetPatent button from working until a server has been
> selected, and some thing has replaced the default dialog box text.
>
> The way it stands now is that you can press the GetPatent button with out
> taking care of filling in the required information to make it work.
>
>
> > 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
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
