#!/usr/bin/tclsh # # Tcl - GTK-SERVER TCP EXAMPLE - NODEP # Revised to new GTK-server command line syntax at august 1, 2004 by PvE # Changed for GTK-server 1.3 at December 6, 2004 - PvE # Thanks to Alejandro Muzzachiodi for testing in Win32. set event 0 set tmp "" set but "" set tbl "" exec gtk-server -tcp=127.0.0.1:50000 -detach & set IO [ socket 127.0.0.1 50000 ] fconfigure $IO -translation auto -buffering line puts $IO "gtk_init NULL NULL" gets $IO tmp puts $IO "gtk_window_new 0" gets $IO win puts $IO "gtk_window_set_title $win \"Tcl GTK-SERVER\"" gets $IO tmp puts $IO "gtk_table_new 10 10 1" gets $IO tbl puts $IO "gtk_container_add $win $tbl" gets $IO tmp puts $IO "gtk_button_new_with_label \"Click to Quit\"" gets $IO but puts $IO "gtk_table_attach_defaults $tbl $but 5 9 5 9" gets $IO tmp puts $IO "gtk_widget_show_all $win" gets $IO tmp while { $event != $but } { puts $IO "gtk_server_callback wait" gets $IO event } puts $IO "gtk_server_exit" close $IO exit