Listing 2. Simple DtKsh GUI Application

#!/usr/dt/bin/dtksh
editCB()
{
	dtaction Compose $FILE
}
main()
{
	XtInitialize TOPLEVEL dtSend DtSend "$@"

	DtDbLoad
	DtDtsFileToAttributeValue DESC $FILE \
		"DESCRIPTION"
	XmCreateMessageDialog SEND $TOPLEVEL motd \
		dialogTitle:"DtSend" \
		helpLabelString:"Email" \
		messageString:"${DESC}"
	XmMessageBoxGetChild CANCEL $SEND \
		DIALOG_CANCEL_BUTTON
	XtUnmanageChild $CANCEL
	XtAddCallback $SEND okCallback exit
	XtAddCallback $SEND helpCallback editCB

	XtManageChild $SEND

	XtMainLoop
}
if [ $# -eq 1 ]; then
	FILE=$1
else
	FILE="/etc/motd"
fi