*** REBOL/CORE - GTK-SERVER TCP EXAMPLE - NODEP *** The script assumes a working tcp connection *** no check on insert or first is done *** Changed for GTK-server 1.3 at December 6, 2004 - PvE. REBOL [] if none? attempt [ IO: open/lines tcp://127.0.0.1:50000 ] [ print "No GTK-SERVER found" quit ] tmp: first insert IO "gtk_init NULL NULL" win: first insert IO "gtk_window_new 0" tmp: first insert IO rejoin [ "gtk_window_set_title " win " GTK-SERVER" ] tbl: first insert IO "gtk_table_new 10 10 1" tmp: first insert IO rejoin [ "gtk_container_add " win " " tbl ] but: first insert IO "gtk_button_new_with_label Click" tmp: first insert IO rejoin [ "gtk_table_attach_defaults " tbl " " but " 5 9 5 9" ] tmp: first insert IO rejoin [ "gtk_widget_show_all " win ] until [ event: first insert IO rejoin [ "gtk_server_callback wait" ] equal? event but ] insert IO "gtk_server_exit" close IO quit