On Dec 22, 2003, at 10:19 PM, smackdab wrote:
This example from Marc's post (sometime ago)
no longer works. The docs still say that
What does this code do? What docs?
{Value} should be valid
(and I hope it will be or I need a workaround)
use strict;
use Tk;
my $mw = tkinit;
my @cb;
my $I = 0;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$cb[$I] = $mw->Checkbutton(-text => $I++)->pack;
$mw->Button(-text => 'Print Values', -command => sub{
for ($I = 0; $I < @cb; $I++) {
print $I, ': ', $cb[$I]->{'Value'}, "\n";
}
}
)->pack;
MainLoop;
__________________________________
Do you Yahoo!?
New Yahoo! Photos - easier uploading and sharing.
http://photos.yahoo.com/
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
-++**==--++**==--++**==--++**==--++**==--++**==--++**==
This message was posted through the Stanford campus mailing list
server. If you wish to unsubscribe from this mailing list, send the
message body of "unsubscribe ptk" to majordomo@xxxxxxxxxxxxxxxxxx
| 
