chromatic/kschwab, Thanks for your help! I played with DialogBox and it does the job. Both the anonymous method as well as the [] methods work well for passing. Is one method preferred to the other, or should I go by the TMTWOTDI way?

Curious, is there a module or a Tk Option I can use to center the initial MainWindow ($mw). When I run the current code, the $mw pops up in a fairly random place, yet the DialogBox shows up dead center. This gets a little visually startling.

The code now looks like this: 

#!perl -w
=pod
IP & Hostname GUI Program
v .3
slojuggler
=cut

#use strict;
use Socket;
use Sys::HostIP;

#For hostname
use Sys::Hostname;

print "@INC" . "\n";

my $ipaddr = hostip;
print "Mine: $ipaddr \n";

my $hostnm = hostname();
print "Host $hostnm \n";

use Tk;
use Tk::DialogBox;

my $mw = MainWindow->new;
$mw->title("Your IP Info");
$mw->Label(-text=>"IP Address -> $ipaddr")
                 ->pack(-fill => 'x',
                           -side=>"top",
                            -ipadx=>20);
$mw->Label(-text=>"Hostname -> $hostnm")
                 ->pack(-fill => 'x',
                           -side=>"top");
$mw->Button(-text=>"Done!", -command=> sub { exit } ) -> pack (-side=>
+"bottom");

#Somehow pass the $mw to the do_toplevel routine, to keep in step with
+ use strict
#$mw->Button(-text=>"About...", -command=> sub { \&do_toplevel ????? }
+ ) -> pack (-side=>"bottom");
$mw->Button(-text=>"About...",
                   -command => sub { do_toplevel($mw) }) -> pack (-sid
+e=>"bottom"); 
MainLoop();

exit();

sub do_toplevel {
    my $mainwindow = shift;
    my $dialog = $mainwindow->DialogBox(-title => "About...", -buttons
+ => ["OK"]);
    my $label = $dialog->add('Label', -text=>"V1.2")->pack(-fill=> 'x'
+,  -side=>"top");
    $dialog->Show;
=pod
    my $tl = $mainwindow->Toplevel();
   $tl->title("About...");
    $tl->Button(-text => "Close",
                     - command => sub {$tl->destroy})->pack;
    $tl->waitWindow();
=cut
    
}

[download]

In reply to Re: Re: Modal Tk Toplevel/Passing a MainWindow by slojuggler
in thread Modal Tk Toplevel/Passing a MainWindow by slojuggler

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.