use Thread;
use warnings;
use Tk;
my $x = 10;
my $mw = new MainWindow;
$mw->Label(-text => 'honeywell')->place(-x => $x, -y => 50);
my $thr = new Thread \&sub1;
sub sub1 {
for ($i = 0 ; $i < 20 ; $i++) {
$x += 20;
sleep(2);
$mw->upd
我有两张表格。在第一个示例中,我有一个文本框和一个按钮,在另一个示例中,我有一个标签。当您在文本框中输入文本并按下按钮时,将打开一个新表单,并且标签具有与前一个表单中的文本框相同的文本。我如何使用get/set来做到这一点呢?我创建了一个"Globals“类,并在其中获取/设置:
class Globals
{
public string imena = "";
public string ime
{
get
{
return imena;
}
set