replayXt , by Jan Newmarch, allows an Intrinsics (or Xt) based application to be executed from a script.
ftp://csc.canberra.edu.au/pub/motif/ReplayXt.*.tar.z
replayXt is library with one entry point that allows an Intrinsics or Xt based application to be executed from a script file. In particular, Athena or Motif toolkit applications can be played back. Scripts are written in Tcl.