#!/usr/dt/bin/dtksh chmodCB() { DtActionInvoke $TOPLEVEL DtChmod `' `' `' True \ NULL "FILE" "$FILE" "FILE" "$MODE" } main() { XtInitialize TOPLEVEL dtChmod DtChmod "$@" DtDbLoad XmCreateMessageDialog CHMOD $TOPLEVEL motd \ dialogTitle:"DtChmod" \ helpLabelString:"Chmod" \ messageString:"$(print Chmod $FILE to $MODE)" XmMessageBoxGetChild OK $CHMOD DIALOG_OK_BUTTON XtUnmanageChild $OK XtAddCallback $CHMOD helpCallback chmodCB XtAddCallback $CHMOD cancelCallback exit XtManageChild $CHMOD XtMainLoop } MODE=$1 FILE=$2 main