#!/usr/bin/gawk -f## Demonstration on how to use the GTK-server with Gnu AWK by STDIN.# Tested with Gnu AWK 3.1.3 on Slackware Linux 10.0.## September 27, 2003 by Peter van Eerten.# Revised for GTK-server 1.2 October 7, 2004# Revised for GTK-server 1.3 December 4, 2004#------------------------------------------------function GTK(str){print str |& GTK_SERVERGTK_SERVER |& getline TMPreturn TMP}BEGIN{# Start GTK-server in STDIN modeGTK_SERVER = "gtk-server -stdin"# Design GUIGTK("gtk_init NULL NULL")WINDOW = GTK("gtk_window_new 0")GTK("gtk_window_set_title " WINDOW " 'This is a title'")GTK("gtk_window_set_default_size " WINDOW " 100 100")GTK("gtk_window_set_position " WINDOW " 1")TABLE = GTK("gtk_table_new 30 30 1")GTK("gtk_container_add " WINDOW " " TABLE)BUTTON1 = GTK("gtk_button_new_with_label Exit")GTK("gtk_table_attach_defaults " TABLE " " BUTTON1 " 17 28 20 25")BUTTON2 = GTK("gtk_button_new_with_label 'Print text'")GTK("gtk_table_attach_defaults " TABLE " " BUTTON2 " 2 13 20 25")ENTRY = GTK("gtk_entry_new")GTK("gtk_table_attach_defaults " TABLE " " ENTRY " 2 28 5 15")GTK("gtk_widget_show_all " WINDOW)# Connect extra signalGTK("gtk_server_connect " BUTTON1 " enter Blabla")GTK("gtk_server_connect " BUTTON2 " enter 'Do not get here'")# Mainloopdo {    EVENT = GTK("gtk_server_callback wait")    if (EVENT == BUTTON2){	TMP = GTK("gtk_entry_get_text " ENTRY)	print "This is the contents: " TMP    }    if (EVENT == "Blabla") print "Extra signal for EXIT button!"    if (EVENT == "Do not get here") print "Extra signal for PRINT button!"} while (EVENT != BUTTON1)# Exit GTKGTK("gtk_server_exit")}