[REBOL] Simple 'choice' example?
From: bpaddock:csonline at: 17-Nov-2001 10:19
I'm stuck on a simple problem, hope some one can help me out.
First of all is there any one URL or REB site that has link to all of the
various HowTo's and Docs? I've looked for the last hour trying to find
some thing that would explain what I'm doing wrong, but with out luck.
I want a 'choice' button that returns some text such as "Dog", "Cat", "Duck",
then pass this to a function.
Problem is when I get to the function, shown below it prints out the message
?OBJECT?
.
Assuming I get that working, how do I get 'choice' to return a block and pass
that block to a function?
REBOL [
]
GetPatent: func [
PatentSever
PatentNumber
] [
; Prints out ?object?, WHY???
print PatentServer
; Does the right thing:
print PatentNumber
]
; Derived from emailsend.r:
view layout [
backdrop 30.40.100 effect [grid 10x10]
origin 40x20
PatentServer: choice "EP" "US" "WO"
msg: field "Enter WO Patent Number here..." 210
text white "Options:"
across return
button "Get Patent" [GetPatent PatentServer msg/text]
return
button "Quit" [quit]
]
do-events
