Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] error in my /View script while playing with ports

From: carloslorenz::rebolbrasil::nobrenet::com at: 16-Sep-2004 14:52

Hello list, I am playing with this simple script that creates a messenger between two stations (192.168.01 and to better study the use of ports in REBOL. First I start the server at both stations Then I send a message from station to station and the message is read by station ok. Then when I reply the message to a have a strange error in /View that I cannot understand so I'd appreciate any help. Follows both script and error message. Thanks Carlos Lorenz #!/rebol/rebol -s REBOL[ Title: {simple 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][ ; at client line after comment ; changes to "client: open tcp:// ; client: open tcp:// 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 "message" msg: field 300 button "send" [send_msg a: msg/text] ] view screen_server ** Script Error: Invalid path value: text ** Where: func [face value][send_msg a: msg/text] ** Near: send_msg a: msg/text