#!/bin/ash
#
# ASH named pipe demo with the gtk-server
# Based on the BASH demo
# Tested with ASH 0.4.0 on Slackware Linux 10
#
# August 3, 2004 by Peter van Eerten
# Revised for GTK-server 1.2 October 7, 2004
# Revised for GTK-server 1.3 December 6, 2004
# Revised for GTK-server 2.0.6 at december 17, 2005
#------------------------------------------------

# Communicate with GTK-server
gtk()
{
echo $1 > /tmp/ashdemo
RESULT=`cat /tmp/ashdemo`
}

#------------------------ Main starts here

# Start gtk-server
gtk-server -fifo=/tmp/ashdemo -detach

# Setup GUI
gtk "gtk_init NULL NULL"
gtk "gtk_window_new 0"
WIN=$RESULT
gtk "gtk_window_set_title $WIN \"Ash GTK-server demo with FIFO\""
gtk "gtk_window_set_default_size $WIN 400 200"
gtk "gtk_window_set_position $WIN 1"
gtk "gtk_table_new 10 10 1"
TBL=$RESULT
gtk "gtk_container_add $WIN $TBL"
gtk "gtk_button_new_with_label \"Click to Quit\""
BUT=$RESULT
gtk "gtk_table_attach_defaults $TBL $BUT 5 9 5 9"
gtk "gtk_widget_show_all $WIN"

EVENT=0

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

# Exit GTK
gtk "gtk_server_exit"