TCL/Tk и управление окном

wm geometry window ?newGeometry?

man wm в общем.

Ресурс - http://wiki.tcl.tk/

1.
set pos_x 300
set pos_y 200
wm positionfrom . user
wm geometry . +$pos_x+$pos_y

2.
http://www.opennet.ru/docs/RUS/tcltk/index.html
http://www.tcl.tk/
http://www.beedub.com/book/

Большое пасибо :)
Спрошу уж последнее - просто срочно нужно... Как сделать, чтобы окно отобразилось, повисело несколько секунд и закрылось?
Все, пошел читать доки.

set f [frame .f]
..
..
pack $f

#this line stops app after 5 sec
after 5000 exit

Работает. Большое спасибо.