REBOL[Title: "Net Send IM"]

servers: [krypton cepheus pandora]

view layout[
backdrop 239.235.222
origin 4x4
names_lst: text-list 110x100 data servers
across
server_name: field 60
button "Add" 42 [
	insert tail names_lst/lines copy server_name/text show names_lst
	server_name/text: copy "" show server_name
	;save new server to server names
	temp: read/lines %im.r
	i: 0
	until [ i: i + 1
		find temp/:i "servers:"]
	save_servers: copy "servers: ["
	foreach ns (head names_lst/lines)[append save_servers rejoin[" " ns]]
	append save_servers " ]"
	poke temp :i save_servers
	write/lines %im.r temp
]
below return
msg: area 200x100
button "Send" 42[foreach name names_lst/picked[call rejoin["net send " name " " msg/text]]
	msg/text: copy "" show msg]
]