applied the solution from http://wiki.tcl.tk/1628
applied the solution from http://wiki.tcl.tk/1628

Alex

git-svn-id: 6fd85abfa91449a47dbbdf224cd923194cc24faf@9 dcddef73-2b9d-49fe-a651-d05a6fa2f102

alexlib/3dptv_tcltk,3dptv/3dptv,alexlib/3dptv_tcltk,3dptv/3dptv