If that's what you want, then go with Tk::DialogBox, which allows you to add sub-widget. Here is a piece of demo:

use Tk;
use Tk::DialogBox;
use strict;
use warnings;

my $top = new MainWindow(-title => "demo");    
my $save = $top->Button(-text => "Goto line", command => \&process_sav
+e)->pack();
my $line_num;
MainLoop;

sub process_save {
    my $dialog = $top->DialogBox(-title => "Save?", -buttons => ["OK",
+ "Cancel"]);
    $dialog->add("Entry", -text => \$line_num)->pack();
    my $response = $dialog->Show();
    print "[$response, $line_num]\n" #in real code, handle the respons
+e...
}
[download]

Ok cool. One thing though. What is the syntax to have the script perform it's function when the button in the dialogbox is pressed? Right now as I have it the script performs the function whenever I press the button that calls the dialogbox and not after I enter a line number and pree "Go". Here is the code.

sub go_to {

   my $sw = $mw->DialogBox(-title => "Go To Line", -buttons => ["Go"])
+;
   $sw->add("Entry", -text => \$line_number)->pack();
   my $response = $sw->Show(&scroll_line);

   sub scroll_line {
      $line_number = $line_number - 1;
      my $calc = $line_number/$line_count;
      $t->yviewMoveto($calc);
      $line_number = $line_number + 1;
   }
}
[download]

I just need "$response" to be executed when the Go button is pressed.

my $result = $myDialogBox->Show;

print ($result eq "OK"? "user chose to save":"user discarded");
[download]

just check the return value of the ->Show(); function

---

Grygonos