# user code to produce data
Tk::ObjScanner::scan_object($mydata) ;
# resume user code