[ltk-user] Set xscrollcommand to a lisp function