怎样得到 Button 的 -text ？

kevin

UID: 35907
帖子: 56
积分: 128
在线时间: 4 小时

1^# kevin 发表于 2006-05-11 21:54

怎样得到 Button 的 -text ？

怎样得到 Button 的 -text ？
#!usr/local/bin/perl -w
use strict;
use Tk;

my $main=new MainWindow;
$main->Button(-text=>'100')->pack();
$main->MainLoop;

1;

怎样得到上面程序中 Button 的 -text 呢？（就是其上显示的 100）
谢谢！

kevin

UID: 35907
帖子: 56
积分: 128
在线时间: 4 小时

2^# kevin 发表于 2006-05-11 23:54

还有一个问题：--在 $ma.
还有一个问题：
在 $main->Button(-text=>'100',-command=>\&mysub)->pack(); 里
怎样向子程序 mysub 传递参数呢？

anthony

UID: 5578
帖子: 196
积分: 450
在线时间: 2 天 4 小时

3^# anthony 发表于 2006-05-12 00:10

$main->Button(-text=&.
$main->Button(-text=>'100',-command=>s4b {&mysub (111)})->pack();