in reply to perl tk
With almost all Tk widgets, we have the function get which will return the value of the widget. Now you are entering name to the "Tk::Entry" widget you have ( $vu_enl ). So $vu_enl->get() will give you the actual value entered.
I am including the fixed code here :)
Almost all documentation you may need (regarding Perl/Tk) is available here.use Tk; use strict; my $mw = MainWindow->new; $mw->configure(-title => 'Verify User',-background =>'blue'); $mw->geometry('+100+300'); my $vu_frml = $mw->Frame( -relief => 'groove', -borderwidth => 3, -background =>'blue', ) ->pack(-side => 'top', -fill => 'x'); my $vu_lb1 = $vu_frml->Label( -text =>'name', -background=>'blue', -foreground=>'white', )->pack( -side=>'left' ); my $vu_enl = $vu_frml->Entry( -width =>9, -background =>'white' )->pack( -side=>'left',-pady=>3 ); + $mw->Button(( -background=>'blue', -foreground=>'white', -text => 'ok', -command =>sub { $mw -> Label( '-text' => "hello ".$vu_enl->ge +t(), #### Where I changed '-font' => "fixed", )->pack; }, ))->pack(-side =>'top', -fill => 'x'); MainLoop;
Welcome to the Monastery !
please go through The Perl Monks Guide to the Monastery, Writeup Formatting Tips and How (Not) To Ask A Question. Please format your postings with allowed tags. Unlike other forums, this community is strictly disciplined :)
Updates:
Formated code to look better.
Cheers !
--VC
|
|---|