/View script help (playing with ports)

[carloslorenz]

Hi

I have posted this on REBOL list yesterday and decided to post it here also.

I made this simple messenger script that works ok when I first send a message from no matter wich machine (A ou B) but
then I just cannot answer the message because /View gives me an error a cannot understand why.

Here are the script and the error:

----------------------- The script -------------------------------------

#!/home/knoppix/rebol/rebol -s
REBOL[
Title: {Smiple Messenger}
]

start_listen: func[][
        server: open tcp://:8000
        forever[
                port: first wait server
                msg: copy port
                msgbox/text: rejoin [msgbox/text newline msg]
                show msgbox
        ]
]       

send_msg: func[mymsg][

        ; this following line changes in the other machine to  
        ; "client: open tcp://192.168.0.5:8000"

        client: open tcp://192.168.0.1:8000
        insert client mymsg
        close client
]


screen_server: layout[                
                title "Listening on Port 8000"
                across
                msgbox: area 300x100 wrap                                                               
                button "start server" [start_listen]
                below
                across
                text "menssage" msg: field 300 button "send" [send_msg a: msg/text]                                             
]

view screen_server


----------------------- The error -------------------------------------

** Script Error: Invalid path value: text
** Where: func [face value][send_msg msg/text]
** Near: send_msg msg/text
>>