Hi Monks,
I have a Tk application that, apart from it's own window, needs to open a MainWindow on a large number of other displays (today: 20+, tomorrow: ??).
This is going to be somewhat error-prone, and the application should be able to continue to run on whichever nodes do manage to start up successfully, so I need the opening of the MainWindow's to not cause too many problems in the event that a node is down, a display does not allow connections, etc. This is what I'm thinking so far:
use strict;
use Tk;
my @Displays = qw"node1:0 node2:0";
my $top = MainWindow->new();
my %top;
my $orig_display = $ENV{'DISPLAY'};
foreach (@Displays) {
$ENV{'DISPLAY'} = $_;
if (eval {$top{$_} = MainWindow->new()}) {
print "MainWindow opened on $_\n";
} else {
print "MainWindow failed to open on $_\n";
$top{$_} = 0;
}
}
$ENV{'DISPLAY'} = $orig_display;
MainLoop;
Can anybody see any problems with this? Or perhaps have any ideas, how this could be done better? I couldn't find any documentation for MainWindow...
Cheers, Matt
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|