Mailing list home
  Find posts   Help

Latest messageRecent messages

Other threads:
 Prev: How to break a transmission?
 Next: [view] object indirection

 Random thread

Indexes:
 By topic
 By date
 By author
 By subject
Join the Mailing List....
AccessibilityAbout / FAQ
Member's loungeContact/FeedbackOther REBOL links
Membership:
member name

password

Remember?

Not a member? Please join
4-May 19:05 UTC
[0.074] 10.686k
Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

Changing face text on button push?

 [1/5] 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

 [2/5] 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

 [3/5] from: bpaddock:csonline at: 19-Nov-2001 17:36


> 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.

 [4/5] from: ammonjohnson:y:ahoo at: 19-Nov-2001 17:21


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

 [5/5] from: bpaddock:csonline at: 22-Nov-2001 7:30


> button "Get Patent" [ > if not all [equal? PatentServer/Text "Select" equal? msg/text "Enter > number here..."] [ > GetPatent PatentServer/text msg/text > ] > ]
After correcting the logic this did what I needed, thank you. if all [not equal? PatentServer/Text "Select" not equal? ....] I posted my finished script under the Downloading Patent thread.