perlplayer has asked for the wisdom of the Perl Monks concerning the following question:

hello i am writing a perltk GUI application i have created a main window with some buttons i want when user press a button a popup will appear and inside the popup there will be multile Entry fields such that i can take data from user. I have tried with toplevel the new popup is appearing but the buttons and entries that i have created inside the toplevel is not there in the new toplevel window. please help me ..you can also suggest if there is an alternative method 
 my $tl=$mw; -->my main window ref
    $popup;
   if (! Exists $popup) {
      $popup=$tl->Toplevel(-width=>"200",-height=>"20");
      $popup->geometry("500x200");

  # creating frames in toplevel  
  
$lframe=$popup->Frame(-width=>"25")->pack(-side=>"left",-fill=>"y");
      $rframe=$popup->Frame(-width=>"25")->pack(-side=>"right",-fill=>
+"y");

 # Creating Labels
      $lframe->Label(-text=>"Name", -relief=>'raised')->pack(-side=>"l
+eft");
      $popup->Label(-text=>"Bday", -relief=>'raised')->pack(-side=>"le
+ft");
      $popup->Label(-text=>"mob", -relief=>'raised')->pack(-side=>"lef
+t");
      $popup->Label(-text=>"email", -relief=>'raised')->pack(-side=>"l
+eft");

 # Creating Entries
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");
      $popup->Entry()->pack(-side=>"right");

     }
     else {
    $popup->deiconify;
    $popup->raise;
     }

[download]
if you need any more info please write back

Replies are listed 'Best First'.
Re: perltk-problem related to toplevel widget
by zentara (Cardinal) on Dec 05, 2008 at 16:00 UTC
    Usually you use a Dialog for this, a toplevel is used only when the Dialog gives you problems. Try this: 
    #!/usr/bin/perl
use strict;
use Tk;
use Tk::DialogBox;

my $dialog;
my $running = 0;
my $mw = new MainWindow(-title=>'My Main App');
my $text = $mw->Text();

my $loginbut = $mw->Button(-text=>'Login',
               -command => \&login)->pack;

my $logoffbut = $mw->Button(-text=>'LogOff',
               -command => sub {$running = 0} )->pack;

#&login;

MainLoop;

###############################################################
sub login{

return if $running;

$dialog = $mw->DialogBox(
    -title   => "Login",
    -buttons => [ "OK", "Cancel" ]
);

my $server = 'default';
my $servl = $dialog->add(
    "Label",
   -text => 'Server'
)->pack();
my $servd = $dialog->add(
    "Entry",
   -textvariable => \$server
)->pack();

my $name = 'default user';
my $namel = $dialog->add(
    "Label",
    -text => ' Name '
)->pack();
my $named = $dialog->add(
    "Entry",
    -textvariable => \$name
)->pack();

my $passwd;
my $passl = $dialog->add(
    "Label",
    -text => 'Password' 
    )->pack();

my $passd = $dialog->add(
    "Entry",
    -show         => "*",
    -textvariable => \$passwd
)->pack();

my $retlog = 0;
if ( $dialog->Show() eq "OK" ) {
    print "$server\t$name\t$passwd\n";    #this line is only for demo
    #do your stuff here, like reprompt if the 
    #password is bad, or whatever you want

    # here you would make a callback to a real login sub,
    # and if it is good, then enable the main gui
#     $retlog = &real_login($server,$name,$passwd);
  }
#if($retlog == 1){ &start_main } else { &login}
}

    [download]
    I'm not really a human, but I play one on earth Remember How Lucky You Are
[reply]
[d/l]

Back to Seekers of Perl Wisdom