Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 4744
Status: rejected
Priority: 0/
Queue: Tk

Owner: Nobody in particular
Requestors: smackdab949 [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Subject: {Value} for Checkbuttons - Found a difference with new tk and checkbutton
Date: Tue, 23 Dec 2003 11:39:44 +0000
To: bug-Tk [...]
From: smackdab <smackdab949 [...]>
This example from Marc's post (sometime ago) no longer works. The docs still say that {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; Show quoted text
__________________________________ Do you Yahoo!? New Yahoo! Photos - easier uploading and sharing. -++**==--++**==--++**==--++**==--++**==--++**==--++**== 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
Download (untitled) / with headers
text/plain 174b
The code seems to work with Tk804.025_beta15. Admittedly the value isn't set to the off value, but it is set to a perl "false" value - so you consider the bug still present?
LAST CALL - release is now boarding at Gate 17 - is this still a problem ?
I don't think this is a bug. Slaven

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to