my $i = $frame1->Checkbutton(..., -state => \$state, ...);