use Wx;
use utf8;

package MyFrame;
    
use base 'Wx::Frame';
sub new 
{
	my $ref = shift;
	my $self = $ref->SUPER::new(@_); # a superosztály konstruktorának hívása
						 								 
	# A komponensek nem hozhatók létre a kereten belül közvetlenül
	# A keretre egy WX::Panel komponenst helyezünk
	my $panel = Wx::Panel->new( $self,              # szülő
                                -1,                     # azonosító
                                );
	# create a button
	$self->{btn} = Wx::Button->new( $panel,         # parent window
                                        -1,             # ID
                                     'Kattints ide',    # label
                                        [30, 20],       # position
                                        [-1, -1],       # default size
				);
	return $self
}

package MyApp;
    
use base 'Wx::App';
    
sub OnInit {
	my $self = shift;    # Definiáljuk a $self változót, mert itt is szeretnénk használni
	my $frame = MyFrame->new( undef,	# szülő
	                        -1,		#ablak azonosító
				'Gomb példa', 	# felirat
				[1,1],		# pozíció
				[200,150]	# méret
					);
	$self->SetTopWindow($frame); 		# Toplevel ablak definiálása
	$frame->Show( 1 );			# Frame megjelenítése
}
    
package main;
    
my $app = MyApp->new(); 	# Új MyApp alkalmazás
$app->MainLoop;			# Eseményhurok