How I Summoned the Planes

With the server change, you may have noticed that the Chatterbox clients are mostly, if not all, broken. This will, I suspect, probably be resolved shortly, because I would imagine that www.perlmonks.org will be resolving to 206.170.14.76 shortly.

In the meantime, I went through the code (which I understand only superficially) and changed each instance of www.perlmonks.org to 206.170.14.76 - and lo! A cargo plane dropped off a working getchat.pl and monkchat Perl/Tk client. I thought that I should post this more promptly than carefully, since the problem is immediate. It does seem to me that this sort of configuration information should be gathered together in a .monkchatrc file, to be read and exported as variables by a module. Presently the addresses are spread throughout the sundry files.

I was similarly inspired to look at the some code in a language I don't understand, and write some code for a module I understand poorly. By adding the lines:

    {
      my @command = ($0,@ARGV);
      $Window->command(?@command?);
    }
    $Window->group($Window);
[download]

to the Tk CB client, I was able to make it produce a WindowMaker Icon. I announce this here because the code is useful, but doubtless no good, and could use fixed by someone who actually understands it. :-)

*sigh* Oh great Cargo Gods... send us a sign! Your servant is calling...

Comment on How I Summoned the Planes Download Code

Replies are listed 'Best First'.

Re: How I Summoned the Planes
by mkmcconn (Chaplain) on Jan 02, 2001 at 07:04 UTC

{
   my @command = ($0,@ARGV);
   $Window->command(?@command?);
}
[download]

command

group

#...
sub initWindow {
    print STDERR "Initializing Tk window...\n" if ($opt_debug);
    $Window = MainWindow->new(-title  => "Perlmonks Chat");
    $Window->group($Window);
#...         ^^^^^^
[download]

What's the best way to research inheritance in an Object Oriented program? How do I know I've found the attributes that are inherited?
UPDATE

I found this concerning Tk::Wm.
And the following descriptions.

$toplevel->command(?value?) If value is specified, this method stores value in $toplevel's WM_COMMAND property for use by the window manager or session manager and returns an empty string. Value must have proper list structure; the elements should contain the words of the command used to invoke the application. If value isn't specified then the method returns the last value set in a command method for $toplevel. If value is specified as an empty string, the method deletes the WM_COMMAND property from $toplevel.

$toplevel->group(?$widget?) If $widget is specified, it is the the leader of a group of related windows. The window manager may use this information, for example, to unmap all of the windows in a group when the group's leader is iconified. $widget may be specified as an empty string to remove $toplevel from any group association. If $widget is specified then the method returns an empty string; otherwise it returns the $toplevel's current group leader, or an empty string if $toplevel isn't part of any group.

That helps a bit. But I'm not sure that I understand the relationship in the Object hierarchy, even for all that.

mkmcconn

[reply]
[d/l]
[select]

Re: Re: How I Summoned the Planes

by demerphq (Chancellor) on Feb 28, 2002 at 14:21 UTC

Yves / DeMerphq
--
When to use Prototypes?
Advanced Sorting - GRT - Guttman Rosler Transform

[reply]


Clear questions and runnable code get the best and fastest answer
	PerlMonks