- or download this
$exit_frame->Button(-text => "Track",
-command => [ \&track_changes, ($listbox, $output, $report_typ
+e) ])->pack;
- or download this
$exit_frame->Button(-text => "Track",
-command => [ \&track_changes, ($listbox, \$output, \$report_t
+ype) ])->pack;
- or download this
sub track_changes {
my ($listbox, $output_ref, $report_type_ref) = @_;
...
print "$$report_type_ref\n";
}