*** REBOL/CORE - GTK-SERVER UDP EXAMPLE - PvE - 28/7/2004
*** Script based on the TCP example by Nodep
*** The script assumes a working UDP server
*** no check on insert or first is done 
*** Revised for GTK-server 1.2 October 8, 2004 by PvE.
*** Revised for GTK-server 1.3 December 6, 2004 by PvE.

REBOL [] 

IO: open/lines udp://127.0.0.1:50000 

tmp: copy insert IO "gtk_init NULL NULL"
win: copy insert IO "gtk_window_new 0"
tmp: copy insert IO rejoin [ "gtk_window_set_title " win " GTK-SERVER" ]
tbl: copy insert IO "gtk_table_new 10 10 1" 
tmp: copy insert IO rejoin [ "gtk_container_add " win " " tbl ] 
but: copy insert IO "gtk_button_new_with_label Quit"
tmp: copy insert IO rejoin [ "gtk_table_attach_defaults " tbl " " but " 5 9 5 9" ]
tmp: copy insert IO rejoin [ "gtk_widget_show_all " win ] 

until [ 
	event: copy insert IO rejoin [ "gtk_server_callback wait" ]
	equal? event but
] 

insert IO "gtk_server_exit"
close IO
quit