use strict; # module to must always declare variables before you use them use warnings; # module to show where is the error use Tk; # module for the Windows GUI my $mainwindow = MainWindow->new(); $mainwindow->geometry("600x150"); $mainwindow->title("Window"); # Disable the window Resize $mainwindow->resizable(0,0); # Menu display option my $main_menu = $mainwindow->Menu(); $mainwindow->configure(-menu => $main_menu); #File my $file_menu = $main_menu->cascade(-label=>"File", -underline => 0, -tearoff=>0); $file_menu->command(-label=>"New", -underline=>0, -command=>sub{exit}, -state => 'disabled'); $file_menu->command(-label=>"Exit", -underline=>0, -command=>sub{exit}); # About $main_menu->command(-label=>"About", -command=>sub{$mainwindow->messageBox(-title=> "About", -message=>"Version 3.0.0", -type => "ok")}); # text variable my $label_firstname; my $entry_firstname; my $label_lastname; my $entry_lastname; my $label_loginid; my $entry_loginid; my $button_add; # -anchor => 'e' | 'w' | 'n' | 's' | 'ne' | 'nw' | 'se' | 'sw' | 'center' # top ################################ # nw n ne # # # # w center e # # # # sw s se # ################################ # bottom $label_firstname = $mainwindow->Label(-text => 'Firstname:')->pack (-anchor => 'nw'); $entry_firstname = $mainwindow->Entry(-width => 35,-text => 'Firstname')->pack (-anchor => 'n' ); $label_lastname = $mainwindow->Label(-text => 'Lastname:')->pack (-anchor => 'nw'); $entry_lastname = $mainwindow->Entry(-width => 35,-text => 'Lastname')->pack (-anchor => 'n'); $label_loginid = $mainwindow->Label(-text => 'Login ID:')->pack( -anchor => 'nw'); $entry_loginid = $mainwindow->Entry(-width => 35,-text => 'loginID')->pack (-anchor => 'n'); $button_add = $mainwindow->Button(-text => 'Add New User', -command=>sub{exit})->pack(-anchor => 'se'); MainLoop();