World: r3wp

I've forgot, what a symbol! datatype is!?

s there any 'Challenge' channel for submitting a problem ?

Puzzles

Geomol: ok, thanks.

And answers go to Puzzle Answers

And people expect rewards. ;-)

All my gratitude !

I already solved it, but it's not nice (and maybe faulty)

Another question:  How do you setup Rebol code to be performed when 
a button is pressed?

Lets say I want a VID to show a list of websites to open to, and 
I set the default to HULU.
I have the following to setup the correct url:
 k-prefix:	[http://www.]
k-suffix:	[.com]
txt-site:	[hulu]
url-site:	to-url ajoin [k-prefix txt-site k-suffix]

OK, that works when I do a browse url-site

But when I put it after a button like this:
    group [

        button "Open"	browse url-site    <-- this code works only if it is 
        done before the VIEW  
        button "Reset" 	reset 
        button "Cancel"	close

I tried to replace the browse url-site with
browse to-url ajoin [k-prefix txt-site k-suffix]   to no avail.

Is there a way to "predefine" the code above the VIEW so that when 
the button is pressed, it will perform the desired task like

button "Open"    format-and-browse-site    <-- where this has been 
set to do the url-site assignment and browse funtions?

I'm guessing this may have something to do with the DO , DOES, REDUCE, 
or other such functions

Is this R2 or R3?

R3

button "Open" do [browse url-site]

I think.

Hi Henrik,

This issue is not when to do the browse, that works, but when the 
url-site is properly assigned.

I'm not sure what you mean.

Try this:
REBOL []
; Assignments ------------------------------------
k-prefix:	[http://www.]
k-suffix:	[.com]
txt-site:	[hulu]
url-site:	to-url ajoin [k-prefix txt-site k-suffix]

; Main-procedure ---------------------------------
load-gui
view [
    title "WebSite Selector" 
    text "Please choose a website you would like to open" 
    panel 2 [
        label "URL:" 
        txt-site: field "Hulu"
        label "WebSites:" 
        area 
    ] 
    group [
        button "Open"	browse url-site 
        button "Reset" 	reset 
        button "Cancel"	close 
]	]

When you press Open, it will open the browser to Hulu.com

But I need to modify the code so that I can change the HULU to another 
site like GOOGLE

So, I need to replace button "Open" browse url-site with something 
that will evaluate the url-site AT THAT TIME, rather than what I 
have it defaulted to

As I said, you need a DO block (I think you missed that). Then you 
create a function to create the URL-SITE url. Then you use that as 
input with BROWSE and that will work.

Thanks Henrik, I'll give it a try

inspiration:

view [group [f: field] group [button do [probe get-face f]]]

Henrik,  I added the following code:

    eval-url-site:	does [to-url ajoin [k-prefix txt-site k-suffix]]
and then after the button "open" i have:
    button "Open"	browse eval-url-site

I get a ***GUI Error: Cannot parse the GUI dialect

But if I type browse eval-url-site at the console, it works -- What 
am I missing?

Patrick, it is still incorrect WRT to the DO block. Try reading my 
inspiration line.

you must DO right at the button.

Ohhhh, I missed that

How to solve such problem ?
It seems like input-file is evaluated with none as infile value.

REBOL []

container: make object! [
    infile: none
    input-file: read join infile ".txt"
]

c: make container [infile: %rme/test]

When you are making the container Rebol evaluates the code in the 
argument block. So in this case, it first  sets infile to none and 
then tries to set input-file to the result of evaluting read join 
infile ".txt".

To achieve what I think you want you need to make input-file a function!:

container: make object! [
	infile: none
	input-file: make function! [] [read join infile ".txt"]
]

Or use DOES again:
input-file: does [read join infile ".txt"]


When stuff is evaluated can be a bit difficult to figure out. The 
more you use and learn about REBOL, the more clear it will become.

So "input-file: does [read join infile ".txt"]" is the same I suppose.

Geomol: sorry, too late :)

what about 'construct? It does not evaluate anything :-)

I've just tried this :

REBOL []

container: make object! [
    infile: none
    content: none
    input-file: does [content: read join infile ".txt"]
]

c: make container [infile: %user]

But it fails.

construct doesn't work in this case, because then input-file just 
become the word READ.

Kib, what fails? You have to call input-file, before you have the 
result in content.

I named my script "ooo.r" and I have a "user.r" file inside that 
directory too.

sorry : "user.txt"

c: make container [infile: %user]
d/input-file

now c/content should hold your file content.

>> do %ooo1.r
Script: "Untitled" (none)
>> c/infile
== %user
>> c/content
== none

You have to call input-file. :-)

Geomol: hoops!!! my fault, I was calling "infile" not "input-file" 
!

works fine now !

I'm mising something here :

#!/usr/bin/rebol -q

REBOL [
    Title: "Tests with oo programming"
    Date: 26-Feb-2009
    Author: "Kib"
    File: "ooo1.r"
    Purpose: "nothing interesting"
]

son: make object! [
    parent: none
    name: "object b"
    get-parent: does [print parent]
]

mother: make object! [
    name: "object a"
    son-instance: make son [parent: self]
]

pony-mum: make mother []
print ["object name: " pony-mum/name]
print ["instance name: " pony-mum/son-instance/name]

print ["instance name:(other method) " pony-mum/son-instance/get-parent]

What's wrong with the last call ?

son-instance: make son [parent: self] 

self refers to son-instance

Graham : as i'm inside mother, self refers to a mother no ?