# Revised for GTK-server 1.3 December 5, 2004
# Revised for GTK-server 2.0.6 at december 17, 2005
# Revised for GTK-server 2.0.8 at january 7, 2006
#-------------------------------------------

function pause(seconds, l_now)
{
l_now = systime()
while (systime() != l_now + seconds){}
}

#-------------------------------------------

function GUI(call)
{
print call >> "/tmp/demo"
close("/tmp/demo", "to")
getline < "/tmp/demo"
close("/tmp/demo", "from")
return $0
}

#-------------------------------------------