Re: perlTk opening new window

You can create additional windows.

my $mw = MainWindow->new; 
my $newWindow = $mw->TopLevel();
[download]

Use NewWindow just like the mainwindow.

Creating these windows and getting them packed, etc takes a bit of time. So when I have a window like that, I just hide it when I'm done instead of "destroy". That way I can bring it back up on the screen very fast and it stays in the same place that the user had it. There are a number of methods to look at. to take off screen: withdraw() or perhaps iconify(), to get back: deiconify(), raise().

Update: Good luck and re: CB look at CB clients. The java client runs in your browser and is easy to use although doesn't have all of the features of some of the others.

Comment on Re: perlTk opening new window Download Code

Replies are listed 'Best First'.
Re^2: perlTk opening new window by wisemonkey (Novice) on Oct 26, 2010 at 22:06 UTC
Hey Marshall, Here is something I tried `#!/usr/bin/perl use strict; use warnings; use Tk; my $win = new MainWindow; my $b1 = $win -> Button (-text=>"next", -command=>\&nextwin) -> pack() +; sub nextwin { my $win2 = $win->Toplevel(); my $b2 = $win2 -> Button (-text=>"quit", -command=>sub { exit }) -> pa +ck(); } MainLoop;` [download] well by this method I still have 2 windows on screen	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: perlTk opening new window
by wisemonkey (Novice) on Oct 26, 2010 at 22:06 UTC

#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $win = new MainWindow;
my $b1 = $win -> Button (-text=>"next", -command=>\&nextwin) -> pack()
+;

sub nextwin {
my $win2 = $win->Toplevel();
my $b2 = $win2 -> Button (-text=>"quit", -command=>sub { exit }) -> pa
+ck();
}

MainLoop;
[download]

[reply]
[d/l]