use strict; use warnings; use Tkx; my $mainwindow = Tkx::widget->new("."); $mainwindow->g_wm_geometry("600x150"); $mainwindow->g_wm_title("Window"); # Disable the window Resize $mainwindow->g_wm_resizable(0,0); # text variable my $label_firstname; my $entry_firstname; my $label_lastname; my $entry_lastname; my $label_loginid; my $entry_loginid; my $button_add; # make a frame and pack it into mainwindow my $w_frm = $mainwindow->new_ttk__frame(); $w_frm->g_pack(qw '-fill both -expand true'); # make parts and grid them into frame $label_firstname = $w_frm->new_label(-text => 'Firstname:') ->g_grid(-column => 0, -row => 0, -sticky => "we"); $entry_firstname = $w_frm->new_entry(-width => 35,-text => 'Firstname',-justify=>'left') ->g_grid(-column => 1, -row => 0, -sticky => "we"); $label_lastname = $w_frm->new_label(-text => 'Lastname:') ->g_grid(-column => 0, -row => 1, -sticky => "we"); $entry_lastname = $w_frm->new_entry(-width => 35,-text => 'Lastname') ->g_grid(-column => 1, -row => 1, -sticky => "we"); $label_loginid = $w_frm->new_label(-text => 'Login ID:') ->g_grid(-column => 0, -row => 2, -sticky => "we"); $entry_loginid = $w_frm->new_entry(-width => 35,-text => 'loginID') ->g_grid(-column => 1, -row => 2, -sticky => "we"); Tkx::MainLoop;