view release on metacpan or  search on metacpan

demo/player-gtk-ipc  view on Meta::CPAN

		$filelabel->set($url);
	}

	$songlabel->set($mfile);
}

sub progress_update { 1 }

sub progress_timeout {
	my $progressbar = shift;
	my $new_val = $progressbar->get_current_percentage;
	$new_val += 0.02;
	$new_val  = 0.0 if $new_val >= 1.0;
	$progressbar->update($new_val);
	return 1;
}

sub destroy_window ($$$) {
	my ($widget, $wref, $wref2) = @_;
	$$wref = undef;
	$wref2 = undef if defined $wref2;