tk里怎么让光标默认停在某个entry里？

tk里怎么让光标默认停在某个entry里？
就是在程序一开始的时候光标就停在那里。
该怎么实现呢？
谢谢先！

$Entry->foc...
$Entry->focus

原来这么简单！...
原来这么简单！
非常感谢！！^_^

但没法用get()方法读它的值了....
怎么办啊...

这样吧--$e =...
这样吧
$e = $mw->Entry(-textvariable => \$msg);

看看我的代码．．．
$getname = $main_gui->Entry(-relief=>'groove',-width=>'20')->place(-x=>100,-y=>200);
$main_gui->Button(-text => "输出",-relief=>'groove',-height=>'0',-command=>\&get_sub)->place(-x=>200,-y=>300);
$main_gui->bind('<Key-Return>' => sub { get_sub(); });
......
sub get_sub {
$getname2=$getname->get();
...
}

这样就可以，但下面加上->focus的就不行了，提示get不支持：


$getname = $main_gui->Entry(-relief=>'groove',-width=>'20')->place(-x=>100,-y=>200)->focus;
$main_gui->Button(-text => "输出",-relief=>'groove',-height=>'0',-command=>\&get_sub)->place(-x=>200,-y=>300);
$main_gui->bind('<Key-Return>' => sub { get_sub(); });
......
sub get_sub {
$getname2=$getname->get();
...
}

改成--$getna...
改成
$getname = $main_gui->Entry(-textvariable => \$getname2,-relief=>'groove',-width=>'20')->place(-x=>100,-y=>200)->focus;
试试

这样$getname2会随$getname里的内容变化，如果想在按button时才变化，就先用一个别的变量保存，在get_sub里给$getname2赋值好了。

问题是这样: 问题是这样:
$getname = $main_gui->Entry(-relief=>'groove',-width=>'20')->place(-x=>100,-y=>200)->focus;
因为你最后调用的是focus,但focus并不返回ENtry对象,所以你的$getname并不是一个Entry对象的引用,当然不能调用get方法了.
解决的方法是拆开:
$getname = $main_gui->Entry(-relief=>'groove',-width=>'20')->place(-x=>100,-y=>200);
$getname->focus;

楼上正解！--...
楼上正解！
没注意看，我平时都不用get

谢谢!!!
用上了...谢谢!
PS:我用-textvariable方法.