unregisterRedrawViewsCallback redrawviews_p
viewDate=createFile "d:/temp/viewport_TM.txt"

fn redrawviews_p = 
	( dd=viewport.getTM() as string
	  print dd to:viewDate
	)
	
registerRedrawViewsCallback redrawviews_p