sub btnButton1Clicked {
		my( $self, $event ) = @_;
		print "Button 1\n";
		
}

sub btnButton2Clicked {
	my( $self, $event ) = @_;
	print "Button 2\n";
}