string default set by tcl expression

    In the Presentation part I'd like to be able to set the default of a string to the contents of a variable.   I've read that the default can ether be set to a literal.   eg.   s...