in reply to Re: Re: clsoing sub window upon execution?
in thread clsoing sub window upon execution?

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]

Replies are listed 'Best First'.
Re: Re: Re: Re: clsoing sub window upon execution?
by Elijah (Hermit) on Dec 04, 2003 at 15:56 UTC
    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.
[reply]
[d/l]

      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
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom