#!/usr/local/bin/moat

# tclMotif script to test "send" command

xtAppInitialize

send button {callActionProc rowcol.top_button Arm()}
send button {callActionProc rowcol.top_button Activate()}
send button {callActionProc rowcol.top_button Disarm()}
