G'day rjohn1,

I suspect your problem lies with the declaration of $temp_var (or possibly lack of declaration). The absence of arguments to pop_user_entry() may also be an issue. You haven't shown enough code for me to tell.

Please supply a short working script. It should include the strict and warnings pragmata and, obviously, show the call to pop_user_entry(). It only needs code relevant to the problem at hand: please do not include anything beyond this. Also provide verbatim copies of any warning or error messages you're seeing.

If you do this, I'll happily look at the problem.

Hi Ken, I am putting the header code here. This is just temp code i created to post here.

use Tk;
use warnings;
use strict;
use Getopt::Long;
use Cwd;
use List::Util qw<first>;
require Tk::ROText;

my $temp_var = ""; 
my $mw = MainWindow->new();
$mw->geometry("1200x1200+0+680");
$mw->title("SVN Util");
$mw->resizable(0,1);

$mw->Button(-text=>"Test", -command=>\&pop_user_entry)->pack;

MainLoop;
sub pop_user_entry{
        $temp_var = "";
        my $user_entry_done = 0 ;
        my $dialog_top = $mw->Toplevel(-title=>"User Entry");
        $dialog_top->Entry(-textvariable=>\$temp_var)->pack;
        $dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_don
+e = 1 unless($temp_var =~ m/^$/);})->pack;
        $dialog_top->waitVisibility;
        $dialog_top->grab;
        $dialog_top->waitVariable(\$user_entry_done);
        $dialog_top->grabRelease ;
        $dialog_top->destroy;
}
[download]

As i said if you flip the button and entry widget declaration in the method definition, the entry widget takes the keyboard input.

To be frank, I'm not overly happy with this. I asked:

"Please supply a short working script."

The code you've supplied does not even compile.

I also asked:

"Also provide verbatim copies of any warning or error messages you're seeing."

So, where is:

Global symbol "$user_entry_don" requires explicit package name at ...
Execution of ... aborted due to compilation errors.
[download]

Would I be right in assuming that you didn't even bother to test this code?

In addition, I asked you to exclude any code that wasn't "relevant to the problem at hand". You've included four modules not used by the code you posted (Getopt::Long, Cwd, List::Util and Tk::ROText), a geometry() call (only suitable for particularly large screens) and other code: all irrelevant!

I changed:

        $dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_don
+e = 1 unless($temp_var =~ m/^$/);})->pack;
[download]

to:

        $dialog_top->Button(-text=>"OK",-command=>sub {$user_entry_don
+e = 1 unless($temp_var =~ m/^$/);})->pack;
[download]

The script now compiles and runs without any error or warning output. The "Test" button pops up the Toplevel; I'm able to enter text from the keyboard in the Entry widget; the "OK" button removes the Toplevel.

I swapped the order of the Entry and Button widget code. Other than those widgets appearing in reverse order, the script runs the same as before.

I am unable to reproduce your problem.

I'm using Perl v5.18.1 and Tk v804.031 — perhaps try upgrading if you're using older versions.

-- Ken