#! ../wafe --f
# Demo to show how to run an Athena application on several displays.
# Set the value for the ApplicationShell top2 to an display, where
# you are allowed to display and run this script....


Command a topLevel callback "echo i am widget %w"

ApplicationShell top2 $env(DISPLAY)
Command b top2 callback "echo i am widget %w"
realize

register xioerr "echo ioerror hello"

setWMProtocols topLevel WM_DELETE_WINDOW
setWMProtocols top2 WM_DELETE_WINDOW

action topLevel override "<Message>WM_PROTOCOLS: exec(echo delete top)"
action top2 override "<Message>WM_PROTOCOLS: exec(echo delete top2)"
