#!/bin/ksh
#
# Demonstration on how to use the GTK-server with KSH by FIFO.
# Tested with KSH93-20011031 on Slackware Linux 9.1 kernel 2.4.22.
# Also with PDKSH 5.2.14 on Zenwalk Linux 4.2 kernel 2.6.18
#
# July 21, 2004 by Peter van Eerten.
# Revised for GTK-server 1.2 October 7, 2004
# Revised for GTK-server 1.3 December 4, 2004
# Revised for GTK-server 2.0.6 at december 17, 2005
# Revised for GTK-server 2.0.8 at january 7, 2006
# Revision at january 15, 2007 - PvE.
#----------------------------------------------------------------

# Catch SIGUSR1 signal when GTK-server exits - check configfile
trap 'exit' 10

# Communication function; $@ contains the data to be sent
function gtk
{
echo $@ > /tmp/demo
read RESULT < /tmp/demo
}

# Setup environment
export LC_ALL=nl_NL
export LD_LIBRARY_PATH=/usr/X11R6/lib

# Start GTK-server in FIFO mode
gtk-server -fifo=/tmp/demo -detach

# Define GUI
gtk "gtk_init NULL, NULL"
gtk "gtk_window_new 0"
WINDOW=$RESULT
gtk "gtk_window_set_title $WINDOW 'KSH demo using a Named Pipe'"
gtk "gtk_window_set_position $WINDOW 1"
gtk "gtk_table_new 10 10 1"
TABLE=$RESULT
gtk "gtk_container_add $WINDOW $TABLE"
gtk "gtk_button_new_with_label 'Click \n here'"
BUTTON=$RESULT
gtk "gtk_table_attach_defaults $TABLE $BUTTON 5 9 7 9"
gtk "gtk_check_button_new_with_label 'Check this out!'"
CHECK=$RESULT
gtk "gtk_table_attach_defaults $TABLE $CHECK 1 6 1 2"
gtk "gtk_entry_new"
ENTRY=$RESULT
gtk "gtk_table_attach_defaults $TABLE $ENTRY 1 6 3 4"
gtk "gtk_widget_show_all $WINDOW"

# Initialize variables
EVENT=0

# Mainloop
while [ $EVENT -ne $BUTTON ]
do
    gtk "gtk_server_callback WAIT"
    EVENT=$RESULT

    if [ $EVENT -eq $ENTRY ]
    then
	gtk "gtk_entry_get_text $ENTRY"
	print $RESULT
    fi
done

# Exit GTK
gtk "gtk_server_exit"