# HELLO.GUI -- Graphics user interface for the "hello world" demo task.

reset-server
appInitialize hello Hello {
!
! Application defaults for the hello world program.
!

Hello*objects:\
	toplevel		Form		helloForm\
	helloForm		Label		helloLabel\
	helloForm		Command		quitButton

Hello*helloForm*background:			bisque
Hello*helloForm*helloLabel.label:		Hello, world!
Hello*helloForm*quitButton.fromHoriz:		helloLabel
Hello*helloForm*quitButton.label:		Quit
}

createObjects
proc quit args { send client gkey q; deactivate unmap }
send quitButton addCallback quit
activate