demo-stdin.awk

gtk_server的源代码

#!/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_SERVER
GTK_SERVER |& getline TMP
return TMP
}

BEGIN{

# Start GTK-server in STDIN mode
GTK_SERVER = "gtk-server -stdin"

# Design GUI
GTK("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 signal
GTK("gtk_server_connect " BUTTON1 " enter Blabla")
GTK("gtk_server_connect " BUTTON2 " enter 'Do not get here'")

# Mainloop
do {

    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 GTK
GTK("gtk_server_exit")
}